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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: LRAPTIUP

Package: Lab Service

Routine: LRAPTIUP


Information

LRAPTIUP ;DALOI/STAFF - API Print AP Reports from TIU ;11/05/10 17:30

Source Information

Source file <LRAPTIUP.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$CHKSUM^XUSESIG1  $$ENCRYP^XUSRB1  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Text Integration Utility 1 EXTRACT^TIULQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Lab Service 4 LRAPFICH  LRAPMOD  LRAURPT  LRSPRPT  

Entry Points

Name Comments DBIA/ICR reference
MAIN(LRTIUDA,LRDEV) ; Control Branching
EXTRACT ; Extract the report from TIU
DISSECT ; Dissect the report into header, body, and footer
ASKDEV ;
REPORT ;
HEADER ;Report Header
BODY ; Body of Report
FOOTER ;Report Footer
CHKSUM ;Compare LR and TIU checksums
; Get original checksum value from file 63
END ;

External References

Name Field # of Occurrence
^%ZIS ASKDEV+2
HOME^%ZIS ASKDEV+8
^%ZISC END+2
^%ZTLOAD ASKDEV+7
$$GET1^DIQ CHKSUM+15
^DIR HEADER+3
EXTRACT^TIULQ EXTRACT+1
$$CHKSUM^XUSESIG1 CHKSUM+20
$$ENCRYP^XUSRB1 BODY+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"The IEN from the TIU DOCUMENT (#8925) file is undefined.",!
  • Line Location: MAIN+14
Function Call: WRITE
  • Prompt: $C(7),!!,"Document not found.",!
  • Line Location: EXTRACT+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Document is not an Anatomic Pathology report.",!
  • Line Location: DISSECT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDEV+3
Function Call: WRITE
  • Prompt: !,"Request Queued, #",ZTSK
  • Condition for execution: $D(ZTSK)
  • Line Location: ASKDEV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDEV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: LRTXT
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: ?68,"Pg",$J(LRPG,3)," of ",LRTOTPGS
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: LRTXT,!
  • Line Location: BODY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOTER+2
Function Call: WRITE
  • Prompt: LRTXT,!
  • Line Location: FOOTER+7
Function Call: WRITE
  • Prompt: ?57,"(See next page)",!
  • Line Location: FOOTER+8
Function Call: WRITE
  • Prompt: ?57,"(End of report)",!
  • Line Location: FOOTER+9
Function Call: WRITE
  • Prompt: LRTXT,!
  • Line Location: FOOTER+10
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+2
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+8
Routine Call
  • DIR
  • Line Location:
    • HEADER+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] CHKSUM+5, CHKSUM+9
^TMP("LRTIU" MAIN+8!, EXTRACT+2, EXTRACT+5, CHKSUM+18*, END+3!
^TMP("LRTIUTXT" MAIN+8!, EXTRACT+5*, DISSECT+2, DISSECT+3, DISSECT+9!, DISSECT+12*, DISSECT+13!, DISSECT+17*, DISSECT+18!, DISSECT+21*
DISSECT+22!, DISSECT+26*, DISSECT+27!, DISSECT+30*, DISSECT+31!, DISSECT+32*, DISSECT+33*, REPORT+5, REPORT+6, REPORT+7
HEADER+7, HEADER+8, BODY+2, BODY+4, FOOTER+3, FOOTER+5, END+3!

Label References

Name Line Occurrences
ASKDEV MAIN+19
BODY REPORT+19
CHKSUM REPORT+16
DISSECT MAIN+17
END MAIN+16, MAIN+18, MAIN+20, MAIN+22
EXTRACT MAIN+15
FOOTER REPORT+22, BODY+3
HEADER REPORT+12, BODY+3
REPORT MAIN+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+4!
%ZIS ASKDEV+2*, END+5!
DIR HEADER+2!, END+4!
DIR(0 HEADER+2*
DIRUT END+4!
DTOUT HEADER+4, END+4!
DUOUT END+4!
IO REPORT+1
IO("Q" ASKDEV+4, ASKDEV+8!
IOF REPORT+2, HEADER+5, END+1
IOSL REPORT+9, REPORT+10, BODY+3, FOOTER+2
IOST REPORT+2, HEADER+1, HEADER+10, BODY+3, END+1
LRCKSUM REPORT+17, CHKSUM+12*, CHKSUM+15*, CHKSUM+16*, END+5!
LRCNT MAIN+6~, DISSECT+1*, DISSECT+12*, DISSECT+14*, DISSECT+16*, DISSECT+17, DISSECT+21*, DISSECT+25*, DISSECT+26, DISSECT+29*
DISSECT+30, DISSECT+32
LRCNTF MAIN+6~, FOOTER+1*, FOOTER+4*, FOOTER+6
LRCNTT MAIN+6~, DISSECT+1*, DISSECT+16*, DISSECT+25*, DISSECT+29*, DISSECT+33
LRDEV MAIN~, MAIN+10*, MAIN+19, END+2
>> LRDFN CHKSUM+5, CHKSUM+6, CHKSUM+9, CHKSUM+10
LRENCRYP REPORT+17*, BODY+5, CHKSUM+3*, END+5!
LREND REPORT+3~, REPORT+4*, REPORT+21*, FOOTER+8
LRFILE CHKSUM+2~, CHKSUM+7*, CHKSUM+11*, CHKSUM+12, CHKSUM+15
LRFLD CHKSUM+2~
LRFLG MAIN+6~, DISSECT+1*, DISSECT+10, DISSECT+14*, DISSECT+15, DISSECT+19, DISSECT+20, DISSECT+23*, DISSECT+24, DISSECT+28
LRFTC REPORT+3~, REPORT+6*, REPORT+9, REPORT+10, BODY+3, FOOTER+2
LRHDC REPORT+3~, REPORT+5*, REPORT+9, REPORT+10
LRHFLG MAIN+6~, DISSECT+1*, DISSECT+4, DISSECT+8*
>> LRI CHKSUM+9, CHKSUM+10
LRIENS CHKSUM+2~, CHKSUM+6*, CHKSUM+10*, CHKSUM+14*, CHKSUM+15
LROR MAIN+6~, DISSECT+1*, DISSECT+2*, DISSECT+3, DISSECT+9, DISSECT+13, DISSECT+18, DISSECT+22, DISSECT+27, DISSECT+31
HEADER+6*, HEADER+7*, HEADER+8
LROR1 REPORT+3~, BODY+1*, BODY+2*, BODY+4
LROR2 REPORT+3~, FOOTER+1*, FOOTER+3*, FOOTER+5
LRPG REPORT+3~, REPORT+4*, HEADER+1, HEADER+5*, HEADER+10
LRPTR MAIN+6~, MAIN+11*, CHKSUM+5, CHKSUM+9, END+5!
>> LRQUIT MAIN+12*, MAIN+16, MAIN+18, MAIN+20, EXTRACT+4*, DISSECT+2, DISSECT+6*, ASKDEV+3*, ASKDEV+9*, REPORT+4*
REPORT+13, REPORT+20, HEADER+1, HEADER+4*, BODY+2, BODY+3
LRREL CHKSUM+2~
LRROOT CHKSUM+2~
>> LRSS CHKSUM+4, CHKSUM+8, CHKSUM+9, CHKSUM+11
LRTIUDA MAIN~, MAIN+11, MAIN+13, EXTRACT+1, EXTRACT+2, EXTRACT+5, CHKSUM+18, CHKSUM+19
LRTOTPGS REPORT+3~, REPORT+9*, REPORT+10*, HEADER+10
LRTREC CHKSUM+2~, CHKSUM+3*, CHKSUM+5*, CHKSUM+9*, CHKSUM+12, CHKSUM+14
LRTXC REPORT+3~, REPORT+7*, REPORT+9, REPORT+10
LRTXT MAIN+6~, DISSECT+3*, DISSECT+4, DISSECT+7, DISSECT+11, DISSECT+17, DISSECT+20, DISSECT+26, DISSECT+30, HEADER+8*
HEADER+9, HEADER+10, BODY+4*, BODY+5*, BODY+6, FOOTER+5*, FOOTER+7, FOOTER+10
LRVAL MAIN+6~, CHKSUM+19*, CHKSUM+20
POP MAIN+20, ASKDEV+3, END+5!
TIUCKSUM REPORT+17, CHKSUM+20*, END+5!
U HEADER+4, CHKSUM+18
X HEADER+4, END+4!
Y END+4!
ZTDESC ASKDEV+5*, END+6!
ZTQUEUED END+2, END+6!
ZTREQ END+2*, END+6!
ZTRTN ASKDEV+6*, END+6!
ZTSK ASKDEV+7, ASKDEV+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All