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  | All
Print Page as PDF
Routine: LRAPSNMD

Package: Lab Service

Routine: LRAPSNMD


Information

LRAPSNMD ;DALOI/STAFF - Display/print SNOMED codes;Feb 27, 2009

Source Information

Source file <LRAPSNMD.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$CJ,$$LOW)^XLFSTR  
VA FileMan 3 $$GET1^DID  $$GET1^DIQ  ^DIR  
Automated Lab Instruments 1 $$IEN2SCT^LA7VHLU6  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Lab Service 2 LRAPRES  LRSPRPT  

Entry Points

Name Comments DBIA/ICR reference
INIT(LRDFN,LRSS,LRI,LRSF,LRAA,LRAN,LRAD,LRDEM,LRDEV) ;
; This routine displays SNOMED codes and their description for the
; given record in the LAB DATA (#63) file.
MAIN ;
CHECK ;
ASKDEV ;
REPORT ;
WRITE(LRP1,LRP2,LRP3,LRP4,LRP5) ;
; LRP1=File number
; LRP2=IEN string
; LRP3=Case (Upper or Lower)
; LRP4=Prefix
; LRP5=Tab position
WSNM ; Write SNOMED I codes
WSCT ; Write SCT codes
HDR ;
END ;

External References

Name Field # of Occurrence
^%ZIS ASKDEV+2
HOME^%ZIS ASKDEV+8
^%ZISC END+2
^%ZTLOAD ASKDEV+7
$$GET1^DID REPORT+27, REPORT+38, REPORT+44, REPORT+51
$$GET1^DIQ REPORT+7, REPORT+8, REPORT+29, WRITE+8, WRITE+10, WSNM+4, WSCT+3
^DIR HDR+3
$$IEN2SCT^LA7VHLU6 WSCT+4
$$CJ^XLFSTR REPORT+56
$$LOW^XLFSTR WRITE+9
$$GET^XPAR REPORT+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No SNOMED codes found."
  • Line Location: CHECK+5
Function Call: WRITE
  • Prompt: !!,"No SNOMED codes found."
  • Line Location: CHECK+9
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: !,"Tissue Specimen(s): ",!
  • Line Location: REPORT+16
Function Call: WRITE
  • Prompt: ?5,$P($G(^LR(LRDFN,LRSS,LRI,.1,LRX,0)),U),!
  • Line Location: REPORT+20
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("(End of Report)",IOM)
  • Line Location: REPORT+56
Function Call: WRITE
  • Prompt: !?LRP5,LRSM(2)_": "_LRSM(1)
  • Line Location: WSNM+2
Function Call: WRITE
  • Prompt: !,?LRP5
  • Line Location: WSCT+6
Function Call: WRITE
  • Prompt: $S(LRP4="T":"Topography: ",LRP4="E":"Etiology: ",1:"")
  • Line Location: WSCT+7
Function Call: WRITE
  • Prompt: $P(LRSCT,"^")," (",$P(LRSCT,"^",3),") ",$P(LRSCT,"^",2)
  • Line Location: WSCT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,LRSEC,?24,"SNOMED CODE LISTING",?49,"Acc: ",LRACC
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Patient: ",$G(LRDEM("PNM"))
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?49,$S(LRAU:"Resident: ",1:"Physician: ")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: $E($G(LRDEM("PRO")),1,18)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,"Autopsy Date: ",$G(LRDEM("AUDT")),?35,$E($G(LRDEM("AUTYP")),1,12)
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: ?49,"Date Died: ",$G(LRDEM("DTH"))
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,"ID: ",$G(LRDEM("SSN"))
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: ?24,"Sex: ",$G(LRDEM("SEX")),?49,"DOB: ",$G(LRDEM("DOB"))
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: ?71,"Age:",$J($G(LRDEM("AGE")),3)
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: ?24,"DOB: ",$G(LRDEM("DOB")),?49,"Age At Death: ",$G(LRDEM("AGE"))
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: ?72,"Sex: ",$G(LRDEM("SEX"))
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !,LRL
  • Line Location: HDR+21
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+2
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+8
Routine Call
  • DIR
  • Line Location:
    • HDR+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(68 - [#68] GET1^DIQ
68.02 GET1^DIQ
^LRO(69.2 - [#69.2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] CHECK+3, CHECK+7, REPORT+18, REPORT+20

Label References

Name Line Occurrences
ASKDEV MAIN+2
CHECK REPORT+21
END MAIN+3, MAIN+5
HDR REPORT+13, REPORT+19, WRITE+17
REPORT MAIN+4
WRITE REPORT+34, REPORT+40, REPORT+46, REPORT+54
WSCT WRITE+15
WSNM WRITE+12, WRITE+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+3!
>> %ZIS ASKDEV+2*
DIR HDR+2!, END+3!
DIR(0 HDR+2*
DIRUT END+3!
DT WSCT+4
DTOUT HDR+4, END+3!
DUOUT END+3!
IO REPORT+1
IO("Q" ASKDEV+4, ASKDEV+8!
IOF REPORT+1, HDR+5, END+1
IOM REPORT+56
IOSL REPORT+19, WRITE+17
IOST REPORT+1, HDR+1, HDR+7, END+1
LRA REPORT+3~, REPORT+30*, REPORT+31*, REPORT+33
LRA1 REPORT+3~, REPORT+36*, REPORT+37*, REPORT+39, REPORT+49*, REPORT+50*, REPORT+52
LRA2 REPORT+3~, REPORT+42*, REPORT+43*, REPORT+45
LRAA INIT~, INIT+26, REPORT+6, REPORT+8, REPORT+29
LRACC REPORT+4~, REPORT+7*, HDR+6
LRAD INIT~, INIT+27, REPORT+6
LRAN INIT~, INIT+26, REPORT+6
LRAU INIT+25~, INIT+29*, INIT+30, CHECK+2, REPORT+15, REPORT+23, REPORT+25, HDR+9, HDR+11, HDR+15
, HDR+18
LRCASE REPORT+2~, REPORT+24*, REPORT+29*, REPORT+34, REPORT+40, REPORT+46, REPORT+54
LRDEM INIT~
LRDEM("AGE" HDR+17, HDR+19
LRDEM("AUDT" HDR+12
LRDEM("AUTYP" HDR+12
LRDEM("DOB" HDR+16, HDR+19
LRDEM("DTH" HDR+13
LRDEM("PNM" HDR+8
LRDEM("PRO" HDR+10
LRDEM("SEX" HDR+16, HDR+20
LRDEM("SSN" HDR+14
LRDEV INIT~, MAIN+1*, MAIN+2, END+2
LRDFN INIT~, INIT+26, CHECK+3, CHECK+7, REPORT+18, REPORT+20, REPORT+24, REPORT+28
LRDFP REPORT+4~, REPORT+48*, REPORT+49
LRDFP(1 REPORT+49*, REPORT+53
LRDFP(2 REPORT+49*, REPORT+51
LRFILE REPORT+2~, REPORT+24*, REPORT+26*, REPORT+31, REPORT+37, REPORT+43, REPORT+50
LRFILE1 REPORT+2~, REPORT+24*, REPORT+27*, REPORT+34, REPORT+38, REPORT+51
LRFILE2 REPORT+2~, REPORT+38*, REPORT+40, REPORT+44, REPORT+51*, REPORT+54
LRFILE3 REPORT+2~, REPORT+44*, REPORT+46
LRI INIT~, INIT+30, CHECK+7, REPORT+18, REPORT+20, REPORT+28
LRIENS REPORT+3~, REPORT+6*, REPORT+7, REPORT+24*, REPORT+28*, REPORT+33
LRIENS1 REPORT+3~, REPORT+33*, REPORT+34, REPORT+39, REPORT+52
LRIENS2 REPORT+3~, REPORT+39*, REPORT+40, REPORT+45, REPORT+52*, REPORT+54
LRIENS3 REPORT+3~, REPORT+45*, REPORT+46
LRL INIT+25~, INIT+28*, HDR+21
LRP1 REPORT+4~, WRITE~, WRITE+8, WRITE+10, WSNM+4, WSCT+3
LRP2 REPORT+4~, WRITE~, WRITE+8, WRITE+10, WSNM+4, WSCT+3
LRP3 REPORT+4~, WRITE~, WRITE+9
LRP4 REPORT+4~, WRITE~, WRITE+10, WRITE+12, WRITE+13, WRITE+15, WSNM+3, WSCT+4, WSCT+7
LRP5 REPORT+4~, WRITE~, WSNM+2, WSCT+6
LRPG REPORT+4~, REPORT+9*, HDR+1, HDR+5*, HDR+7
LRPRFX REPORT+4~, REPORT+53*, REPORT+54
LRPSNM REPORT+4~, REPORT+10*, REPORT+11*, WRITE+12, WRITE+15, WSCT+7
LRQUIT INIT+25~, MAIN+1*, MAIN+3, CHECK+6*, CHECK+10*, ASKDEV+3*, ASKDEV+9*, REPORT+9*, REPORT+15, REPORT+18
, REPORT+19, REPORT+22, REPORT+31, REPORT+37, REPORT+43, REPORT+50, REPORT+55, HDR+1, HDR+4*
LRSB CHECK+1~, CHECK+3*, CHECK+4, CHECK+7*, CHECK+8
LRSCT WRITE+6~, WSCT+4*, WSCT+5, WSCT+8
LRSEC REPORT+4~, REPORT+8*, HDR+6
LRSF INIT~, INIT+26, REPORT+27
LRSM WRITE+6~
LRSM(1 WRITE+8*, WRITE+9*, WSNM+2
LRSM(2 WRITE+10*, WSNM+2
LRSM(3 WSNM+4*, WSNM+5
LRSS INIT~, INIT+26, INIT+29, CHECK+7, REPORT+18, REPORT+20
LRX REPORT+2~, REPORT+17*, REPORT+18*, REPORT+20, WSCT+2~, WSCT+3*, WSCT+4
>> POP MAIN+3, ASKDEV+3
U REPORT+20, HDR+4
X HDR+4, END+3!
Y END+3!
>> ZTDESC ASKDEV+5*
>> ZTQUEUED END+2
>> ZTREQ END+2*
>> ZTRTN ASKDEV+6*
>> ZTSAVE("LR*" ASKDEV+6*
ZTSK ASKDEV+7, ASKDEV+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 |  Local Variables  | All