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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AGALPHA1

Package: IHS Patient Registration

Routine: AGALPHA1


Information

AGALPHA1 ; IHS/ASDS/EFG - ALPHA LIST OF ALL PATIENTS ;

Source Information

Source file <AGALPHA1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS Patient Registration 3 (CTR,LINES,NOW,RTRN)^AG  ^AGDICLK  DEAD^AGMAN  
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
VA Fileman 1 EN^DIQ1  

Entry Points

Name Comments DBIA/ICR reference
END
HDR
K
DEV
L2
L3
L1 ;EP - From TaskMan.

External References

Name Field # of Occurrence
^%ZIS DEV
^%ZISC DEV+1, DEV+3, K
^%ZTLOAD DEV+3
KILL^%ZTLOAD K
CTR^AG L1+1, L1+2
LINES^AG L1+2
NOW^AG L1+2
RTRN^AG L3+8, END
^AGDICLK L3+7
DEAD^AGMAN L3+2
EN^DIQ1 L3+5

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: L3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: L3+6
Function Call: WRITE
  • Prompt: !
  • Line Location: L3+7
Function Call: WRITE
  • Prompt: !!,"Total Patients: ",AGTOT
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF,!!,AG("USR"),?72,"page ",AGPGPG,!,AG("LOC"),!?23,"ALL PATIENTS - ALPHABETICAL LISTING",!,AGUCI,!?24,"('*' = INACTIVE), ('D' = DECEASED)",!,AGTIME,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!?3,"Name",?21,"IHS #",?30,"FACILITY",?56,"SSN",?70,"DOB",!!,AG("="),!
  • Line Location: HDR+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+2, L1+2
^AUPNPAT - [#9000001] L3+1
^DIC(4 - [#4] L1+1, L3+7
^DPT - [#2] L3, L3+1
^DPT("B" L2, L3
^UTILITY("DIQ1" L3+5!
^VA(200 - [#200] L1+1

Label References

Name Line Occurrences
DEV DEV+1, DEV+3
END L2
HDR L1+2, L3+8
K L3+8
L1 DEV+1
L2 L3
L3 L3, L3+9

Naked Globals

Name Field # of Occurrence
^( L3+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
AG DEV+3!, L3+1*, L3+2*, L3+7*, K!
AG("=" HDR+1
AG("DEAD" L3+2
AG("DENT" K!
AG("DRENT" L3+7*
AG("HAT" AGALPHA1+2*, END!
AG("LKDATA" K!
AG("LKERR" L3+7, K!
AG("LKPRINT" L3+7
AG("LOC" L1+1*, K!, HDR
AG("USR" L1+1*, K!, HDR
AGBM L1+1*, L3+8, K!
AGIO AGALPHA1+2*, DEV+3!, L1+1, K!
AGL K!
AGNAME L1+1*, L2*, L3, K!
AGPGPG L1+1*, K!, HDR*
AGTIME L1+2*, K!, HDR
AGTOT L1+1*, L3+8*, END, K!
AGUCI L1+2*, K!, HDR
DA L3+5*, L3+7*, K!
DFN L2*, L3*, L3+1, L3+5, L3+7, K!
>> DFOUT L3+8
DIC L3+5*, L3+7*, K!
DR L3+5*, L3+7*, K!
>> DTOUT L3+8
>> DUOUT L3+8
DUZ L1+1
DUZ(2 L1+1, L3+1
G K!
IO AGALPHA1+2, L1+1, L1+2
IO("Q" DEV+1!
IO("S" DEV+1
IOF END, HDR
ION DEV
>> IOP DEV*
IOSL L1+1
IOST DEV+1
>> POP DEV
U L1+1, L3, L3+1, L3+7
X L1+1*, L1+2*, K!
Y DEV+2, L1+2, K!
ZTDESC DEV+2*, DEV+3!
>> ZTQUEUED K
ZTRTN DEV+2*, DEV+3!
ZTSK DEV+3!
ZTUCI DEV+2*, DEV+3!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All