Routine: AGBENPRD

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

Entry Points

Name	Comments	DBIA/ICR reference
HDR	;
PROCESS	;
SUBHDR	;
DEV	;
START	;
INIT	;
ASKTYPE	;
ASKBEG	;
PRINT	;
ASKEND	;
QUEUED	;

External References

Name	Field # of Occurrence
^%DT	ASKBEG+4, ASKEND+4
NOW^%DTC	INIT+6
^%ZIS	DEV+3
HOME^%ZIS	ASKTYPE+14
^%ZISC	ASKTYPE+15, PRINT+32
^%ZTLOAD	DEV+8
$$GET1^DIQ	PROCESS+19
^DIR	ASKTYPE+6, ASKTYPE+11, PRINT+17, PRINT+33
$$C^XBFUNC	HDR+4, HDR+5, HDR+6, HDR+7, HDR+10
$$FMTE^XLFDT	ASKEND+8, ASKEND+9

Interaction Calls

Name	Line Occurrences
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: !,"Report queued with task # ",$G(ZTSK) Line Location: ASKTYPE+11
Function Call: WRITE	Prompt: !! Line Location: PRINT+15
Function Call: WRITE	Prompt: !! Line Location: PRINT+17
Function Call: WRITE	Prompt: !!,AGDASH Line Location: PRINT+21
Function Call: WRITE	Prompt: !,"TOTALS" Line Location: PRINT+22
Function Call: WRITE	Prompt: !! Line Location: PRINT+33
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: " to ",AGENDX Line Location: HDR+9
Function Call: WRITE	Prompt: !,$$C^XBFUNC(STR) Line Location: HDR+10
Function Call: WRITE	Prompt: !! Line Location: SUBHDR+1
Function Call: WRITE	Prompt: $S(AGRPTTYP="RECEIVER":"PERSON",1:"APPLICATION") Line Location: SUBHDR+2
Function Call: WRITE	Prompt: ! Line Location: SUBHDR+5
Function Call: WRITE	Prompt: $S(AGRPTTYP="RECEIVER":"RECEIVING",1:"TYPE") Line Location: SUBHDR+6
Function Call: WRITE	Prompt: ?14,"APPROVED",?23,"DENIED",?30,"RESUB",?36,"REFUSED",?44,"FOLLOWUP",?53,"ERR",?57,"PENDING",?65,"OVERINC",?73,"SCREEN" Line Location: SUBHDR+9
Function Call: WRITE	Prompt: !,AGDASH Line Location: SUBHDR+10
Function Call: WRITE	Prompt: ! Line Location: SUBHDR+11
Routine Call	%ZIS Line Location: ASKTYPE+14
Routine Call	DIR Line Location: ASKTYPE+6 ASKTYPE+11 PRINT+17 PRINT+33
Routine Call	%ZIS Line Location: DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
9000045.11	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	INIT+5
^AUPNAPPS - [#9000045]	PROCESS+9, PROCESS+12, PROCESS+15
^AUPNAPPS("D"	PROCESS+4, PROCESS+6, PROCESS+8
^AUPNAPPT - [#9000048]	PROCESS+11
^AUTTLOC - [#9999999.06]	INIT+3
^DD("DD"	INIT+7
^VA(200 - [#200]	PROCESS+14, INIT+1
^XTMP("AGBENPRD"	PROCESS+2!, PROCESS+26, PROCESS+27, PRINT+7, PRINT+10, PRINT+19, PRINT+20!, PRINT+24, PRINT+31, PRINT+34!

Label References

Name	Line Occurrences
ASKBEG	ASKEND+5, ASKEND+7
ASKEND	ASKTYPE+7
DEV	ASKTYPE+10
HDR	PRINT+1, PRINT+17, PRINT+18
INIT	START+1
PRINT	QUEUED+2
PROCESS	QUEUED+1
QUEUED	ASKTYPE+13
SUBHDR	PRINT+2, PRINT+17, PRINT+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	INIT+7
>> %DT	ASKBEG+3, ASKEND+3
>> %DT("A"	ASKBEG+2, ASKEND+2
%ZIS	DEV+1!, DEV+2*
>> AGBEG	ASKBEG+6, ASKEND+7, ASKEND+8, PROCESS+3, PROCESS+4*, PROCESS+6, PROCESS+8
>> AGBEGX	ASKEND+8*, HDR+8
>> AGDASH	PRINT+21, INIT+10*, SUBHDR+10
>> AGEND	ASKEND+6*, ASKEND+7, ASKEND+9, PROCESS+4
>> AGENDX	ASKEND+9*, HDR+8
>> AGLOC	INIT+3*, HDR+4
>> AGPAGE	INIT+9, HDR+1, HDR+3
>> AGRPTDT	INIT+8*, HDR+7
>> AGRPTNAM	INIT+4*, HDR+5, DEV+6
>> AGRPTTYP	ASKTYPE+8*, PROCESS+24, SUBHDR+2, SUBHDR+6
>> AGTYPE	PROCESS+9, PROCESS+10, PROCESS+11*, PROCESS+24
>> AGUCI	INIT+5*, HDR+6
>> AGUSER	INIT+1*, HDR+3
>> APPTYPE	PRINT+3, PRINT+7, PRINT+8, PRINT+10, PRINT+19
DIR	ASKTYPE+1!, ASKTYPE+11!, PRINT+17!, PRINT+33!
DIR("L"	ASKTYPE+3, ASKTYPE+4, ASKTYPE+5*
DIR(0	ASKTYPE+2, ASKTYPE+11, PRINT+17, PRINT+33
>> DIROUT	ASKTYPE+7
>> DTOUT	ASKTYPE+7
>> DUOUT	ASKTYPE+7
DUZ	INIT+1
DUZ(2	INIT+3
ESC	PRINT+4~, PRINT+7, PRINT+17*, PRINT+20
IEN	PROCESS+1~, PROCESS+5, PROCESS+6, PROCESS+8, PROCESS+9, PROCESS+12, PROCESS+15, PROCESS+16
>> IENS	PROCESS+16*, PROCESS+19
IO	ASKTYPE+12
IO("Q"	DEV+5
IOF	HDR+2
IOSL	PRINT+17, PRINT+18, PRINT+33
IOST	PRINT+17, PRINT+18, PRINT+33
>> OFFSET	PRINT+14, PRINT+19, PRINT+30, PRINT+31
>> OVERSTAT	PROCESS+15, PROCESS+17, PROCESS+18, PROCESS+19, PROCESS+22, PROCESS+23, PROCESS+26, PROCESS+27, PRINT+9, PRINT+10* , PRINT+11, PRINT+14, PRINT+19, PRINT+23, PRINT+24, PRINT+25, PRINT+27, PRINT+30, PRINT+31
>> PERSREC	PROCESS+12, PROCESS+13, PROCESS+14*, PROCESS+24
>> POP	ASKTYPE+10, DEV+4
REC	PROCESS+1~, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+12, PROCESS+15, PROCESS+16
>> STATUS	PRINT+11, PRINT+26, PRINT+27
>> STR	HDR+8*, HDR+10
>> SUB3	PROCESS+24, PROCESS+25, PROCESS+26
U	ASKBEG+5, ASKEND+5, PROCESS+9, PROCESS+11, PROCESS+12, PROCESS+14, PROCESS+15, PROCESS+22, PROCESS+23, PRINT+11 , PRINT+14, PRINT+17, PRINT+27, PRINT+30, INIT+1, INIT+3
>> X	ASKBEG+5, ASKEND+5, PRINT+17
>> Y	ASKBEG+6, ASKEND+5, ASKEND+6, ASKTYPE+7, INIT+5, INIT+7*, INIT+8
>> Y(0	ASKTYPE+8
>> ZTDESC	DEV+6*
>> ZTQUEUED	PRINT+17, PRINT+33
>> ZTRTN	DEV+6*
>> ZTSAVE("AG*"	DEV+7*
ZTSK	ASKTYPE+11, DEV+1!

Customize PDF page

Package: IHS Patient Registration

Routine: AGBENPRD

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: