Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: LRAPRES

Package: Lab Service

Routine: LRAPRES


Information

LRAPRES ;DALOI/STAFF,PMK - AP ESIG RELEASE REPORT ;17 Sep 2013 10:52 AM

Source Information

Source file <LRAPRES.m>

Call Graph

Call Graph

Call Graph Total: 29

Package Total Call Graph
Lab Service 14 OERR^LR7OB63D  (,CK)^LRAP  INIT^LRAPBR  SUPCHK^LRAPR1  (CLSSCHK,MAIN,RETRACT)^LRAPRES1  INIT^LRAPSNMD  C^LRAPSWK  (ACCYR,LOOKUP,PROVIDR,REFRRL)^LRAPUTL  
($$ES,CLEAN,CPT,ES)^LRCAPES  UPDATE^LRPXRM  (CK,FRE,V)^LRU  X^LRUWK  SETRL^LRVERA  LEDI^LRVR0  
VA FileMan 6 DD^%DT  $$TEST^DDBRT  EN^DDIOL  (,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 4 $$NOW^XLFDT  $$CJ^XLFSTR  SIG^XUSESIG  $$CHKSUM^XUSESIG1  
Text Integration Utility 4 $$DDEFIEN^TIUFLF7  SETPARM^TIULE  EXTRACT^TIULQ  NEW^TIUPNAPI  
Imaging 1 REPORT^MAGT7MA  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Lab Service 4 LRAPALRT  LRAPDA  LRAPR  LRVRAP4  

Entry Points

Name Comments DBIA/ICR reference
ACCPN ; Prompt for accession number or patient name
CPTCHK ; Determine if CPT is activated
END ; Clean-up variables and quit
DEMARR ;
TITLE ; Title
BROWSE ; Display the report in the browser
MENU ;
SECTION ; Choose Anatomic Pathology section (AU,SP,CY,EM)
ACCYR ; Determine Accession Year
ACCCOMP ; Complete tests on accession
TIUPREP ;
WKLD ; Capture workload
ESIG ; Prompt for electronic signature
RELEASE ; Release the report
RELCHK ; Perform series of checks
MAIN ;
STORE ; Store report in TIU

External References

Name Field # of Occurrence
DD^%DT RELCHK+44
$$TEST^DDBRT BROWSE+4
EN^DDIOL TITLE+9, SECTION+18, RELCHK+12, RELCHK+19, RELCHK+31, RELCHK+36, RELCHK+46, RELCHK+50, RELCHK+59, BROWSE+17
, TIUPREP+8, RELEASE+31, STORE+12, STORE+36, STORE+41, STORE+45
^DIE RELEASE+19
UPDATE^DIE STORE+59, WKLD+24, ACCCOMP+23, ACCCOMP+34
$$GET1^DIQ DEMARR+2, DEMARR+3, DEMARR+5, DEMARR+6, DEMARR+13, DEMARR+14, RELCHK+4, RELCHK+5, RELCHK+6, RELCHK+7
, RELCHK+8, RELCHK+21, RELCHK+22, RELCHK+23, RELCHK+24, RELCHK+25, RELCHK+27, RELEASE+5, RELEASE+37
^DIR MENU+6, RELCHK+65, BROWSE+8, BROWSE+12
OERR^LR7OB63D ACCPN+24
^LRAP SECTION+3
CK^LRAP TITLE+2
INIT^LRAPBR BROWSE+18, TIUPREP+10
SUPCHK^LRAPR1 RELCHK+38
CLSSCHK^LRAPRES1 MAIN+17
MAIN^LRAPRES1 ACCPN+23
RETRACT^LRAPRES1 STORE+60
INIT^LRAPSNMD ACCPN+33
C^LRAPSWK RELEASE+6
ACCYR^LRAPUTL ACCYR+1
LOOKUP^LRAPUTL ACCPN+6
PROVIDR^LRAPUTL ACCPN+28
REFRRL^LRAPUTL STORE+2
$$ES^LRCAPES CPTCHK+2
CLEAN^LRCAPES END+4
CPT^LRCAPES ACCPN+26, ACCPN+30
ES^LRCAPES CPTCHK+1
UPDATE^LRPXRM RELEASE+25
CK^LRU RELEASE+17
FRE^LRU RELEASE+27
V^LRU END+5
X^LRUWK SECTION+12
SETRL^LRVERA ACCPN+14
LEDI^LRVR0 RELEASE+37
REPORT^MAGT7MA STORE+62
$$DDEFIEN^TIUFLF7 STORE+8
SETPARM^TIULE STORE+7
EXTRACT^TIULQ STORE+47
NEW^TIUPNAPI STORE+18
$$NOW^XLFDT ACCPN+18
$$CJ^XLFSTR TITLE+6, BROWSE+16, TIUPREP+7, RELEASE+31, STORE+40, STORE+44
SIG^XUSESIG ESIG+2
$$CHKSUM^XUSESIG1 STORE+49

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SECTION+2
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: RELCHK+10
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: RELCHK+29
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: RELCHK+34
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: RELCHK+41
Function Call: WRITE
  • Prompt: " SIGNATURE NOT VERIFIED"
  • Line Location: ESIG+4
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: STORE+10
Routine Call
  • DIE
  • Line Location:
    • STORE+59
    • WKLD+24
    • ACCCOMP+23
    • ACCCOMP+34
Routine Call
  • DIE
  • Line Location:
    • RELEASE+19
Routine Call
  • DIR
  • Line Location:
    • MENU+6
    • RELCHK+65
    • BROWSE+8
    • BROWSE+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] RELCHK+16, RELCHK+53, RELCHK+55, RELEASE+9, WKLD+2, ACCCOMP+7, ACCCOMP+8, ACCCOMP+12, ACCCOMP+13
^LRO(68 - [#68] WKLD+3, ACCCOMP+17, ACCCOMP+18, ACCCOMP+27
^LRO(69 - [#69] ACCCOMP+29, ACCCOMP+32
^TMP("LRAPBR" BROWSE+15!, END+3!
^TMP("TIUP" TIUPREP+1!, END+3!

Label References

Name Line Occurrences
ACCCOMP RELEASE+22
ACCPN MAIN+21
ACCYR MAIN+19
BROWSE ACCPN+15
CPTCHK MAIN+6, ACCPN+5
DEMARR ACCPN+32
END MAIN+5, MAIN+22
ESIG ACCPN+16
MENU MAIN+9
RELCHK ACCPN+12
RELEASE ACCPN+21
SECTION MAIN+14
STORE ACCPN+19
TITLE MAIN+4
TIUPREP ACCPN+19
WKLD RELEASE+34

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE DEMARR+8
>> C WKLD+10*, WKLD+11*, WKLD+12, WKLD+14
>> DA RELEASE+8*, RELEASE+15*
>> DA(1 RELEASE+8*
>> DFN STORE+18
>> DIE RELEASE+8*, RELEASE+15*
DIR MENU+1~, BROWSE+1~
DIR("A" MENU+5*, RELCHK+64*, BROWSE+5*, BROWSE+6*, BROWSE+7*, BROWSE+11*
DIR("B" RELCHK+63*, BROWSE+10*
DIR(0 MENU+2*, MENU+3*, MENU+4*, RELCHK+63*, BROWSE+8*, BROWSE+10*
DIRUT MENU+7, BROWSE+1~
>> DOB DEMARR+7
>> DR RELEASE+7*, RELEASE+13*, RELEASE+14*
DTOUT BROWSE+1~
DUOUT BROWSE+1~
DUZ MAIN+17, ACCPN+27, STORE+18, WKLD+8, WKLD+19, ACCCOMP+21
DUZ(2 ACCPN+14, WKLD+20
ERR WKLD+1~, END+2!
FILE WKLD+1~, WKLD+5*, WKLD+6, WKLD+7, WKLD+8, WKLD+9
FILE1 WKLD+1~, WKLD+10*, WKLD+14, WKLD+15, WKLD+16, WKLD+17, WKLD+18, WKLD+19, WKLD+20, WKLD+21
, WKLD+22, WKLD+23
IENS WKLD+1~, WKLD+4*, WKLD+6, WKLD+7, WKLD+8, WKLD+9, WKLD+13, END+2!
IENS1 WKLD+1~, WKLD+13*, WKLD+14, WKLD+15, WKLD+16, WKLD+17, WKLD+18, WKLD+19, WKLD+20, WKLD+21
, WKLD+22, WKLD+23
IOF TITLE+4
IOM TITLE+6, BROWSE+16, TIUPREP+7, RELEASE+31, STORE+40, STORE+44
>> LR("CK" RELEASE+18
>> LRA RELEASE+9*
>> LRAA ACCPN+6, ACCPN+30, ACCPN+33, ACCYR+1, BROWSE+18, TIUPREP+10, WKLD+3, WKLD+4, WKLD+21, WKLD+22
, WKLD+23, ACCCOMP+17, ACCCOMP+18, ACCCOMP+20, ACCCOMP+27
>> LRAA(1 DEMARR+9
>> LRABV SECTION+16
>> LRAC ACCPN+23
>> LRAD ACCPN+6, ACCPN+30, ACCPN+33, ACCYR+3*, WKLD+3, WKLD+4, ACCCOMP+17, ACCCOMP+18, ACCCOMP+20, ACCCOMP+27
LRAD1 ACCYR+1, ACCYR+2, ACCYR+3, END+1!
>> LRAN ACCPN+30, ACCPN+33, WKLD+3, WKLD+4, ACCCOMP+17, ACCCOMP+18, ACCCOMP+20, ACCCOMP+27
LRAU ACCPN+14, DEMARR+1, DEMARR+4, DEMARR+11, SECTION+6*, SECTION+7*, RELCHK+3, RELCHK+15, RELCHK+47, BROWSE+18
, TIUPREP+10, RELEASE+4, RELEASE+12, RELEASE+29, STORE+53, END+1!
>> LRCAPA SECTION+8, RELEASE+6, RELEASE+34
>> LRCHKSUM STORE+49*, STORE+58
LRDATA ACCPN+6, ACCPN+7, ACCPN+8, ACCPN+9, END+1!
LRDATA(1 ACCPN+9
LRDEM MAIN+1~, ACCPN+33
LRDEM("AGE" DEMARR+8*
LRDEM("AUDT" DEMARR+13*
LRDEM("AUTYP" DEMARR+14*
LRDEM("DOB" DEMARR+7*
LRDEM("DTH" DEMARR+12*
LRDEM("PNM" DEMARR+9*
LRDEM("PRO" DEMARR+10*
LRDEM("SEC" DEMARR+9*
LRDEM("SEX" DEMARR+7*
LRDEM("SSN" DEMARR+10*
>> LRDFN ACCPN+9*, ACCPN+10, ACCPN+14, ACCPN+23, ACCPN+33, DEMARR+2, DEMARR+3, DEMARR+5, DEMARR+6, DEMARR+13
, DEMARR+14, RELCHK+16, RELCHK+21, RELCHK+22, RELCHK+23, RELCHK+24, RELCHK+25, RELCHK+27, RELCHK+53, RELCHK+55
, BROWSE+18, TIUPREP+10, RELEASE+8, RELEASE+9, RELEASE+15, RELEASE+25, RELEASE+37, STORE+53, STORE+60, WKLD+2
, ACCCOMP+7, ACCCOMP+8, ACCCOMP+12, ACCCOMP+13
>> LRDPF TIUPREP+5, STORE+2
>> LRDUZ ACCCOMP+21
LREND MAIN+1~, MAIN+16*, MAIN+17*, MAIN+18, ACCPN+3, ACCPN+4*, ACCPN+8*
LRERR ACCCOMP+2~
LRERR(1 ACCCOMP+19!
LRESCPT MAIN+2~, MAIN+3*, CPTCHK+2*, MENU+3
LRFDA STORE+1~, WKLD+1~, ACCCOMP+2~, ACCCOMP+19!, END+2!
LRFDA(1 STORE+56*, STORE+57*, STORE+58*, WKLD+6*, WKLD+7*, WKLD+8*, WKLD+9*, WKLD+14*, WKLD+15*, WKLD+16*
, WKLD+17*, WKLD+18*, WKLD+19*, WKLD+20*, WKLD+21*, WKLD+22*, WKLD+23*, ACCCOMP+21*, ACCCOMP+22*
LRFDA(2 ACCCOMP+32*, ACCCOMP+33*
LRFILE STORE+1~, STORE+54*, STORE+55*, STORE+56, STORE+57, STORE+58, ACCCOMP+2~, ACCCOMP+16*, ACCCOMP+21, ACCCOMP+22
, ACCCOMP+30!, ACCCOMP+31*, ACCCOMP+32, ACCCOMP+33, END+1!
>> LRH(0 ACCPN+6, ACCYR+1, ACCYR+3*
>> LRI ACCPN+9*, ACCPN+10, ACCPN+14, ACCPN+23, ACCPN+33, DEMARR+5, DEMARR+6, BROWSE+18, TIUPREP+10, RELEASE+8
, RELEASE+9, RELEASE+25, RELEASE+37, STORE+53, STORE+60, WKLD+2, ACCCOMP+8, ACCCOMP+13
LRIEN WKLD+1~, END+2!
LRIEN( WKLD+12*
LRIEN(1 WKLD+5*
LRIENS ACCPN+10*, RELCHK+4, RELCHK+5, RELCHK+6, RELCHK+7, RELCHK+8, RELEASE+5, STORE+1~, STORE+53*, STORE+56
, STORE+57, STORE+58, ACCCOMP+2~, ACCCOMP+19!, ACCCOMP+20*, ACCCOMP+21, ACCCOMP+22, ACCCOMP+30!, ACCCOMP+31*, ACCCOMP+32
, ACCCOMP+33, END+1!
LRIENS1 END+1!
LRK WKLD+2*, WKLD+9, WKLD+18, ACCCOMP+2~, ACCCOMP+7*, ACCCOMP+8*, ACCCOMP+9, ACCCOMP+22, ACCCOMP+33
LRMSG MAIN+1~, TITLE+9!, SECTION+1~, SECTION+18, RELCHK+11*, RELCHK+12!, RELCHK+17*, RELCHK+18*, RELCHK+19!, RELCHK+30*
, RELCHK+31!, RELCHK+35*, RELCHK+36!, RELCHK+42*, RELCHK+43*, RELCHK+44*, RELCHK+45*, RELCHK+46!, RELCHK+50*!, RELCHK+57~
, RELCHK+58*, RELCHK+59, BROWSE+16*, BROWSE+17, TIUPREP+2*, TIUPREP+5*, TIUPREP+6*, TIUPREP+7*, TIUPREP+8, RELEASE+1~
, RELEASE+28*, RELEASE+29*, RELEASE+30*, RELEASE+31, STORE+1~, STORE+11*, STORE+12!, STORE+36, STORE+39*, STORE+40*
, STORE+41, STORE+43*, STORE+44*, STORE+45
LRMSG(1 TITLE+6*, TITLE+7*, SECTION+16*, STORE+20*
LRMSG(10 STORE+34*, STORE+35*
LRMSG(2 TITLE+8*, SECTION+17*, STORE+21*, STORE+22*
LRMSG(3 STORE+23*, STORE+24*
LRMSG(4 STORE+25*
LRMSG(5 STORE+26*
LRMSG(6 STORE+27*, STORE+28*
LRMSG(7 STORE+29*
LRMSG(8 STORE+30*, STORE+31*
LRMSG(9 STORE+32*, STORE+33*
LRMTCH MAIN+1~
LRNTIME MAIN+1~, ACCPN+18*, TIUPREP+10, STORE+18, STORE+56
>> LRO(68 ACCPN+6, SECTION+5*, SECTION+16, ACCYR+1, BROWSE+18, TIUPREP+10
>> LRO68 STORE+3*, STORE+4*, STORE+5*, STORE+6*, STORE+8
LRORDT ACCCOMP+2~, ACCCOMP+28*, ACCCOMP+29, ACCCOMP+31, ACCCOMP+32
LROUT WKLD+1~, END+2!
>> LRP ACCPN+23
LRPAT RELCHK+1~, RELCHK+4*, RELCHK+21*, RELCHK+33
LRPCEXP MAIN+2~
LRPCSTR MAIN+2~
LRPRCLSS MAIN+1~
>> LRPRO ACCPN+27*, ACCPN+30, DEMARR+2*, DEMARR+5*
>> LRPRO(1 DEMARR+3*, DEMARR+6*, DEMARR+10
LRQUIT MAIN+1~, MAIN+5, MAIN+7, MAIN+8*, MAIN+10, MAIN+15, MAIN+20, ACCPN+4*, ACCPN+11, ACCPN+13
, ACCPN+17, ACCPN+20, ACCPN+22, ACCPN+29, TITLE+1*, TITLE+3*, MENU+7*, SECTION+4*, SECTION+8, SECTION+13*
, ACCYR+2*, RELCHK+2*, RELCHK+3, RELCHK+13*, RELCHK+15, RELCHK+20*, RELCHK+32*, RELCHK+37*, RELCHK+39, RELCHK+40
, RELCHK+47*, RELCHK+49*, RELCHK+60*, RELCHK+61, RELCHK+66*, ESIG+1*, ESIG+5*, STORE+13*, STORE+14, STORE+37*
, STORE+42*
>> LRRC RELEASE+5*
LRRDTE END+1!
LRSEL MAIN+11, MENU+8*, END+1!
>> LRSF ACCPN+23, ACCPN+33, DEMARR+5, DEMARR+6, RELCHK+4, RELCHK+5, RELCHK+6, RELCHK+7, RELCHK+8, RELEASE+5
, RELEASE+37
LRSN ACCCOMP+2~, ACCCOMP+28*, ACCCOMP+29, ACCCOMP+31, ACCCOMP+32
>> LRSOP SECTION+15*
LRSRDT ACCCOMP+2~, ACCCOMP+12*, ACCCOMP+13*, ACCCOMP+32
LRSRLST RELCHK+1~, RELCHK+53*, RELCHK+54, RELCHK+55
LRSRREL RELCHK+1~, RELCHK+55*, RELCHK+56
>> LRSS ACCPN+6, ACCPN+14, ACCPN+23, ACCPN+33, SECTION+4, SECTION+7, SECTION+10, SECTION+11, BROWSE+18, TIUPREP+10
, RELEASE+9, RELEASE+25, RELEASE+34, RELEASE+37, STORE+3, STORE+4, STORE+5, STORE+6, STORE+54, STORE+55
, STORE+60, WKLD+2, ACCCOMP+7, ACCCOMP+8, ACCCOMP+12, ACCCOMP+13
LRT WKLD+3, WKLD+5, WKLD+6, ACCCOMP+2~, ACCCOMP+16*, ACCCOMP+17*, ACCCOMP+18, ACCCOMP+20
LRT( WKLD+11
LRTEXT TITLE+5*, TITLE+6, END+1!
LRTITLE STORE+1~, STORE+8*, STORE+9, STORE+18
LRTIU STORE+50!
LRTIU( STORE+48*
LRTIUPTR STORE+1~, STORE+18, STORE+19, STORE+38, STORE+47, STORE+48, STORE+49, STORE+57, STORE+60
LRTMP END+2!
LRVCDE MAIN+1~
LRX ACCCOMP+2~, ACCCOMP+27*, ACCCOMP+28
>> LRZ RELCHK+5*, RELCHK+9, RELCHK+22*, RELCHK+28, RELCHK+49, RELCHK+52, RELCHK+62
>> LRZ( RELCHK+7*, RELCHK+24*, RELCHK+45
>> LRZ(1 RELCHK+6*, RELCHK+23*, RELCHK+45
>> LRZ(2 ACCPN+15, ACCPN+19, ACCPN+23, RELCHK+8*, RELCHK+9, RELCHK+25*, RELCHK+33, RELCHK+38, RELCHK+40, RELCHK+42
, RELCHK+44, RELCHK+49, RELCHK+52, RELCHK+62, RELEASE+29
>> LRZ(3 RELCHK+27*, RELCHK+28
>> PNM DEMARR+9
RNUM WKLD+1~, WKLD+4*, WKLD+12*, WKLD+13
>> SEX DEMARR+7
>> SSN DEMARR+10
>> TIUPRM1 STORE+26
U ACCYR+3, STORE+26, STORE+48
USRSEL MAIN+2~, MAIN+11*, MAIN+13~, MAIN+17, ACCPN+2
USRSEL1 ACCPN+1~, ACCPN+2*, ACCPN+11, ACCPN+25, ACCPN+31
>> VADM(6 DEMARR+12
X MENU+1~, SECTION+9*, SECTION+10*, SECTION+11*, SECTION+12, SECTION+13, BROWSE+1~
>> X1 ESIG+3
Y TITLE+3, MENU+1~, MENU+8, SECTION+4, RELCHK+44*, RELCHK+66, BROWSE+1~, BROWSE+13

Marked Items

Name Field # of Occurrence
$T(CLEAN^LRCAPES END+4
$T(CPT^LRCAPES ACCPN+26
$T(ES^LRCAPES CPTCHK+1
$T(REPORT^MAGT7MA STORE+62
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All