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

Package: IHS Patient Registration

Routine: AGALPHA


Information

AGALPHA ; IHS/ASDS/EFG - ALPHA LISTING OF REGISTERED PATIENTS ;

Source Information

Source file <AGALPHA.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS Patient Registration 3 (CTR,NOW,RTRN)^AG  DEAD^AGMAN  $$S^AGVDF  
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
NOW^AG L1+2
RTRN^AG L3+6, END
DEAD^AGMAN L3+1
$$S^AGVDF END, HDR
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: "(",AG,")"
  • Condition for execution: AG]""
  • Line Location: L3+1
Function Call: WRITE
  • Prompt: ?44,$J($P(^AUPNPAT(DFN,41,DUZ(2),0),U,2),6)
  • Line Location: L3+2
Function Call: WRITE
  • Prompt: !
  • Line Location: L3+6
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"),?71,"Page",$J(AGPGPG,4),!,AG("LOC"),!?19,"REGISTERED PATIENTS - ALPHABETICAL LISTING",!,AGUCI,!?23,"('*' = INACTIVE), ('D' = DECEASED)"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!,AGTIME,!!!?18,"Name",?45,"IHS #",?57,"SSN",?71,"DOB",!,"----------------------------------------",?44,"------",?53,"-----------",?67,"------------",!
  • Line Location: HDR+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+2, L1+1
^AUPNPAT - [#9000001] L3, L3+1, L3+2
^AUTTLOC - [#9999999.06] DEV+2
^DIC(4 - [#4] L1+1
^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+6
K L3+6
L1 DEV+1
L2 L3
L3 L3, L3+7

Naked Globals

Name Field # of Occurrence
^( L3+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
AG L3+1*, K!
AG("DEAD" L3+1
AG("HAT" AGALPHA+2*, END!
AG("LOC" L1+1*, K!, HDR
AG("USR" L1+1*, K!, HDR
AGBM L1+1*, L3+6, K!
AGIO AGALPHA+2*, DEV+3!, L1+1, K!
AGNAME L1+1*, L2*, L3, K!
AGPGPG L1+1*, K!, HDR*
AGTIME L1+2*, K!, HDR+1
AGUCI L1+1*, K!, HDR
DA L3+5*, K!
DFN L2*, L3*, L3+1, L3+2, L3+5, K!
>> DFOUT L3+6
DIC L3+5*, K!
DR L3+5*, K!
>> DTOUT L3+6
>> DUOUT L3+6
DUZ L1+1
DUZ(2 DEV+2, L1+1, L3, L3+1, L3+2
G K!
IO AGALPHA+2, L1+1, L1+2
IO("Q" DEV+1!
IO("S" DEV+1
ION DEV
>> IOP DEV*
IOSL L1+1
IOST DEV+1
>> POP DEV
T L1+1*, L3+6*, END, K!
U DEV+2, L1+1, L3, L3+1, L3+2
X L1+1*, L1+2*, K!
Y DEV+2, L1+1, 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