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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGNDX4

Package: IHS Patient Registration

Routine: AGNDX4


Information

AGNDX4 ; IHS/ASDS/EFG - PRINT ALL PATIENTS REGISTERED BY DAY(S) ;

Source Information

Source file <AGNDX4.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
IHS Patient Registration 2 READ^AG  (,ALIAS)^AGNDXP  
VA Fileman 1 ^%DT  

Entry Points

Name Comments DBIA/ICR reference
START ;EP - From TaskMan.
A3
A2
END
DEV

External References

Name Field # of Occurrence
^%DT AGNDX4+2, A2, A3
^%ZIS DEV
^%ZISC DEV+1, DEV+3, START+5
^%ZTLOAD DEV+3
KILL^%ZTLOAD END
READ^AG A2, A3
^AGNDXP START+4
ALIAS^AGNDXP A3+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter the BEGINNING DATE for these cards: "
  • Line Location: A2+0
Function Call: WRITE
  • Prompt: !!,"Enter the ENDING DATE for these cards: "
  • Line Location: A3+0
Function Call: WRITE
  • Prompt: !!,*7,"INVALID ENTRY - The END is before the BEGINNING."
  • Line Location: A3+1
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+2
^AUPNPAT("ADTE" START+2
^DPT - [#2] START+2
^TMP($J START+1!, START+2*, START+4, END!

Label References

Name Line Occurrences
A2 A2, A3, A3+1
A3 A3
DEV DEV+1, DEV+3
END A3+3
START DEV+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT AGNDX4+2*, A2*, A3*
>> %ZIS DEV*
AG DEV+3!, END!
AG("FD" AGNDX4+2*, A2, A3
AGALIAS DEV+2, DEV+3!, END!
AGBDATE A2*, A3+1, DEV+2, DEV+3!, START+2, END!
AGDT START+2*, END!
AGEDATE A3*, A3+1, DEV+2, DEV+3!, START+2, END!
AGNAME START+3*, START+4*, END!
>> DFN START+4*
>> DFOUT A2, A3, A3+3
>> DLOUT A2, A3
>> DQOUT A2, A3
DT AGNDX4+2*, A2, A3
DTIME A3*
>> DTOUT A2, A3, A3+3
>> DUOUT A2, A3, A3+3
G DEV+2*, DEV+3!
I START+4*, END!
IEN START+2*, START+4*, END!
IO START+3
IO("Q" DEV+1!
IO("S" DEV+1
ION DEV
IOP DEV*, END!
IOST DEV+1
>> POP DEV
U START+2
X AGNDX4+2*, A2*, A3*, END!
Y AGNDX4+2, A2*, A3*, DEV+2, END!
ZTDESC DEV+2*, DEV+3!
>> ZTQUEUED END
ZTRTN DEV+2*, DEV+3!
ZTSAVE DEV+3!
ZTSAVE( DEV+2*
ZTSAVE("AGALIAS" DEV+2*
ZTSK DEV+3!
ZTUCI DEV+2*, DEV+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All