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

Package: IHS Changes To ADT

Routine: ADGPTLP


Information

ADGPTLP ; IHS/ADC/PDW/ENM - PRINT PATIENT LIST BY WARD ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGPTLP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 3 H^%DTC  EN^DIQ1  ^DIR  
IHS Changes To ADT 2 ^ADGPTLP0  (KILL,TIME)^ADGUTIL  
IHS VA Utilities 1 ^XBCLS  
Kernel 1 ^%ZISC  
Surgery 1 $$SDA^SRZPEP  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Changes To ADT 3 ADGPTLC  ADGPTLP0  ADGPTLP1  

Entry Points

Name Comments DBIA/ICR reference
END1 ;EP
PRNT1
HEAD ;***> subrtn to print heading
END ;***> eoj
HD1
PRNT
A1
A2
NEWPG ;EP;***> subrtn for end of page control

External References

Name Field # of Occurrence
H^%DTC A2+16
^%ZISC END1+2
^ADGPTLP0 A2+1
KILL^ADGUTIL END1+3
TIME^ADGUTIL HEAD+5
EN^DIQ1 A2+13
^DIR END+1, NEWPG+2
$$SDA^SRZPEP PRNT+5, PRNT+12
^XBCLS END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DGDS,?3,DGBED,?9,$E(DGNM,1,20)
  • Line Location: PRNT+1
Function Call: WRITE
  • Prompt: ?42,AGE
  • Line Location: PRNT+3
Function Call: WRITE
  • Prompt: ?50,$$SDA^SRZPEP(DFN)
  • Line Location: PRNT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNT+6
Function Call: WRITE
  • Prompt: ?47,$J(DGLOS,2)
  • Line Location: PRNT+8
Function Call: WRITE
  • Prompt: ?53,$S(DGO=1:$E(DGDX,1,25),DGO=2:DGSER,1:"")
  • Line Location: PRNT+9
Function Call: WRITE
  • Prompt: ?50,$$SDA^SRZPEP(DFN)
  • Line Location: PRNT+12
Function Call: WRITE
  • Prompt: !,DGLIN
  • Line Location: PRNT1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: END1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,DGLIN1
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?11,"*****Confidential Patient Data Covered by Privacy Act*****"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,DGDUZ,?80-$L(DGSITE)/2,DGSITE
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: ?80-$L(DGTY)/2,DGTY,?70,"Page: ",DGPG
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: ?80-$L(DGWARD)/2,DGWARD
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,DGLIN1
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !?3,"Room",?9,"Patient",?31,"Chart #",?41,"Age"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: ?55,"Nursing Notes",!?20,"(Admitting Diagnosis)"
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: ?46,"LOS",?61,$S(DGO=1:"Admitting",DGO=2:"Service",1:"")
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !?11,"(Provider)",?33,"(Community)",?61
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: "Diagnosis"
  • Condition for execution: DGO=1
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,DGLIN,!
  • Line Location: HD1+0
Routine Call
  • DIR
  • Line Location:
    • END+1
    • NEWPG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" PRNT+5, PRNT+12
^AUPNPAT - [#9000001] A2+10
^DD("DD" HEAD+6
^DIC(4 - [#4] ADGPTLP+5
^DIC(42 - [#42] HEAD+7
^DIC(45.7 - [#45.7] A2+18
^TMP("DGZPTL" A1, A2, A2+2, A2+5, END1+4!
^UTILITY("DIQ1" A2+12!, A2+14
^UTILTIY("DIQ1" A2+15!
^VA(200 - [#200] ADGPTLP+5, A2+9

Label References

Name Line Occurrences
A1 A2+1
A2 PRNT1
END A1
END1 A2+1, PRNT
HD1 HEAD+10
HEAD A1, NEWPG+1, NEWPG+3
NEWPG PRNT
PRNT A2+5
PRNT1 PRNT+4

Naked Globals

Name Field # of Occurrence
^( A2+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %H A2+16
>> AGE A2+3*, A2+14*, PRNT+3
>> DA A2+13*
>> DFN A2+3*, A2+6*, A2+10, A2+13, A2+14, PRNT+5, PRNT+12
>> DGAD A2+3*, A2+8*, A2+16
>> DGBED A2+4*, PRNT+1
>> DGCHART A2+3*, A2+10*, A2+11*, PRNT+2
>> DGCOM A2+3*, A2+7*, PRNT+11
>> DGDS A2+3*, A2+7*, PRNT+1
>> DGDUZ ADGPTLP+5*, HEAD+4
>> DGDX A2+3*, A2+8*, A2+17, A2+18, PRNT+7, PRNT+9
>> DGII A2+11*
>> DGLIN ADGPTLP+6*, PRNT1, HD1
>> DGLIN1 ADGPTLP+6*, HEAD+2, HEAD+8
>> DGLOS A2+3*, A2+16*, PRNT+8
>> DGNM A2+3*, A2+7*, PRNT+1
>> DGO A2+17, A2+18, PRNT+4, PRNT+9, HEAD+10, HEAD+11, HEAD+12
>> DGPG ADGPTLP+4*, HEAD+1, HEAD+2*, HEAD+5
>> DGPRV A2+3*, A2+8*, A2+9*, PRNT+10
>> DGR A1*, A2*, A2+1, A2+2
>> DGRM A2+2*, A2+4, A2+5
>> DGSER A2+3*, A2+17*, A2+18*, PRNT+9
>> DGSITE ADGPTLP+5*, HEAD+4
>> DGSTOP ADGPTLP+4*, A2+1, PRNT, NEWPG+1*, NEWPG+2*, NEWPG+3
>> DGSTR A2+5*, A2+6, A2+7, A2+8
>> DGTY HEAD+4*, HEAD+5
>> DGW ADGPTLP+9*, A1*, A2, A2+2, HEAD+7
>> DGWARD HEAD+7*
>> DGXX A2+10*, A2+11
>> DIC A2+13*
DIR END+1!, NEWPG+2!
DIR(0 END+1*, NEWPG+2*
>> DR A2+13*
DT HEAD+6
DUZ ADGPTLP+5
DUZ(2 ADGPTLP+5, A2+10
IO ADGPTLP+4
IOF HEAD+1
IOSL PRNT
IOST END+1, NEWPG+1, HEAD+1
U ADGPTLP+5, A2+1, A2+6, A2+7, A2+8, A2+9, A2+10, A2+18, PRNT, NEWPG+3
, HEAD+7
>> X A2+16*, PRNT+5*, PRNT+12*, NEWPG+2
>> Y HEAD+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All