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 [ 05/01/2003 7:12 AM ]

Source Information

Source file <LRMIHDR.m>

Call Graph

Call Graph Total: 9

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  
IHS Changes To Lab 1 $$ISPIMS^BLRUTIL  
Registration 1 KVAR^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LR HEALTH DEPT  LR IHS HEALTH DEPT  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DQ+2
^%ZISC END
$$ISPIMS^BLRUTIL PAT+2
EN^DIQ PAT+21
IO^LRWU BEGIN
^LRWU3 BEGIN
ADDPT^LRX PAT+9
DASH^LRX DQ+2, LIST+2
DD^LRX DQ+2
KVAR^LRX END+5
OPDPT^LRX PAT+9
PT^LRX PAT+4
KVAR^VADPT PAT+22
$$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+4
Function Call: WRITE
  • Prompt: !!,PNM,?25," ID: ",SSN,?44," DOB: ",Y,?60," SEX: ",SEX
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: !!,PNM,?25,"HCRN: ",HRCN,?44," DOB: ",DOB,?60," SEX: ",SEX
  • Line Location: PAT+7
Function Call: WRITE
  • Prompt: !,"Accession Number: ",LRACC,!
  • Line Location: PAT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+19
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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+4
^DIC(10 - [#10] PAT+11, PAT+14
^DIC(11 - [#11] PAT+15
^LAB(61 - [#61] SPEC+2
^LAB(61.2 - [#61.2] LIST
^LAB(62 - [#62] SPEC+1
^LR - [#63] SPEC, PAT+4
^LR("AD" DQ+3, DATE, LIST+1

Label References

Name Line Occurrences
@( PAT+2
DATE DQ+3
END DQ+4
LIST DATE
PAT LIST+1
RACE PAT+18
SPEC LIST+1
WAIT LIST+1

Naked Globals

Name Field # of Occurrence
^( LIST+1, SPEC, PAT+12
^(0 SPEC, SPEC+1, SPEC+2, PAT+4, PAT+14, PAT+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT END+3!, DQ+2*
A END+3!
AGE END+3!
D0 END+3!
DA END+3!, PAT+21*
DFN END+3!, PAT+4*, PAT+12, PAT+13, PAT+21
DIC END+3!, PAT+4*, PAT+11, PAT+12, PAT+13
DL END+3!
DOB END+3!, PAT+7
DR END+3!, DATE*
DTIME WAIT+1
>> DTOUT PAT+21
>> DUOUT PAT+21
DX END+3!
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
HRCN END+3!, PAT+7
I END+3!, 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+3!, LIST+1*, SPEC, PAT+16
LRBUG END+3!, DATE*, LIST, LIST+1
LRDFN END+3!, LIST+1*, SPEC, PAT+4
LRDPF END+3!, PAT+4*, PAT+9
LRDT END+3!, DQ+3*, DATE, LIST+1
LREDT BEGIN*, END+3!, DQ+1, DQ+2, DQ+3
LREND BEGIN*, END+3!, DQ+3, DATE, LIST+1, PAT+21*, WAIT+1*
LRHC END+3!, DQ+2*, LIST+1, LIST+2
LRIDT END+3!, SPEC*
LRMARST END+3!, PAT+10*, PAT+13*, PAT+15*, PAT+19, PAT+20
LROCCU END+3!, PAT+10*, PAT+13*, PAT+19, PAT+20
LRPHONE END+3!, PAT+10*, PAT+12*, PAT+17
LRRACE END+3!, PAT+11*, PAT+13*, PAT+14*, PAT+19, PAT+20
LRSAMP END+3!, SPEC*, SPEC+1
LRSDT END+3!, DQ+1*, DQ+2, DQ+3
LRSPEC END+3!, SPEC*, SPEC+2
LRWRD END+3!
PNM END+3!, PAT+7
POP END+3!
S END+3!
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+3!, PAT+7
SSN END+3!
U LIST, SPEC, SPEC+1, SPEC+2, PAT+4, PAT+10, PAT+11, PAT+12, PAT+13, PAT+14
, PAT+15, RACE+21
>> VADM(10 PAT+10
>> 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+10
>> VAPD(6 PAT+10
X END+3!, DQ+1*, DQ+2*, PAT+11*, PAT+12*, PAT+13*, WAIT+1*
Y END+3!, DQ+2
Z0 END+3!
>> 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