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

Package: Lab Service

Routine: LRAPDPT


Information

LRAPDPT ; IHS/DIR/AAB - POW PTS 2/10/98 22:15 ; [ 07/08/1998 10:25 AM ]

Source Information

Source file <LRAPDPT.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 3 ^LRAP  (B,D,F,L,M,S,SSN,V,XR)^LRU  (BEG,END)^LRUTL  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRAPDPT  LRAPPG  

Entry Points

Name Comments DBIA/ICR reference
CK
A
EN ; Persian gulf registry
END
H
H1
DEV
AP
QUE
W
LRDFN
DATE
AU

External References

Name Field # of Occurrence
^LRAP LRAPDPT+4, EN+1
B^LRU DATE
D^LRU CK+3
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE
SSN^LRU CK+3
V^LRU END
XR^LRU LRAPDPT+4, EN+1
BEG^LRUTL DEV
END^LRUTL QUE+2
$$FMTE^XLFDT AP, AU

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?25,LRO(68)," SEARCH FOR",!?28,"PRISONER OF WAR VETERANS",!!
  • Line Location: LRAPDPT+4
Function Call: WRITE
  • Prompt: !!?25,LRO(68)," SEARCH FOR",!?28,"PERSIAN GULF VETERANS",!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"Patient",?40,"DOB",?60,"ID",!,LR("%")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LRN,?40,$P(P,"^"),?60,I,!?5,"Continued from page ",LRQ-1
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,LRN,?40,$P(P,"^"),?60,I,!?5,$P(P,"^",2)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,"Specimen date: ",$$FMTE^XLFDT(+LRX),?40,"Accession number: ",$P(LRX,"^",6)
  • Line Location: AP+0
Function Call: WRITE
  • Prompt: !,"Autopsy date: ",$$FMTE^XLFDT(+X),?30,"Autopsy number: ",$P(X,"^",6)
  • Line Location: AU+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(22 - [#22] CK+1
^DPT - [#2] CK+1, CK+2, CK+3
^LR - [#63] QUE+1, LRDFN, CK, AP, AU
^TMP($J QUE!, QUE+2!, CK+3*, W, A

Label References

Name Line Occurrences
@( A
A W
CK LRDFN
DATE EN+1
END LRAPDPT+4, DATE, DEV, QUE+2, EN+1
H QUE, H1, A
H1 AP
LRDFN QUE+1
W QUE+2

Naked Globals

Name Field # of Occurrence
^( CK+1, A, AP
^(0 CK, CK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A QUE+1*, W*
>> B A*
>> DFN CK*, CK+1, CK+2, CK+3
>> I H1, W*, A*
IO QUE
IOF QUE+2
IOSL A, AP
IOST QUE+2, H
>> LR("%" H+2, A
>> LR("F" QUE*, H
>> LR("Q" H, H1, W, A, AP
>> LRABV H+1, AP, AU
>> LRB QUE*, AP
>> LRC LRAPDPT+4*, CK+1, CK+2, EN+1*, H+1
>> LRDFN LRDFN*, CK, CK+3, A*, AP, AU
>> LRDPF CK+3*
>> LRE QUE*, AP
>> LRI AP*
>> LRLDT DATE*, QUE, QUE+1
>> LRLST H+1
>> LRN H1, W*, A
>> LRO(68 LRAPDPT+4, EN+1, H+1
>> LRP CK+3*
>> LRQ H1
>> LRSDT DATE*, QUE, QUE+1*, LRDFN
>> LRSS A, AP
>> LRSTR H+1
>> LRX AP*
>> LRXR QUE+1, LRDFN
>> P H1, A*
>> POP DEV
>> S(4 CK*, CK+1*, CK+3
>> SSN CK+3*
U AP, AU
>> X CK+1*, CK+2*, CK+3*, AU*
>> Y LRAPDPT+4, DATE, CK+3*, EN+1
>> ZTRTN DEV*
>> ZTSK DEV
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All