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

Package: IHS Changes To ADT

Routine: ADGCEN3


Information

ADGCEN3 ; IHS/ADC/PDW/ENM - CENSUS AID-PATIENT LISTS ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGCEN3.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^%DT  NOW^%DTC  ^DIR  
IHS Changes To ADT 1 ^ADGCEN30  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG IHS CEN WARD MOVEMENTS  

Entry Points

Name Comments DBIA/ICR reference
BDATE
END
WD1
QUE
WARD ;select all wards or just one
EDATE

External References

Name Field # of Occurrence
^%DT BDATE+1, EDATE
NOW^%DTC BDATE
^%ZIS EDATE+5
HOME^%ZIS END
^%ZISC QUE+2
^%ZTLOAD QUE+2
^ADGCEN30 EDATE+5
^DIR WARD+2, WD1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ADGCEN3+6
Function Call: WRITE
  • Prompt: !!?30,"WARD CENSUS LISTING",!!
  • Line Location: ADGCEN3+6
Function Call: WRITE
  • Prompt: *7,?40,"** INACTIVE WARD **"
  • Line Location: WD1+1
Function Call: WRITE
  • Prompt: !!?10,"Date/Time CANNOT be in the future!",!!
  • Line Location: BDATE+3
Function Call: WRITE
  • Prompt: !!?10,"Ending date/time must be AFTER beginning date/time!",!!
  • Line Location: EDATE+2
Function Call: WRITE
  • Prompt: !!?10,"Date/Time CANNOT be in the future!",!!
  • Line Location: EDATE+3
Routine Call
  • %ZIS
  • Line Location:
    • END
Routine Call
  • DIR
  • Line Location:
    • WARD+2
    • WD1
Routine Call
  • %ZIS
  • Line Location:
    • EDATE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] WD1+1

Label References

Name Line Occurrences
BDATE WARD+3, BDATE+3, EDATE+2
EDATE EDATE+3
END WARD+2, BDATE+2, EDATE+1, EDATE+5
QUE EDATE+5
WARD WD1, WD1+1
WD1 WD1

Naked Globals

Name Field # of Occurrence
^("I" WD1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BDATE
>> %DT BDATE+1*, EDATE*
>> %DT("A" BDATE+1*, EDATE*
>> %ZIS EDATE+5*
DGBDT BDATE+2*, BDATE+3, EDATE+2, END!
DGEDT EDATE+1*, EDATE+2, EDATE+3, END!
DGI QUE+1*, END!
DGNOW BDATE*, BDATE+3, EDATE+3, END!
DGWD WARD+3*, WD1+2*, END!
DIR WARD+1!, WD1!, END!
DIR("A" WARD+1*
DIR("B" WARD+1*
DIR(0 WARD+1*, WD1*
>> DIRUT WARD+2, WD1
IO EDATE+5
IO("Q" EDATE+5, QUE!
IOF ADGCEN3+6
>> POP EDATE+5
U WD1+1
>> X BDATE+1*, EDATE*
Y WARD+3, WD1, WD1+1, WD1+2, BDATE+2, EDATE+1, END!
>> ZTDESC QUE*
>> ZTRTN QUE*
>> ZTSAVE( QUE+1*
ZTSK QUE+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All