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

Package: IHS Patient Registration

Routine: AGCHART


Information

AGCHART ; IHS/ASDS/EFG - LIST OF REGISTERED PATIENTS BY CHART NUMBER ;

Source Information

Source file <AGCHART.m>

Call Graph

Call Graph Total: 7

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

Entry Points

Name Comments DBIA/ICR reference
C
E
D
K
QUES
DEV
L4
L2
L3
L1 ;EP - From TaskMan.
END
HDR

External References

Name Field # of Occurrence
^%ZIS DEV
^%ZISC DEV+1, DEV+3, K
^%ZTLOAD DEV+3
KILL^%ZTLOAD K
CTR^AG L1+2, L1+3
NOW^AG L1+3
READ^AG C, D
RTRN^AG L4+6, END
DEAD^AGMAN L4+1
$$S^AGVDF END, HDR
EN^DIQ1 L4+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"START WITH WHAT CHART NUMBER? Print All Charts// "
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !!,"END WITH WHAT CHART NUMBER? Last One// "
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !!,*7,"THE ENDING NUMBER IS LESS THAN THE BEGINNING NUMBER."
  • Line Location: D+1
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: L4+1
Function Call: WRITE
  • Prompt: "(",AG,")"
  • Condition for execution: AG]""
  • Line Location: L4+1
Function Call: WRITE
  • Prompt: ?44,$J($P(^AUPNPAT(DFN,41,DUZ(2),0),U,2),6)
  • Line Location: L4+2
Function Call: WRITE
  • Prompt: !
  • Line Location: L4+6
Function Call: WRITE
  • Prompt: !!,"Total Patients on this List: ",AGTOT
  • Line Location: END+0
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: END+0
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!!,AG("USRLOC"),?72,"page ",AGPGPG,!?19,"REGISTERED PATIENTS - CHART NUMBER LISTING",!,AGUCI,!?24,"('*' = INACTIVE, 'D' = DECEASED)",!,AGHDG,!,AGTIME,!!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!?18,"Name",?45,"IHS #",?57,"SSN",?71,"DOB",!,"----------------------------------------",?44,"------",?53,"-----------",?67,"------------",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"YOU MAY PRINT THIS REPORT FOR A LIMITED RANGE OF CHART NUMBERS, IF YOU WISH.",!,"SIMPLY ENTER A STARTING NUMBER AND PRESS RETURN. YOU WILL THEN BE ASKED FOR",!,"THE ENDING NUMBER."
  • Line Location: QUES+0
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
C D, D+1, QUES+1
DEV DEV+1, DEV+3
E C, D
END L2
HDR L1+3, L4+6
K C, D, L4+6
L1 DEV+1
L2 L3
L3 L4
L4 L4, L4+7
QUES C, C+1, D

Naked Globals

Name Field # of Occurrence
^( L4+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV*
AG DEV+3!, L4+1*, K!
AG("DEAD" L4+1
AG("HAT" E*, END!
AG("LOC" L1+1*!
AG("USR" L1+1*!
AG("USRLOC" L1+1*, HDR
AGBEG C*, C+1*, D+1, DEV+3!, L1+1, L1+3, K!
AGBM L1+2*, L4+6, K!
AGCH L1+1*, L2*, L3, L4, K!
AGEND C*, D*, D+2*, DEV+3!, L1+3, L2, K!
AGFAC L3*, L4*, K!
AGHDG L1+3*, K!, HDR
AGIO E*, DEV+3!, L1+2, K!
AGPGPG L1+1*, K!, HDR*
AGTIME L1+3*, K!, HDR
AGTOT L1+1*, L4+6*, END, K!
AGUCI L1+2*, K!, HDR
AGUSRLOC K!
DA L4+5*, K!
DFN L2*, L3*, L4, L4+1, L4+2, L4+5, K!
>> DFOUT C, D, L4+6
DIC L4+5*, K!
DLOUT C, D, K!
>> DQOUT C, D
DR L4+5*, K!
>> DTOUT C, D, L4+6
DUOUT C, D, L4+6, K!
DUZ L1+1
DUZ(2 DEV+2, L1+1, L4, L4+1, L4+2
G DEV+2*, DEV+3!
IO E, L1+2, L1+3
IO("Q" DEV+1!
IO("S" DEV+1
ION DEV
>> IOP DEV*
IOSL L1+2
IOST DEV+1
>> POP DEV
U DEV+2, L1+1, L4+1, L4+2
X L1+2*, L1+3*, K!
Y C+1, D+1, D+2, DEV+2, L1+2, K!
ZTDESC DEV+2*, DEV+3!
>> ZTQUEUED K
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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All