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

Package: Lab Service

Routine: LRMIHDR


Information

LRMIHDR ;DALOI/CJS/BA/RLM-HEALTH DEPARTMENT REPORT ;2/19/91 10:46

Source Information

Source file <LRMIHDR.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Lab Service 3 IO^LRWU  ^LRWU3  (ADDPT,DASH,DD,KVAR,OPDPT,PT)^LRX  
Kernel 2 ^%ZISC  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 2 ^%DT  EN^DIQ  
Registration 1 KVAR^VADPT  

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

Package Total Caller Graph
Lab Service 1 LR HEALTH DEPT  

Entry Points

Name Comments DBIA/ICR reference
BEGIN
END
DQ
DATE
LIST
SPEC
PAT
WAIT
RACE ;ETHNICITY AND RACE MODS

External References

Name Field # of Occurrence
^%DT DQ+2
^%ZISC END
EN^DIQ PAT+15
IO^LRWU BEGIN
^LRWU3 BEGIN
ADDPT^LRX PAT+3
DASH^LRX DQ+2, LIST+2
DD^LRX DQ+2, PAT+2
KVAR^LRX END+2
OPDPT^LRX PAT+3
PT^LRX PAT+1
KVAR^VADPT PAT, PAT+16
$$FMTE^XLFDT LIST
$$NOW^XLFDT LIST

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,?5,"HEALTH DEPARTMENT REPORT ("
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: Y," - "
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: Y," - "
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: Y," - "
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: Y," - "
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: !!,?5,"Isolated Organism: ",$P(^LAB(61.2,LRBUG,0),U),!,"Printed : "_$$FMTE^XLFDT($$NOW^XLFDT,""),!
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: ?4," COLLECTION SAMPLE: ",$P(^(0),U)
  • Line Location: SPEC+1
Function Call: WRITE
  • Prompt: ?40," SPECIMEN: ",$P(^(0),U)
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !!,PNM,?25," ID: ",SSN,?44," DOB: ",Y,?60," SEX: ",SEX
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: !,"Accession Number: ",LRACC,!
  • Line Location: PAT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: WAIT+1
Function Call: WRITE
  • Prompt: !,"Veteran's ethnicity: "_$E(ERT(1),3,999)
  • Line Location: RACE+10
Function Call: WRITE
  • Prompt: !?30,$E(ERT(I),3,999)
  • Line Location: RACE+11
Function Call: WRITE
  • Prompt: !,"Veteran's race: "_$E(ERT(1),3,999)
  • Line Location: RACE+22
Function Call: WRITE
  • Prompt: !?25,$E(ERT(I),3,999)
  • Line Location: RACE+23

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] PAT+1
^DIC(10 - [#10] PAT+5, PAT+8
^DIC(11 - [#11] PAT+9
^LAB(61 - [#61] SPEC+2
^LAB(61.2 - [#61.2] LIST
^LAB(62 - [#62] SPEC+1
^LR - [#63] SPEC, PAT+1
^LR("AD" DQ+3, DATE, LIST+1

Label References

Name Line Occurrences
DATE DQ+3
END DQ+4
LIST DATE
PAT LIST+1
RACE PAT+12
SPEC LIST+1
WAIT LIST+1

Naked Globals

Name Field # of Occurrence
^( LIST+1, SPEC, PAT+6
^(0 SPEC, SPEC+1, SPEC+2, PAT+1, PAT+8, PAT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT END+1!, DQ+2*
A END+1!
AGE END+1!
D0 END+1!
DA END+1!, PAT+15*
DFN END+1!, PAT+1*, PAT+6, PAT+7, PAT+15
DIC END+1!, PAT+1*, PAT+5, PAT+6, PAT+7
DL END+1!
DOB END+1!, PAT+2
DR END+1!, DATE*
DTIME WAIT+1
>> DTOUT PAT+15
>> DUOUT PAT+15
DX END+1!
ERT RACE+2!, RACE+3*, RACE+12!*, RACE+24!
ERT( RACE+4*, RACE+7, RACE+8*, RACE+11, RACE+13*, RACE+15, RACE+16*, RACE+17, RACE+18*, RACE+19*
, RACE+23
ERT(1 RACE+9*, RACE+10, RACE+20*, RACE+21*, RACE+22
I END+1!, WAIT*, RACE+5*, RACE+7, RACE+8, RACE+11*, RACE+14*, RACE+15, RACE+16, RACE+17
, RACE+19, RACE+23*
IO DQ
IOF END, WAIT+1
IOSL WAIT
IOST END, DQ+2
LRACC END+1!, LIST+1*, SPEC, PAT+10
LRBUG END+1!, DATE*, LIST, LIST+1
LRDFN END+1!, LIST+1*, SPEC, PAT+1
LRDPF END+1!, PAT+1*, PAT+3
LRDT END+1!, DQ+3*, DATE, LIST+1
LREDT BEGIN*, END+1!, DQ+1, DQ+2, DQ+3
LREND BEGIN*, END+1!, DQ+3, DATE, LIST+1, PAT+15*, WAIT+1*
LRHC END+1!, DQ+2*, LIST+1, LIST+2
LRIDT END+1!, SPEC*
LRMARST END+1!, PAT+4*, PAT+7*, PAT+9*, PAT+13, PAT+14
LROCCU END+1!, PAT+4*, PAT+7*, PAT+13, PAT+14
LRPHONE END+1!, PAT+4*, PAT+6*, PAT+11
LRRACE END+1!, PAT+5*, PAT+7*, PAT+8*, PAT+13, PAT+14
LRSAMP END+1!, SPEC*, SPEC+1
LRSDT END+1!, DQ+1*, DQ+2, DQ+3
LRSPEC END+1!, SPEC*, SPEC+2
LRWRD END+1!
PNM END+1!, PAT+2
POP END+1!
S END+1!
SEQ RACE+2!, RACE+3*, RACE+4*, RACE+7, RACE+8, RACE+11, RACE+12*, RACE+13*, RACE+15, RACE+16
, RACE+17, RACE+18*, RACE+19, RACE+23, RACE+24!
SEX END+1!, PAT+2
SSN END+1!, PAT+2
U LIST, SPEC, SPEC+1, SPEC+2, PAT+1, PAT+4, PAT+5, PAT+6, PAT+7, PAT+8
, PAT+9, RACE+21
>> VADM(10 PAT+4
>> VADM(11 RACE+4, RACE+5, RACE+7, RACE+8
>> VADM(12 RACE+13, RACE+14, RACE+15, RACE+16, RACE+17, RACE+19
>> VADM(8 RACE+21
>> VAPA(8 PAT+4
>> VAPD(6 PAT+4
X END+1!, DQ+1*, DQ+2*, PAT+5*, PAT+6*, PAT+7*, WAIT+1*
Y END+1!, DQ+2, PAT+2*
Z0 END+1!
>> ZTQUEUED DQ
>> ZTREQ DQ*
>> ZTRTN BEGIN*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All