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 ;AVAMC/REG/WTY/KLL - CY/EM/SP PATIENT RPT ;08/22/01

Source Information

Source file <LRSPRPT.m>

Call Graph

Call Graph Total: 20

Package Total Call Graph
Lab Service 11 (,F,P)^LRAPF  INIT^LRAPSNMD  MAIN^LRAPTIUP  TIUCHK^LRAPUTL  (,END)^LRSPRPT1  EN^LRSPRPT2  ^LRSPRPTM  (D,L,L1,S,V,YN)^LRU  
(,D,EN2,SET)^LRUA  ^LRUP  EN1^LRUPS  
VA Fileman 5 EN^DDIOL  $$GET1^DIQ  ^DIR  ^DIWP  ^DIWW  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 1 INP^VADPT  

Caller Graph

Caller Graph Total: 11

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

Entry Points

Name Comments DBIA/ICR reference
A ;
PSGL ;Single Report
CH ;
E ;
F ;
CONT ;
TOP ;
S ;
DEV ;from LRAPMOD
SUPM ;Print previous versions of supplementary reports
LST ;
PQUE ;Report from queue
QUE ;
SGL ;Print Single Report
W ;
FOC ;Print final office copy page (SNOMEDS)
GETP ;
SUPA ;Print supplementary report audit information
END ;
EN ;from LRSPT

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS DEV+8
^%ZISC LST+6
^%ZTLOAD DEV+7
EN^DDIOL GETP+7
$$GET1^DIQ FOC+9, FOC+10, FOC+11, FOC+12
^DIR CONT+2
^DIWP F+4, S+10, SUPM+17
^DIWW F+5, S+12, SUPM+18
^LRAPF F+3, EN+10, EN+22, EN+24, EN+27, EN+30, EN+35, EN+40, EN+45, EN+50
, EN+51, S+4, S+8, A+2, TOP+1, SUPM+5, SUPM+16
F^LRAPF F+3, EN+22, EN+24, EN+27, EN+30, EN+35, EN+40, EN+45, EN+50, EN+51
, EN+57, S+4, S+8, A+2, TOP+1, SUPM+5, SUPM+16
P^LRAPF EN+23
INIT^LRAPSNMD FOC+18
MAIN^LRAPTIUP PSGL+4, PQUE+9
TIUCHK^LRAPUTL PQUE+7, SGL+6
^LRSPRPT1 EN+55
END^LRSPRPT1 LRSPRPT+7
EN^LRSPRPT2 CH+1
^LRSPRPTM EN+32, EN+37, EN+42, EN+47
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 EN+6, FOC+3
D^LRUA EN+9
EN2^LRUA LRSPRPT+6, SGL+8
SET^LRUA QUE+11
^LRUP FOC+4
EN1^LRUPS GETP+1, SGL+3
INP^VADPT EN+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LRO(68)," FINAL PATIENT REPORTS"
  • Line Location: LRSPRPT+4
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: !,"Request Queued, #",ZTSK
  • Condition for execution: $D(ZTSK)
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"Submitted by: ",LRW(5),?44,"Date obtained: ",LRTK
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"Specimen (Received ",LRTK(1),"):"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: W
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !,"Brief Clinical History:"
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: W
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !,"Preoperative Diagnosis:"
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: W
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !,"Operative Findings:"
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: W
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !,"Postoperative Diagnosis:"
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !?27,"Surgeon/physician: ",LRMD
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !,LR("%1")
  • Condition for execution: LRA
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: ?31,$S(LRSS="SP":"Pathology Resident: ",LRSS="CY":"Screened by: ",LRSS="EM":"Prepared by: ",1:" "),LRRMD
  • Condition for execution: LRRMD]""
  • Line Location: EN+28
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: !?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+8
Routine Call
  • DIR
  • Line Location:
    • CONT+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+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+2, F+4, EN+4, EN+14, EN+29, EN+32, EN+34, EN+37, EN+39, EN+42
, EN+44, EN+47, EN+50, EN+53, EN+54, S+5, S+7, S+10, 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+3, GETP+8*, GETP+9, GETP+10, QUE+9, QUE+10, PQUE+2, PQUE+6, LST+2!
, LST+3*, EN+3
^UTILITY($J E+1!, SUPM+11!
^VA(200 - [#200] SUPA+11, SUPM+9

Label References

Name Line Occurrences
A EN+13
CH LRSPRPT+7
CONT PSGL+8, PSGL+13, PSGL+17, PSGL+24, PQUE+15, PQUE+20, PQUE+25, PQUE+32
DEV SGL+9
E F+1, S+6
EN PSGL+15, PQUE+22
END DEV+3, LST+8
F EN+17, EN+18, EN+19, EN+20, EN+33, EN+38, EN+43, EN+48
FOC PSGL+11, PSGL+22, PQUE+17, PQUE+29
GETP GETP+2, GETP+3, GETP+11
LST PSGL+1
S EN+54
SGL LRSPRPT+7, SGL+4
SUPA S+5
SUPM SUPA+16
TOP F+4
W EN+12, EN+17, EN+18, EN+19, EN+20, EN+25

Naked Globals

Name Field # of Occurrence
^(0 GETP+9*, 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+2*, F+4, 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+10, 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 E+2*, S+9*, SUPM+12*
>> DIWL 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, DEV+8!
IOF PSGL+14, PSGL+21, PQUE+21, PQUE+23, LST+5
IOM CH+6, E+2, SUPM+12
IOSL F+3, EN+22, EN+24, EN+27, EN+30, EN+35, EN+40, EN+45, EN+51, 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*, EN+3*, EN+31, EN+36, EN+41, EN+46, EN+50
>> LR("%" W+1
>> LR("%1" EN+21
>> LR("DIWF" QUE+9*, E+2
>> 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, EN+11*
>> 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+2, F+3, F+5, EN+10, EN+13, EN+17, EN+18, EN+19, EN+20
, EN+22, EN+24, EN+27, EN+29, EN+30, EN+33, EN+34, EN+35, EN+38, EN+39
, EN+40, EN+43, EN+44, EN+45, EN+48, EN+50, EN+51, EN+53, EN+55, S+4
, S+7, S+8, S+10, S+11, 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
>> LR("SPSM" EN+2*
>> LR(0 EN+32*, EN+37*, EN+42*, EN+47*
>> LRA QUE+10*, EN+12, EN+17, EN+18, EN+19, EN+20, EN+21, EN+25
>> LRAA GETP+2, GETP+3, GETP+8, GETP+9, GETP+10, QUE+9, QUE+10, PQUE+2, PQUE+6, LST+2
, LST+3, EN+3, FOC+18
LRADC FOC+1~, FOC+6*, FOC+14*, FOC+18
>> LRAN GETP+1, GETP+2, GETP+8, GETP+9, PQUE+1*, PQUE+2*, PQUE+6, SGL+3, FOC+18
LRAP LRSPRPT+5!, PSGL+1, PSGL+2, PSGL+7!, PSGL+16!, LST+1!, SGL+7*, FOC+2
>> LRAPX LRSPRPT+7
>> 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+8, PSGL+2*, PQUE+6*, PQUE+7, F+2, F+4, EN+4, EN+14, EN+29, EN+32
, EN+34, EN+37, EN+39, EN+42, EN+44, EN+47, EN+50, EN+53, EN+54, S+5
, S+7, S+10, 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+8, PSGL+2*, PQUE+6*, PQUE+7, F+2, F+4, EN+4, EN+14, EN+29, EN+32
, EN+34, EN+37, EN+39, EN+42, EN+44, EN+47, EN+50, EN+53, EN+54, S+5
, S+7, S+10, 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 EN+21, FOC+15
LRO EN+4!, EN+57*
LRO(68 LRSPRPT+4
>> LRP FOC+16
LRPMD LST+1!
>> LRPRAC EN+7*, EN+8, EN+9
>> LRPRAC(1 EN+8*, EN+9*
>> LRPRE EN+2, EN+56
LRPTR PSGL+3, PSGL+4, PQUE+7, PQUE+8, PQUE+9, PQUE+12!, SGL+1~, SGL+6
>> LRQ EN+5*
>> LRQ(9 SUPA+16
>> LRQUIT QUE+6*, PSGL+6, PSGL+12, PSGL+23, PQUE+3*, PQUE+13, PQUE+19, PQUE+31
>> LRRC EN+26
LRRMD LST+1!, EN+28
>> LRS(99 LRSPRPT+5!
LRSAV LRSPRPT+5!, 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+2, F+4, EN+4, EN+14, EN+28, EN+29, EN+32, EN+34, EN+37
, EN+39, EN+42, EN+44, EN+47, EN+50, EN+53, EN+54, S+5, S+7, S+10
, 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
>> LRTK EN+11
>> LRTK(1 EN+13
LRV LST+4!, F+2, F+4, EN+13*, EN+17*, EN+18*, EN+19*, EN+20*, EN+33*, EN+38*
, EN+43*, EN+48*, EN+53*, EN+54, S+5, S+7, S+10, A+1, A+3, SUPA+3
, SUPA+6, SUPA+8, SUPA+15, SUPM+3, SUPM+4, SUPM+14, SUPM+15
LRW LST+4!
LRW(5 EN+11
LRZ LST+4!, F+2*, F+5, S+7*, S+12, SUPM+14*, SUPM+18
MSG GETP+7!
MSG(1 GETP+4*, GETP+5*
MSG(2 GETP+6*
>> POP DEV+3
>> SEX FOC+17
>> SSN FOC+16
U QUE+10, EN+32, EN+37, EN+47, S+1, S+5, CONT+3
>> VADM(6 FOC+7
>> VAIN(2 EN+7
X GETP+9*, PQUE+6*, LST+7!, F+4*, EN+9*, EN+54*, S+1*, S+3, S+10*, 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*
>> ZTQUEUED LST+6
>> ZTREQ LST+6*
>> ZTRTN DEV+6*
>> ZTSAVE("LR*" DEV+6*
ZTSK DEV+7, DEV+8!
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