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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRSPRPT

Package: Lab Service

Routine: LRSPRPT


Information

LRSPRPT ;DALOI/STAFF - CY/EM/SP PATIENT RPT ; 30 Aug 2016 5:20 PM

Source Information

Source file <LRSPRPT.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Lab Service 11 (,F)^LRAPF  INIT^LRAPSNMD  MAIN^LRAPTIUP  TIUCHK^LRAPUTL  END^LRSPRPT1  EN^LRSPRPT2  EN^LRSPRPTA  (D,L,L1,S,V,YN)^LRU  
(,EN2,SET)^LRUA  ^LRUP  EN1^LRUPS  
VA FileMan 6 EN^DDIOL  LOCK^DILF  $$GET1^DIQ  ^DIR  ^DIWP  ^DIWW  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  

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: 12

Package Total Caller Graph
Lab Service 11 LRAPCUM  LRAPDS  LRAPFICH  LRAPMOD  LRAPQAFS  LRAPQAM  LRAPQAMR  LRAPQAR  
LRAURPT  LRSPRPTA  LRSPT  
Automated Lab Instruments 1 LAPFICH  

Entry Points

Name Comments DBIA/ICR reference
GETP ;
CH ;
DEV ; from LRAPMOD
QUE ;
PSGL ; Single Report
PQUE ;Report from queue
LST ;
W ;
F ;
; N A,DIWF,DIWL,DIWR
E ;
EN ; from LRSPT
; Moved to LRSPRPTA due to size limits on routine
S ;
SGL ; Print Single Report
A ;
TOP ;
SUPA ; Print supplementary report audit information
SUPM ; Print previous versions of supplementary reports
; This is used by menu option 'Print path modifications [LRAPMOD]'
CONT ;
FOC ; Print final office copy page (SNOMEDS)
END ;

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+8
^%ZISC LST+6
^%ZTLOAD DEV+8
EN^DDIOL GETP+8, DEV+9
LOCK^DILF GETP+3
$$GET1^DIQ FOC+9, FOC+10, FOC+11, FOC+12
^DIR CONT+2
^DIWP F+4, S+11, SUPM+17
^DIWW S+13, SUPM+18
^LRAPF F+6, S+4, S+8, A+2, TOP+1, SUPM+5, SUPM+16
F^LRAPF F+6, S+4, S+8, A+2, TOP+1, SUPM+5, SUPM+16
INIT^LRAPSNMD FOC+18
MAIN^LRAPTIUP PSGL+4, PQUE+9
TIUCHK^LRAPUTL PQUE+7, SGL+6
END^LRSPRPT1 LRSPRPT+6
EN^LRSPRPT2 CH+1
EN^LRSPRPTA EN+2
D^LRU S+1, SUPA+13, SUPM+10
L^LRU QUE+11
L1^LRU QUE+11
S^LRU QUE+11
V^LRU END+1
YN^LRU CH+3
^LRUA FOC+3
EN2^LRUA LRSPRPT+5, SGL+8
SET^LRUA QUE+11
^LRUP FOC+4
EN1^LRUPS GETP+1, SGL+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LRO(68)," FINAL PATIENT REPORTS"
  • Line Location: LRSPRPT+3
Function Call: WRITE
  • Prompt: !!,"Save final report list for reprinting "
  • Line Location: CH+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PSGL+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PQUE+28
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,^UTILITY($J,"W",DIWL,A,0)
  • Line Location: F+6
Function Call: WRITE
  • Prompt: !
  • Line Location: F+7
Function Call: WRITE
  • Prompt: !?3,"Date: ",Y
  • Line Location: S+2
Function Call: WRITE
  • Prompt: " not verified"
  • Line Location: S+3
Function Call: WRITE
  • Prompt: $C(7)," Sorry, report not verified.",!
  • Line Location: SGL+5
Function Call: WRITE
  • Prompt: !,$P(^LR(LRDFN,LRSS,LRI,LRV,A,0),"^")
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !?14,"*+* SUPPLEMENTARY REPORT HAS BEEN ADDED/MODIFIED *+*"
  • Line Location: SUPA+1
Function Call: WRITE
  • Prompt: !,"(Added/Last modified: "
  • Line Location: SUPA+2
Function Call: WRITE
  • Prompt: Y,LRSGN,A,")"
  • Line Location: SUPA+13
Function Call: WRITE
  • Prompt: !,?25,"**-* NOT VERIFIED *-**"
  • Line Location: SUPA+15
Function Call: WRITE
  • Prompt: !,"Date ",Y2,Y,LRSGN,X
  • Line Location: SUPM+10
Function Call: WRITE
  • Prompt: !?13,"==========Text below appears on final report=========="
  • Line Location: SUPM+20
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+8
Routine Call
  • DIR
  • Line Location:
    • CONT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LR - [#63] GET1^DIQ
^LRT(67 - [#67] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] F+4, S+5, S+7, S+11, SGL+4, A+1, A+3, SUPA+3, SUPA+6, SUPA+8
, SUPA+15, SUPM+3, SUPM+4, SUPM+14, SUPM+15, FOC+4, FOC+6, FOC+14
^LRO(69.2 - [#69.2] GETP+2, GETP+9*, GETP+10, GETP+11, QUE+9, QUE+10, PQUE+2, PQUE+6, LST+2!, LST+3*
^UTILITY($J F+6, F+8!, E+1!, SUPM+11!
^VA(200 - [#200] SUPA+11, SUPM+9

Label References

Name Line Occurrences
CH LRSPRPT+6
CONT PSGL+8, PSGL+13, PSGL+17, PSGL+24, PQUE+15, PQUE+20, PQUE+25, PQUE+32
DEV SGL+9
E F+2, S+6
EN PSGL+15, PQUE+22
END DEV+3, DEV+10, LST+8
FOC PSGL+11, PSGL+22, PQUE+17, PQUE+29
GETP GETP+2, GETP+4, GETP+12
LST PSGL+1
SGL LRSPRPT+6, SGL+4
SUPA S+5
SUPM SUPA+16
TOP F+4

Naked Globals

Name Field # of Occurrence
^(0 GETP+10*, QUE+10, SUPA+7, SUPA+9, SUPA+11, SUPM+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CH+1, CH+3*, LST+7!
>> %ZIS DEV+2*
>> A F+3*, F+4*, F+5*, F+6*, A+1*, A+3, SUPA+3*, SUPA+4, SUPA+7*, SUPA+9*
, SUPA+10*, SUPA+11*, SUPA+13, SUPM+3*, SUPM+4, SUPM+14, SUPM+15
>> A2 SUPA+9*, SUPA+10
>> AGE FOC+17
>> B S+6*, S+7*, S+11, SUPA+3*, SUPA+4*, SUPA+6, SUPA+8, SUPM+13*, SUPM+14*, SUPM+15
>> DFN FOC+9
DIR LST+7!, CONT+1!
DIR(0 CONT+1*
DIRUT LST+7!
>> DIWF F+3*, E+2*, E+6*, S+10*, SUPM+12*
>> DIWL F+6, E+2*, SUPM+12*
>> DIWR E+2*, SUPM+12*
>> DOB FOC+17
DTOUT LST+7!, CONT+3
DUOUT LST+7!
IO QUE+1
IO("Q" DEV+4
IOF PSGL+14, PSGL+21, PQUE+21, PQUE+23, LST+5
IOM CH+6, E+2, SUPM+12
IOSL F+6, F+7, S+4, S+8, A+2, SUPM+5, SUPM+16
IOST PSGL+8, PSGL+13, PSGL+14, PSGL+17, PSGL+21, PSGL+24, PQUE+11, PQUE+15, PQUE+18, PQUE+20
, PQUE+21, PQUE+23, PQUE+24, PQUE+25, PQUE+30, PQUE+32, LST+5
>> LR( QUE+9*
>> LR("%" W+1
>> LR("DIWF" QUE+9*, E+6
>> LR("DVD" CH+5!, CH+6*, PQUE+11, PQUE+18, PQUE+24, PQUE+30
>> LR("F" PSGL+7*, PSGL+8, PSGL+13, PSGL+17, PSGL+24, PQUE+5!, PQUE+14*, PQUE+15, PQUE+20, PQUE+25
, PQUE+32
>> LR("Q" PSGL+6*, PSGL+8, PSGL+9, PSGL+10*, PSGL+12*, PSGL+13, PSGL+17, PSGL+18, PSGL+19*, PSGL+23*
, PSGL+24, PQUE+2, PQUE+13*, PQUE+15, PQUE+16, PQUE+19*, PQUE+20, PQUE+25, PQUE+26, PQUE+31*
, PQUE+32, F+6, S+4, S+7, S+8, S+11, S+12, A+1, A+2, SUPA+3
, SUPA+5, SUPM+3, SUPM+5, SUPM+14, SUPM+16, SUPM+18, SUPM+19, CONT+3*
>> LR("R" S+3
>> LRA QUE+10*
>> LRAA GETP+2, GETP+9, GETP+10, GETP+11, QUE+9, QUE+10, PQUE+2, PQUE+6, LST+2, LST+3
, FOC+18
LRADC FOC+1~, FOC+6*, FOC+14*, FOC+18
>> LRAN GETP+1, GETP+2, GETP+9, GETP+10, PQUE+1*, PQUE+2*, PQUE+6, SGL+3, FOC+18
LRAP LRSPRPT+4!, PSGL+1, PSGL+2, PSGL+7!, PSGL+16!, LST+1!, SGL+7*, FOC+2
>> LRAPX LRSPRPT+6
>> LRAPX(1 CH+1*, SGL+2*
LRCTR FOC+1~
>> LRDEM FOC+18
>> LRDEM("AGE" FOC+17*
>> LRDEM("AUDT" FOC+10*
>> LRDEM("AUTYP" FOC+11*
>> LRDEM("DOB" FOC+17*
>> LRDEM("DTH" FOC+7*, FOC+9*
>> LRDEM("PNM" FOC+16*
>> LRDEM("PRO" FOC+12*, FOC+15*
>> LRDEM("SEX" FOC+17*
>> LRDEM("SSN" FOC+16*
>> LRDFN GETP+9, PSGL+2*, PQUE+6*, PQUE+7, F+4, S+5, S+7, S+11, SGL+4, SGL+6
, SGL+7, A+1, A+3, SUPA+3, SUPA+6, SUPA+8, SUPA+15, SUPM+3, SUPM+4, SUPM+14
, SUPM+15, FOC+4, FOC+6, FOC+10, FOC+11, FOC+12, FOC+14, FOC+18
>> LRDPF FOC+7, FOC+9
LRFFF QUE+2~, QUE+7*, QUE+8*, PSGL+5*, PQUE+4*, PQUE+10*, PQUE+33*, LST+5
>> LRFOC QUE+5*, QUE+8, PSGL+10, PSGL+19, PQUE+4, PQUE+11, PQUE+16, PQUE+24, PQUE+27
>> LRI GETP+9, PSGL+2*, PQUE+6*, PQUE+7, F+4, S+5, S+7, S+11, SGL+4, SGL+6
, SGL+7, A+1, A+3, SUPA+3, SUPA+6, SUPA+8, SUPA+15, SUPM+3, SUPM+4, SUPM+14
, SUPM+15, FOC+14, FOC+18
>> LRMD FOC+15
>> LRO(68 LRSPRPT+3
>> LRP FOC+16
LRPMD LST+1!
LRPTR PSGL+3, PSGL+4, PQUE+7, PQUE+8, PQUE+9, PQUE+12!, SGL+1~, SGL+6
>> LRQ(9 SUPA+16
>> LRQUIT QUE+6*, PSGL+6, PSGL+12, PSGL+23, PQUE+3*, PQUE+13, PQUE+19, PQUE+31
LRRMD LST+1!
>> LRS(99 LRSPRPT+4!
LRSAV LRSPRPT+4!, CH+3*, LST+2, LST+4!, SGL+7*
>> LRSF FOC+18
LRSF515 QUE+4*, END+2!
>> LRSGN SUPA+7*, SUPA+9*, SUPA+13, SUPM+6*, SUPM+8*, SUPM+10
>> LRSS PQUE+7, F+4, S+5, S+7, S+11, SGL+4, SGL+6, A+1, A+3, SUPA+3
, SUPA+6, SUPA+8, SUPA+15, SUPM+3, SUPM+4, SUPM+14, SUPM+15, FOC+3, FOC+4, FOC+5
, FOC+6, FOC+13, FOC+14, FOC+18
>> LRT SUPM+4*, SUPM+6, SUPM+8, SUPM+15*, SUPM+17
LRV LST+4!, F+4, S+5, S+7, S+11, A+1, A+3, SUPA+3, SUPA+6, SUPA+8
, SUPA+15, SUPM+3, SUPM+4, SUPM+14, SUPM+15
LRW LST+4!
LRZ LST+4!, S+7*, S+13, SUPM+14*, SUPM+18
MSG GETP+5~, GETP+8
MSG(1 GETP+6*
MSG(2 GETP+7*
>> POP DEV+3
>> SEX FOC+17
>> SSN FOC+16
U QUE+10, S+1, S+5, CONT+3
>> VADM(6 FOC+7
X GETP+10*, PQUE+6*, LST+7!, F+4*, S+1*, S+3, S+11*, TOP+1*, SUPM+6*, SUPM+8*
, SUPM+9*, SUPM+10, SUPM+17*, CONT+3, FOC+4*
Y LST+7!, S+1*, S+2, SUPA+7*, SUPA+9*, SUPA+13, SUPM+6*, SUPM+8*, SUPM+10
>> Y2 SUPM+6*, SUPM+8*, SUPM+10
>> Z TOP+1*
ZTDESC DEV+5~, DEV+6*
>> ZTQUEUED LST+6
>> ZTREQ LST+6*
ZTRTN DEV+5~, DEV+7*
ZTSAVE DEV+5~
ZTSAVE("LR*" DEV+7*
ZTSK DEV+5~, DEV+9
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 |  Naked Globals |  Local Variables  | All