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

Package: IHS Changes To ADT

Routine: ADGCEN31


Information

ADGCEN31 ; IHS/ADC/PDW/ENM - PRINT CENSUS AID-PATIENT LIST ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGCEN31.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS Changes To ADT 2 (,END1)^ADGCEN32  TIME^ADGUTIL  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGCEN30  

Entry Points

Name Comments DBIA/ICR reference
END1
NEWBORN
TRANSOUT
F3
END
HD1
DEATHS
DISCH
F9
F1
F2
NEXT
TRANSIN
HEAD ;***> subrtn to print heading
INIT2 ;
INIT1
NEWPG ;***> subrtn for end of page control
F4
WARD
FIND

External References

Name Field # of Occurrence
^ADGCEN32 END
END1^ADGCEN32 END1
TIME^ADGUTIL HEAD+5
^DIR NEXT, NEWPG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?45,"CENSUS CHANGE FOR WARD: ",$J(DGTOTL,3)
  • Line Location: DEATHS+1
Function Call: WRITE
  • Prompt: !!?37,"NEWBORN CENSUS CHANGE FOR WARD: ",$J(DGX,3)
  • Line Location: NEWBORN+5
Function Call: WRITE
  • Prompt: !!?80-$L(DGMOVE)/2,DGMOVE
  • Line Location: FIND+1
Function Call: WRITE
  • Prompt: !?3,DGTM,?20,DGNM,?50,$J(DGCHT,6)
  • Line Location: F3+5
Function Call: WRITE
  • Prompt: !?60,"SUBTOTAL: ",$J(DGCOUNT,3)
  • Line Location: F4+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,DGLIN
  • 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: ",DGPAGE
  • 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: !?80-$L(DGDATE)/2,DGDATE,!,DGLIN
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !?3," Time",?20,"Patient Name",?50,"Chart #"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,"Ward",?15,"Beg Census Admits Net Transfers Discharges Ending Census"
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !,DGLIN
  • Line Location: HD1+0
Routine Call
  • DIR
  • Line Location:
    • NEXT
    • NEWPG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] F3+2
^DD("DD" ADGCEN31+8, HEAD+6
^DIC(4 - [#4] ADGCEN31+9
^DIC(42 - [#42] ADGCEN31+14, INIT1, INIT1+1, INIT1+2
^TMP($J ADGCEN31+14*, INIT1+3*, WARD, NEWBORN, F1, F2, F3
^VA(200 - [#200] ADGCEN31+9

Label References

Name Line Occurrences
END WARD
END1 WARD+1, TRANSIN, TRANSOUT, DISCH, DEATHS, NEWBORN+1, NEWBORN+2, NEWBORN+3
F1 F2
F2 F3, F3+5
F4 FIND, F1, F3+3
F9 F4+1, F4+4, F4+5, F4+6
FIND WARD+1, TRANSIN, TRANSOUT, DISCH, DEATHS, NEWBORN+1, NEWBORN+2, NEWBORN+3
HD1 HEAD+9
HEAD WARD, NEWPG+1, NEWPG+3
INIT1 ADGCEN31+13, INIT1+2, INIT1+3
INIT2 ADGCEN31+14, INIT1
NEWPG FIND, F3+3
NEXT NEWBORN
WARD NEXT+1

Naked Globals

Name Field # of Occurrence
^("I" INIT1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN F2*, F3*, F3+2
>> DGBDT ADGCEN31+8
>> DGCHT F3+2*, F3+5
>> DGCN( F4+3*, F4+7*
>> DGCOUNT FIND+1*, F3+5*, F4, F4+2, F4+3, F4+4, F4+5, F4+6, F4+7
>> DGCT("NEWBORN" NEWBORN+4, F4+4*, F4+5*, F4+6*
>> DGDATE ADGCEN31+8*, ADGCEN31+11*, HEAD+8
>> DGDT WARD+1*, TRANSIN*, TRANSOUT*, DISCH*, DEATHS*, NEWBORN+1*, NEWBORN+2*, NEWBORN+3*, F1*, F2
, F3, F3+4
>> DGDUZ ADGCEN31+9*, HEAD+4
>> DGEDT ADGCEN31+8
>> DGI ADGCEN31+10*
>> DGLIN HEAD+2*, HEAD+8, HD1*
>> DGMOVE WARD+1*, TRANSIN*, TRANSOUT*, DISCH*, DEATHS*, NEWBORN+1*, NEWBORN+2*, NEWBORN+3*, FIND+1
>> DGNM F1*, F2*, F3, F3+5
>> DGPAGE ADGCEN31+8*, HEAD+1, HEAD+2*, HEAD+5
>> DGPOS( ADGCEN31+10*, F4+3, F4+7
>> DGSITE ADGCEN31+9*, HEAD+4
>> DGSTOP ADGCEN31+11*, WARD+1, TRANSIN, TRANSOUT, DISCH, DEATHS, NEWBORN+1, NEWBORN+2, NEWBORN+3, NEXT*
, FIND, F3+3, NEWPG+1*, NEWPG+2*, NEWPG+3
>> DGTM F3+4*, F3+5
>> DGTOTL WARD*, DEATHS+1, F4+2*, F4+7*
>> DGTY HEAD+4*, HEAD+5
>> DGW INIT2+3*, WARD*, NEWBORN, F1, F2, F3, F4+3, F4+7, HEAD+7, HEAD+9
>> DGWARD HEAD+7*
>> DGWD ADGCEN31+13, ADGCEN31+14
>> DGWW ADGCEN31+11*, ADGCEN31+14*, INIT1*, INIT1+1, INIT1+3
>> DGWW1 INIT1+1*, INIT1+2
>> DGX ADGCEN31+10*, WARD+1*, TRANSIN*, TRANSOUT*, DISCH*, DEATHS*, NEWBORN+1*, NEWBORN+2*, NEWBORN+3*, NEWBORN+4*
, NEWBORN+5, F1, F2, F3, F4+1, F4+3, F4+4, F4+5, F4+6, F4+7
>> DGY F4+3*, F4+7*
DIR NEXT!, NEWPG+2!
DIR(0 NEXT*, NEWPG+2*
DT HEAD+6
DUZ ADGCEN31+9
DUZ(2 ADGCEN31+9, F3+2
IOF HEAD+1
IOSL FIND, F3+3
IOST NEXT, NEWPG+1, HEAD+1
U ADGCEN31+9, ADGCEN31+14, WARD+1, TRANSIN, TRANSOUT, DISCH, DEATHS, NEWBORN+1, NEWBORN+2, NEWBORN+3
, NEWBORN+4, FIND, F3+2, F3+3, F4+3, F4+4, F4+5, F4+6, F4+7, NEWPG+3
>> X NEXT, NEWPG+2
>> Y ADGCEN31+8*, ADGCEN31+11, 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