Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call