Routine: AGBENPRC

Package	Total	Call Graph
VA Fileman	5	^%DT NOW^%DTC ^DIC $$GET1^DIQ ^DIR
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
IHS VA Utilities	1	$$C^XBFUNC

Entry Points

Name	Comments	DBIA/ICR reference
ASKTYPE1	;EP -
TOT(REC)	; ;AG7.18
CONT	;EP -
HDR	;
ASKDATE	;EP -
ASKCO	;EP -
ASKSTAT1	;EP -
DEV	;
PROCESS	;
START	;
INIT	;
SUBHDR	;
ASKEND	;
ASKBEG	;EP -
ASKSTAT	;EP - OVERALL STATUS
PRINT	;
ASKTYPE	;EP - APPLICATION TYPE
ASKCO1	;EP -
QUEUED	;

External References

Name	Field # of Occurrence
^%DT	ASKBEG+4, ASKEND+4
NOW^%DTC	INIT+5
^%ZIS	DEV+3
HOME^%ZIS	CONT+5
^%ZISC	CONT+6, PRINT+44
^%ZTLOAD	DEV+11
^DIC	ASKCO1+6, ASKTYPE1+6
$$GET1^DIQ	PROCESS+11, PROCESS+26, INIT+1, INIT+2, SUBHDR+12
^DIR	ASKDATE+5, ASKCO+6, ASKTYPE+6, ASKSTAT+6, ASKSTAT1+6, CONT+2, PRINT+12, PRINT+29, PRINT+40, PRINT+45
$$C^XBFUNC	HDR+4, HDR+5, HDR+6, HDR+7, HDR+9
$$FMTE^XLFDT	PROCESS+2, PROCESS+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: START+1
Function Call: WRITE	Prompt: !! Line Location: ASKBEG+1
Function Call: WRITE	Prompt: !! Line Location: ASKEND+1
Function Call: WRITE	Prompt: !!,*7,"INVALID ENTRY - The END is before the BEGINNING." Line Location: ASKEND+7
Function Call: WRITE	Prompt: !! Line Location: ASKCO+1
Function Call: WRITE	Prompt: !! Line Location: ASKTYPE+1
Function Call: WRITE	Prompt: !! Line Location: ASKSTAT+1
Function Call: WRITE	Prompt: !,"Report queued with task # ",$G(ZTSK) Line Location: CONT+2
Function Call: WRITE	Prompt: !!,"NO APPLICATIONS FOUND WITH THE CRITERIA ENTERED" Line Location: PRINT+4
Function Call: WRITE	Prompt: !! Line Location: PRINT+10
Function Call: WRITE	Prompt: !! Line Location: PRINT+12
Function Call: WRITE	Prompt: !! Line Location: PRINT+27
Function Call: WRITE	Prompt: !! Line Location: PRINT+29
Function Call: WRITE	Prompt: !! Line Location: PRINT+40
Function Call: WRITE	Prompt: !! Line Location: PRINT+45
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,AGUSER,?70,"Page ",AGPAGE Line Location: HDR+3
Function Call: WRITE	Prompt: !,$$C^XBFUNC(AGLOC) Line Location: HDR+4
Function Call: WRITE	Prompt: !,$$C^XBFUNC(AGRPTNAM) Line Location: HDR+5
Function Call: WRITE	Prompt: !,$$C^XBFUNC("UCI: "_AGUCI) Line Location: HDR+6
Function Call: WRITE	Prompt: !,$$C^XBFUNC("Report Date: "_AGRPTDT) Line Location: HDR+7
Function Call: WRITE	Prompt: !,$$C^XBFUNC(STR) Line Location: HDR+9
Function Call: WRITE	Prompt: !! Line Location: SUBHDR+1
Function Call: WRITE	Prompt: AGEQUAL Line Location: SUBHDR+2
Function Call: WRITE	Prompt: "REPORT FOR DATES OBTAINED FROM " Line Location: SUBHDR+3
Function Call: WRITE	Prompt: AGBEGX Line Location: SUBHDR+4
Function Call: WRITE	Prompt: " TO ",AGENDX Line Location: SUBHDR+5
Function Call: WRITE	Prompt: !,"FOR " Line Location: SUBHDR+6
Function Call: WRITE	Prompt: !,"ALL APPLICATION TYPES" Line Location: SUBHDR+7
Function Call: WRITE	Prompt: "," Line Location: SUBHDR+13
Function Call: WRITE	Prompt: !,"provided by ",PERSREC Line Location: SUBHDR+14
Function Call: WRITE	Prompt: !,AGEQUAL Line Location: SUBHDR+15
Function Call: WRITE	Prompt: !,"DATE",?15,"CHART",?30,"APPLICATION TYPE",?60,"STATUS" Line Location: SUBHDR+16
Function Call: WRITE	Prompt: !,"OBTAINED" Line Location: SUBHDR+17
Function Call: WRITE	Prompt: !,AGDASH Line Location: SUBHDR+18
Function Call: WRITE	Prompt: !!,?34,"Report Totals" Line Location: TOT+3
Function Call: WRITE	Prompt: !!!,"APPLICATION",?30,"STATUS",?48,"TOTAL COUNT" Line Location: TOT+4
Function Call: WRITE	Prompt: !,"TYPE" Line Location: TOT+5
Function Call: WRITE	Prompt: !,AGEQUAL Line Location: TOT+6
Function Call: WRITE	Prompt: !,AGTYPE,?30,AGSTAT,?50,$G(AGCNT(REC,AGTYPE,AGSTAT)) Line Location: TOT+11
Routine Call	%ZIS Line Location: CONT+5
Routine Call	DIC Line Location: ASKCO1+6 ASKTYPE1+6
Routine Call	DIR Line Location: ASKDATE+5 ASKCO+6 ASKTYPE+6 ASKSTAT+6 ASKSTAT1+6 CONT+2 PRINT+12 PRINT+29 PRINT+40 PRINT+45
Routine Call	%ZIS Line Location: DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^AUPNAPPS - [#9000045]	GET1^DIQ
9000045.11	GET1^DIQ
^AUPNAPPT - [#9000048]	Classic Fileman Calls, GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	INIT+4
^AUPNAPPS - [#9000045]	PROCESS+14, PROCESS+18, PROCESS+22
^AUPNAPPS("D"	ASKDATE+7, PROCESS+6, PROCESS+8, PROCESS+10
^AUPNAPPT - [#9000048]	PROCESS+17
^AUPNPAT - [#9000001]	PROCESS+12
^DD("DD"	PRINT+30, INIT+6
^DD(9000045.11	ASKSTAT1+1
^VA(200 - [#200]	PROCESS+21
^XTMP("AGBENPRC"	PROCESS+4!, PROCESS+29*, PRINT+3, PRINT+8, PRINT+18, PRINT+20, PRINT+22, PRINT+26, PRINT+43!, PRINT+46!

Label References

Name	Line Occurrences
ASKBEG	ASKEND+5, ASKEND+7
ASKCO	ASKDATE+7, ASKTYPE+7
ASKCO1	ASKCO1+7
ASKDATE	ASKBEG+5, ASKCO+7
ASKSTAT	ASKTYPE+8, ASKTYPE1+7
ASKSTAT1	ASKSTAT1+8
ASKTYPE	ASKCO+8, ASKSTAT+7, ASKSTAT1+7
ASKTYPE1	ASKTYPE1+8
CONT	ASKSTAT+8
DEV	CONT+1
HDR	PRINT+15, PRINT+29, TOT+2
INIT	START+2
PRINT	QUEUED+2
PROCESS	QUEUED+1
QUEUED	CONT+4
SUBHDR	PRINT+15, PRINT+29
TOT	PRINT+38, PRINT+42

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	INIT+6
>> %DT	ASKBEG+3, ASKEND+3
>> %DT("A"	ASKBEG+2, ASKEND+2
%ZIS	DEV+1!, DEV+2*
AGBEG	ASKDATE+7, ASKBEG+6, ASKEND+7, PROCESS+2, PROCESS+5, PROCESS+6, PROCESS+8, PROCESS+10, PROCESS+29, PRINT+2~ , PRINT+17, PRINT+18, PRINT+20, PRINT+22, PRINT+26, PRINT+30
AGBEGEX	PRINT+2~, PRINT+30*, PRINT+31
>> AGBEGX	PROCESS+2*, HDR+8, SUBHDR+4
AGCHART	PROCESS+12, PROCESS+13, PROCESS+29, PRINT+2~, PRINT+23, PRINT+26, PRINT+32
AGCNT	PRINT+2~, PRINT+5, PRINT+14, PRINT+39
AGCNT(	PRINT+35*, TOT+9, TOT+10, TOT+11
AGCNT(0	PRINT+36*
>> AGDASH	INIT+9*, SUBHDR+18
>> AGEND	ASKDATE+7, ASKEND+6, ASKEND+7, PROCESS+3, PROCESS+6
>> AGENDX	PROCESS+3*, HDR+8, SUBHDR+5
>> AGEQUAL	INIT+10*, SUBHDR+2, SUBHDR+15, TOT+6
>> AGLOC	INIT+2*, HDR+4
>> AGPAGE	INIT+8, HDR+1, HDR+3
>> AGPAT	PROCESS+11*, PROCESS+12
>> AGRPTDT	INIT+7*, HDR+7
>> AGRPTNAM	INIT+3*, HDR+5, DEV+6
AGSTAT	TOT+7~, TOT+8, TOT+10, TOT+11
AGTYPE	PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+17, PROCESS+29, PRINT+2~, PRINT+19, PRINT+20, PRINT+22, PRINT+26 , PRINT+33, PRINT+35, PRINT+36, TOT+7~, TOT+8, TOT+9*, TOT+10, TOT+11
>> AGUCI	INIT+4*, HDR+6
>> AGUSER	INIT+1*, HDR+3
APPTYPE	ASKTYPE+2!, ASKTYPE1+4, PROCESS+16, SUBHDR+7, SUBHDR+10, SUBHDR+11, SUBHDR+12, SUBHDR+13
APPTYPE(	ASKTYPE1+8*, PROCESS+16, SUBHDR+11, SUBHDR+13
ASKCOORD	ASKCO+2!, ASKCO1+4, PROCESS+20
ASKCOORD(	ASKCO1+7*, PROCESS+20
ASKSTAT	ASKSTAT+2!, ASKSTAT1+4, PROCESS+24
ASKSTAT(	ASKSTAT1+8*, PROCESS+24
>> CHOICE	ASKSTAT1+1*, ASKSTAT1+5
DA	ASKCO1+1!, ASKTYPE1+1!
DIC	ASKCO1+1!, ASKCO1+2, ASKTYPE1+1!, ASKTYPE1+2
DIC("A"	ASKCO1+3, ASKCO1+4, ASKTYPE1+3, ASKTYPE1+4
DIC(0	ASKCO1+5, ASKTYPE1+5
DIE	ASKCO1+1!, ASKTYPE1+1!
DIR	ASKDATE+1!, ASKCO+2!, ASKCO1+1!, ASKTYPE+2!, ASKTYPE1+1!, ASKSTAT+2!, ASKSTAT1+2!, CONT+2!, PRINT+12!, PRINT+29! , PRINT+40!, PRINT+45!
DIR("A"	ASKDATE+3, ASKCO+4, ASKTYPE+4, ASKSTAT+4, ASKSTAT1+3, ASKSTAT1+4
DIR("B"	ASKDATE+4, ASKCO+5, ASKTYPE+5, ASKSTAT+5
DIR(0	ASKDATE+2, ASKCO+3, ASKTYPE+3, ASKSTAT+3, ASKSTAT1+5, CONT+2, PRINT+12, PRINT+29, PRINT+40, PRINT+45
DR	ASKCO1+1!, ASKTYPE1+1!
>> DTOUT	ASKDATE+6, ASKCO+7, ASKTYPE+7, ASKSTAT+7, ASKSTAT1+7
>> DUOUT	ASKDATE+6, ASKCO+7, ASKTYPE+7, ASKSTAT+7, ASKSTAT1+7
DUZ	INIT+1
DUZ(2	PROCESS+12, INIT+2
ESC	PRINT+2~, PRINT+8, PRINT+12, PRINT+13, PRINT+16, PRINT+26, PRINT+29, PRINT+40*, PRINT+41, PRINT+43
IEN	PROCESS+1~, PROCESS+7, PROCESS+8, PROCESS+10, PROCESS+11, PROCESS+14, PROCESS+18, PROCESS+22, PROCESS+25
>> IENS	PROCESS+25*, PROCESS+26
IO	CONT+3
IO("Q"	DEV+5
IOF	START+1, HDR+2
IOSL	PRINT+29, PRINT+45
IOST	PRINT+12, PRINT+29, PRINT+40, PRINT+45
OLDPERS	PRINT+2~, PRINT+5*, PRINT+9
OVERSTAT	PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+26, PROCESS+27, PROCESS+29, PRINT+2~, PRINT+21, PRINT+22, PRINT+26 , PRINT+34, PRINT+35, PRINT+36
PERSREC	PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+21, PROCESS+29, PRINT+2~, PRINT+3, PRINT+4, PRINT+5, PRINT+8 , PRINT+9, PRINT+18, PRINT+20, PRINT+22, PRINT+26, PRINT+35, PRINT+38, SUBHDR+14
>> POP	CONT+1, DEV+4
REC	PROCESS+1~, PROCESS+9, PROCESS+10, PROCESS+14, PROCESS+18, PROCESS+22, PROCESS+25, TOT~, TOT+1, TOT+9 , TOT+10, TOT+11
>> STR	HDR+8*, HDR+9
U	ASKBEG+5, ASKEND+5, ASKSTAT1+1, PROCESS+12, PROCESS+14, PROCESS+17, PROCESS+18, PROCESS+21, PROCESS+22, PRINT+12 , PRINT+29, PRINT+40
>> X	ASKBEG+5, ASKEND+5, ASKTYPE1+7, PRINT+12, PRINT+29, PRINT+40
>> Y	ASKDATE+7, ASKBEG+6, ASKEND+5, ASKEND+6, ASKCO+8, ASKCO1+7, ASKTYPE+8, ASKTYPE1+8, ASKSTAT+8, ASKSTAT1+8 , PRINT+30, INIT+4, INIT+6, INIT+7
>> ZTDESC	DEV+6*
>> ZTQUEUED	PRINT+45
>> ZTRTN	DEV+6*
>> ZTSAVE("AG*"	DEV+7*
>> ZTSAVE("APPTYPE"	DEV+9*
>> ZTSAVE("ASKCOORD"	DEV+10*
>> ZTSAVE("ASKSTAT"	DEV+8*
ZTSK	CONT+2, DEV+1!

Customize PDF page

Package: IHS Patient Registration

Routine: AGBENPRC

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: