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

Package: IHS Patient Registration

Routine: AGRPTVET


Information

AGRPTVET ; IHS/ASDS/EFG - ALPHA LIST OF ALL VETERANS IN DATA BASE ;

Source Information

Source file <AGRPTVET.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS Patient Registration 4 (CTR,LINE,NOW,RTRN)^AG  ^AGDICLK  DEAD^AGMAN  $$S^AGVDF  
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
VA Fileman 2 $$GET1^DIQ  EN^DIQ1  

Entry Points

Name Comments DBIA/ICR reference
END1
END
HDR
DEV
START ;EP - From TaskMan.
L1

External References

Name Field # of Occurrence
^%ZIS DEV, START+4
^%ZISC DEV+1, DEV+3, END1
^%ZTLOAD DEV+3
KILL^%ZTLOAD END1
CTR^AG START+5, START+6, START+7
LINE^AG HDR+1
NOW^AG START+7
RTRN^AG L1+11, L1+14, END
^AGDICLK L1+8, L1+10
DEAD^AGMAN L1+5
$$S^AGVDF END, HDR+1
$$GET1^DIQ L1+7
EN^DIQ1 L1+3, L1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,$P(^DPT(DFN,0),U)
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: " (",^(DR),")"
  • Condition for execution: $D(^(DR))
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: ?52,$$GET1^DIQ(9000001,DFN_",",1107.3)
  • Line Location: L1+7
Function Call: WRITE
  • Prompt: ?66,$J(^(DR),10)
  • Condition for execution: $D(^(DR))
  • Line Location: L1+7
Function Call: WRITE
  • Prompt: !!,"Total Patients: ",T
  • Line Location: END+0
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: END+0
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!!,AG("USR"),?72,"page ",AGPGPG,!,AG("LOC"),!?23,"ALL VETERANS - ALPHABETICAL LISTING",!,AGUCI,!?24,"('*' = INACTIVE), ('D' = DECEASED)",!,AGTIME,!!!?3,"Name (claim #)",?21,"IHS #",?30,"FACILITY",?56,"SSN",?70,"DOB"
  • Line Location: HDR+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV
    • START+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+2, START+6
^AUPNPAT - [#9000001] L1+4
^AUTTLOC - [#9999999.06] DEV+2
^DIC(4 - [#4] START+5, L1+10
^DPT - [#2] START+3, L1+3
^DPT("B" START+3
^TMP($J START+1!, START+3*, L1, END1!
^UTILITY("DIQ1" L1+1!
^VA(200 - [#200] START+5

Label References

Name Line Occurrences
DEV DEV+1, DEV+3
END L1
END1 L1+13, L1+14
HDR START+7, L1+12, L1+14
L1 L1+15
START DEV+1

Naked Globals

Name Field # of Occurrence
^( L1+3, L1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
AG DEV+3!, L1+4*, L1+5*, L1+8*, L1+10, END1!
AG("DEAD" L1+5
AG("DENT" END1!
AG("DRENT" L1+8*, L1+10*
AG("HAT" AGRPTVET+2*, END!
AG("LINE" HDR*
AG("LKDATA" END1!
AG("LKERR" L1+8, L1+10, END1!
AG("LKPRINT" L1+9, L1+10, END1!
AG("LOC" START+5*, END1!, HDR+1
AG("QUIT" L1+8, L1+11*, L1+13
AG("USR" START+5*, END1!, HDR+1
AGBM START+5*, L1+11, L1+12, L1+14, END1!
>> AGEL("DFN" START+5*, L1*
AGIO AGRPTVET+2*, DEV+3!, START+5, END1!
AGL END1!
AGPCC END1!
AGPGPG START+5*, END1!, HDR*, HDR+1
AGQIO DEV+2*, DEV+3!, START+4, END1!
AGTIME START+7*, END1!, HDR+1
AGUCI START+6*, END1!, HDR+1
>> AGZ("I" START+4*
DA L1+2!, L1+3*, L1+7*, L1+8*, END1!
>> DFN START+3*, L1*, L1+3, L1+4, L1+7, L1+8
>> DFOUT L1+11, L1+14
DIC L1+2!, L1+3*, L1+7*, L1+8*, END1!
DIQ L1+2!
DR L1+2!, L1+3*, L1+7*, L1+8*, L1+10*, END1!
>> DTOUT L1+11, L1+14
>> DUOUT L1+11, L1+14
DUZ START+5
DUZ(2 DEV+2, START+5, L1+4
G DEV+2*, DEV+3!, END1!
>> I START+3*
IO AGRPTVET+2, DEV+2, START+5, START+7
IO("Q" DEV+1!
IO("S" DEV+1
ION DEV
>> IOP DEV*, START+4*
IOSL START+5
IOST DEV+1
N START+3*, START+5*, END1!
>> POP DEV, START+4
T START+5*, L1+14*, END, END1!
U DEV+2, START+3, START+5, L1+3, L1+4, L1+10
X START+5*, START+6*, START+7*, END1!
Y DEV+2, START+6, END1!
ZTDESC DEV+2*, DEV+3!
ZTIO DEV+2*, DEV+3!
>> ZTQUEUED END1
ZTRTN DEV+2*, DEV+3!
>> ZTSAVE( DEV+2*
ZTSK DEV+3!
ZTUCI DEV+2*, DEV+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All