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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AGADDR

Package: IHS Patient Registration

Routine: AGADDR


Information

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

Source Information

Source file <AGADDR.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 ^DIC  FILE^DICN  ^DIE  ^DIK  
IHS Patient Registration 2 (PTLK,READ)^AG  (NEWLST,VAROLD)^AGADDR1  
Kernel 2 ^%ZISC  KILL^%ZTLOAD  
IHS Patient 1 (RESET,SET)^AUPNLKZ  
IHS VA Utilities 1 SET^XBSITE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 1 ACHSPATLABS  
IHS Patient Registration 1 AGADDR1  

Entry Points

Name Comments DBIA/ICR reference
END1 ;EP
END ;EP
PEXIST
GNEW
DEL
GNEW2
VAR

External References

Name Field # of Occurrence
^%ZISC END+1
KILL^%ZTLOAD END1+2
PTLK^AG GNEW2
READ^AG VAR+2, GNEW2+1, PEXIST+2
NEWLST^AGADDR1 GNEW+5, PEXIST+1
VAROLD^AGADDR1 PEXIST+3
RESET^AUPNLKZ GNEW2
SET^AUPNLKZ GNEW2
^DIC GNEW, PEXIST+1
FILE^DICN GNEW2+4
^DIE GNEW+1, GNEW+4
^DIK DEL+2
SET^XBSITE VAR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GNEW+0
Function Call: WRITE
  • Prompt: *7,!!,"MAILING LIST IN USE BY ANOTHER USER -- TRY LATER"
  • Line Location: GNEW+3
Function Call: WRITE
  • Prompt: !,*7,"Already on File -- Want to Delete (Y/N) NO//"
  • Line Location: GNEW2+1
Function Call: WRITE
  • Prompt: !,*7,?5,"Patient Deleted"
  • Line Location: DEL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PEXIST+0
Function Call: WRITE
  • Prompt: !!,"Enter <RETURN> to Continue"
  • Line Location: PEXIST+2
Routine Call
  • DIE
  • Line Location:
    • GNEW+1
    • GNEW+4
Routine Call
  • DIC
  • Line Location:
    • GNEW
    • PEXIST+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AGADLIST - [#9009065] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGADLIST - [#9009065] GNEW+2, GNEW+3, GNEW+4, GNEW2+1, GNEW2+3*, DEL
^AUTTSITE(1 VAR+1

Label References

Name Line Occurrences
DEL GNEW2+1
END1 VAR+2
GNEW2 GNEW2+1, GNEW2+5, DEL+1, DEL+4
PEXIST VAR+2
VAR GNEW, GNEW+2, GNEW+3, GNEW2, GNEW2+1, PEXIST+1, PEXIST+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AG VAR!, END1+2!
AG("LKDATA" END1+2!
AG("LKPRINT" END1+2!
AGADRS1 END1+2!
AGADRS2 END1+2!
AGL END1+2!
AGLIST GNEW+1*, GNEW+2, GNEW+3, GNEW+4, GNEW2+1, GNEW2+3, GNEW2+4, DEL, DEL+2, PEXIST+1*
, END1+2!
AGNAME END1+2!
AGV END1+2!
AGV("LINE" VAR*
AGV("P3" GNEW2+2*
AGV("P4" GNEW2+2*, PEXIST+2
AGV("TOT" VAR*
DA GNEW+1*!, GNEW+4*, DEL+2*, END1+2!
DA(1 GNEW2+4*, DEL+2*
DD GNEW2+4!
DFN VAR!, GNEW2, GNEW2+1, GNEW2+4, DEL, END1+2!
>> DFOUT VAR+2, GNEW2+1
DIC GNEW*, GNEW+1!, GNEW+4!, GNEW2+4!*, PEXIST*, PEXIST+1!, END1+2!
DIC("A" PEXIST*
DIC("S" GNEW*, PEXIST*
DIC("W" GNEW2*
DIC(0 GNEW*, GNEW2+4*, PEXIST*
DIE GNEW+1*!, GNEW+4*
>> DIK DEL+2*
>> DLAYGO GNEW*
>> DLOUT VAR+2
DO GNEW2+4!
DR GNEW+1*!, GNEW+4!*, END1+2!
DT GNEW+4
>> DTOUT VAR+2, GNEW2+1
>> DUOUT VAR+2, GNEW2+1
DUZ GNEW+4
DUZ(2 VAR+1*
G END1+2!
I END1+2!
IOP VAR!
R END1+2!
U VAR+1, GNEW+4
X GNEW2+4*, DEL*, DEL+1, DEL+2, END1+2!
Y VAR+2, GNEW, GNEW+1, GNEW2+1, PEXIST+1, END1+2!
>> ZTQUEUED END1+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All