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

Package: IHS Patient Registration

Routine: AGADDR1


Information

AGADDR1 ; IHS/ASDS/EFG - REGISTRATION MAILING LIST PRINT/EDIT (2 OF 2) ;

Source Information

Source file <AGADDR1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS Patient Registration 3 (PTLK,READ,YN)^AG  (,END)^AGADDR  ^AGDICLK  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
IHS Patient 1 (RESET,SET)^AUPNLKZ  
VA Fileman 1 DD^%DT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Patient Registration 1 AGADDR  

Entry Points

Name Comments DBIA/ICR reference
VAROLD ;EP
A
C
B
E
D
NEWLST ;EP
DEV
START ;EP - From TaskMan.
NEWLST4
QUES
NEWLST2
NEWLST3
NEWLST1 ;Display List of Patients on Screen.
E0
NEWLSTX

External References

Name Field # of Occurrence
DD^%DT NEWLST+3
^%ZIS C, DEV
^%ZISC C+1, DEV+2, DEV+4
^%ZTLOAD DEV+4
PTLK^AG VAROLD+1
READ^AG NEWLST+4, NEWLST4, B, D
YN^AG B+1
^AGADDR VAROLD+2, B+1
END^AGADDR E
^AGDICLK E0+4, E0+5, E0+6, E0+7, E0+8
RESET^AUPNLKZ VAROLD+1
SET^AUPNLKZ VAROLD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Date Generated : "
  • Line Location: NEWLST+3
Function Call: WRITE
  • Prompt: Y," Last Updated : "
  • Line Location: NEWLST+3
Function Call: WRITE
  • Prompt: Y," Last Updated : "
  • Line Location: NEWLST+3
Function Call: WRITE
  • Prompt: ?5,"Do you want to see a list of these names (Y/N) N// "
  • Line Location: NEWLST+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEWLST1+1
Function Call: WRITE
  • Prompt: ?40,$P(^DPT(AGV("ZR"),0),U),!
  • Line Location: NEWLST3+2
Function Call: WRITE
  • Prompt: $P(^DPT(AGV("ZR"),0),U)
  • Line Location: NEWLST3+3
Function Call: WRITE
  • Prompt: !,"Enter ""^"" to Stop List <RETURN> to Continue "
  • Line Location: NEWLST4+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWLST4+0
Function Call: WRITE
  • Prompt: !!,"Start with which patient? (RETURN = beginning) "
  • Line Location: VAROLD+1
Function Call: WRITE
  • Prompt: !!,"This patient is not on the list - try again."
  • Line Location: VAROLD+2
Function Call: WRITE
  • Prompt: !!,"DO YOU WANT TO PRINT A TEST LABEL? (Y/N) //Y "
  • Line Location: B+0
Function Call: WRITE
  • Prompt: AGV("LINE"),!
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !!!
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !!,"How many copies of each label? (1 - 5) 1// "
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !!,"You may make from 1 to 5 copies of each label.",!!
  • Line Location: D+0
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: AGNAME,!,AGADRS1,!,AGADRS2,!!!!
  • Line Location: E0+9
Function Call: WRITE
  • Prompt: !!,"A sample label will be printed so that you",!,"may allign your labels on the printer."
  • Line Location: QUES+0
Routine Call
  • %ZIS
  • Line Location:
    • C
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+3
^AGADLIST - [#9009065] NEWLST+1, NEWLST+2, NEWLST+3, NEWLST2, NEWLST3, NEWLST3+1, VAROLD+2, E, E0, E0+1
^AUTTLOC - [#9999999.06] DEV+3
^DIC(5 - [#5] E0+7
^DPT - [#2] NEWLST3+2, NEWLST3+3, A, E0+2

Label References

Name Line Occurrences
B VAROLD+2, B+1, C+2, D, QUES
C B+1
D B+1, D
DEV DEV+2, DEV+4
E E0
E0 E0+2, E0+10
NEWLST2 NEWLST3
NEWLST3 NEWLST4+1
NEWLST4 NEWLST3+2
NEWLSTX NEWLST2, NEWLST4
QUES B+1
START DEV+1
VAROLD VAROLD+2

Naked Globals

Name Field # of Occurrence
^(0 NEWLST+1*, NEWLST+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
AG DEV+4!
AG("#" D+1*, E0+9
AG("I" E0+9*
AG("LKDATA" E0+7
AG("LKPRINT" E0+4, E0+5, E0+6, E0+8
AG("START" A*, DEV+3, START+1
>> AGADRS1 E0+4*, E0+5*, E0+9
>> AGADRS2 E0+4*, E0+6*, E0+7*, E0+8*, E0+9
>> AGLIST NEWLST+1, NEWLST+2, NEWLST+3, NEWLST2, NEWLST3, NEWLST3+1, VAROLD+2, E, E0, E0+1
>> AGNAME E0+4*, E0+9
>> AGV("LC" START+1*
>> AGV("LINE" C
>> AGV("P3" NEWLST+2*
>> AGV("P4" NEWLST+2*, NEWLST+3, NEWLST+4
>> AGV("RR" NEWLST1+1*, NEWLST3+1*, NEWLST3+2, NEWLST4, START+1*, E0*, E0+1
>> AGV("RX" NEWLST1+1*, NEWLST3*, NEWLST3+1
>> AGV("STX" START+1*, E*, E0
>> AGV("ZR" NEWLST3+1*, NEWLST3+2, NEWLST3+3
>> DA E0+4*
>> DFN VAROLD+2, A, E0+1*, E0+2, E0+4
>> DFOUT NEWLST+5, B+1, D
DIC VAROLD+1!, E0+4*
DIC("W" VAROLD+1*
>> DLOUT NEWLST+5, B+1, D
>> DQOUT B+1, D
>> DR E0+4*, E0+5*, E0+6*, E0+7*, E0+8*
>> DTOUT NEWLST+5, B+1, D
>> DUOUT NEWLST+5, NEWLST4, VAROLD+2, B+1, D
DUZ(2 DEV+3
G DEV+3*, DEV+4!
>> I C*
IO C, E
IO("Q" DEV+1!
IO("S" DEV+2
ION DEV
>> IOP DEV*
IOST DEV+2
>> POP C, DEV
>> R NEWLST1+1*, NEWLST2*, NEWLST3
U NEWLST+2, NEWLST+3, NEWLST3+1, NEWLST3+2, NEWLST3+3, A, DEV+3, E0+1, E0+7
>> Y NEWLST+3*, NEWLST+5, B+1, D*, D+1, DEV+3
ZTDESC DEV+3*, DEV+4!
ZTRTN DEV+3*, DEV+4!
ZTSAVE DEV+4!
ZTSAVE( DEV+3*
ZTSAVE("AG(""START"")" DEV+3*
ZTSK DEV+4!
ZTUCI DEV+3*, DEV+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All