Routine: AGRPTEMP

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
VA Fileman	1	^DIR

Name	Comments	DBIA/ICR reference
EMPF	;ALLOW SELECTION OF FROM/TO EMPLOYERS
EN	;EP
FROM
ASKDATES	;ASK FOR DATE RANGES
EMPA	;DO ALL EMPLOYERS
DOPRINT(GLO)	;PRINT OUT SORTED TEMP GLOBAL
EXCHDR	;EP
EMPS1
LOOP(TAREMPLR,ENDEMPLR)	;EP
TO
EXIT	;EP - CLEANUP VARS
EMPS	;ALLOW SELECTION OF SPECIFIC EMPLOYERS
ASKSTAT	;ASK FOR STATUS FULL,PART ETC
DOSORT(EXCLSION)	;EP - PRINT EMPLOYEES FOR EMPLOYERS SELECTED
HDR	;MAIN HEADER
MAIN	;MAIN SELECTION DRIVER
ASKEMP	;ASK FOR EMPLOYERS

Name	Field # of Occurrence
^%ZIS	DOPRINT+3
^%ZISC	DOPRINT+28
^DIR	EN+10, MAIN+14, ASKEMP+7, ASKDATES+5, ASKDATES+14, ASKSTAT+6, EMPS1+2, FROM+5, TO+4, DOPRINT+21 , DOPRINT+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This program generates a listing of the Employees for each Employer, sorted in alphabetical order." Line Location: EN+4
Function Call: WRITE	Prompt: !! Line Location: EN+5
Function Call: WRITE	Prompt: "Deleted" Line Location: ASKDATES+6
Function Call: WRITE	Prompt: "Deleted" Line Location: ASKDATES+15
Function Call: WRITE	Prompt: !,"YOU CHOSE DO ALL EMPLOYERS" Line Location: EMPA+1
Function Call: WRITE	Prompt: !,"YOU CHOSE TO DO SPECIFIC EMPLOYERS" Line Location: EMPS+1
Function Call: WRITE	Prompt: !,"YOU CHOSE TO ENTER A RANGE OF EMPLOYERS" Line Location: EMPF+1
Function Call: WRITE	Prompt: ! Line Location: FROM+2
Function Call: WRITE	Prompt: ! Line Location: TO+1
Function Call: WRITE	Prompt: " Incorrect from/to sequence!" Line Location: TO+6
Function Call: WRITE	Prompt: @IOF Line Location: EXCHDR+1
Function Call: WRITE	Prompt: !,"NO EXCLUSION PARAMETERS CURRENTLY IN EFFECT" Line Location: EXCHDR+4
Function Call: WRITE	Prompt: !,"EXCLUSION PARAMETERS Currently in Effect for RESTRICTING the REPORT to:" Line Location: EXCHDR+5
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: EXCHDR+6
Function Call: WRITE	Prompt: !,"NO RECORDS FOUND!" Line Location: DOPRINT+1
Function Call: WRITE	Prompt: !,^XTMP("AGRPTEMP",$J,"EMPLOYEE TOTAL")," RECORDS MET THE CRITERIA" Line Location: DOPRINT+2
Function Call: WRITE	Prompt: !,$E(EMPLRNM,1,15) Line Location: DOPRINT+21
Function Call: WRITE	Prompt: !,$E(EMPLRNM,1,15) Line Location: DOPRINT+22
Function Call: WRITE	Prompt: !!,"Number of Employers Number of Employees" Line Location: DOPRINT+25
Function Call: WRITE	Prompt: !,EMPLRCNT,?25,EMPLECNT Line Location: DOPRINT+26
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,"WARNING: Confidential Patient Information, Privacy Act Applies" Line Location: HDR+3
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+4
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Employer",?20,"Employee",?40,"HRN",?50,"Status" Line Location: HDR+7
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: HDR+8
Routine Call	DIR Line Location: EN+10 MAIN+14 ASKEMP+7 ASKDATES+5 ASKDATES+14 ASKSTAT+6 EMPS1+2 FROM+5 TO+4 DOPRINT+21 DOPRINT+27
Routine Call	%ZIS Line Location: DOPRINT+3

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	LOOP+5, LOOP+7
^AUPNPAT("AF"	LOOP+1, LOOP+4
^AUTNEMPL - [#9999999.75]	LOOP+10
^AUTNEMPL("B"	DOSORT+13, DOSORT+15
^DD(9000001	ASKSTAT+3, LOOP+12
^DPT - [#2]	LOOP+8
^XTMP("AGRPTEMP"	MAIN+1!, LOOP+14, LOOP+15, LOOP+16*, DOPRINT+1, DOPRINT+2, DOPRINT+7, DOPRINT+8, DOPRINT+10, DOPRINT+15 , DOPRINT+16, DOPRINT+17

Name	Line Occurrences
@(	MAIN+18, ASKEMP+10
DOPRINT	MAIN+15
DOSORT	MAIN+15
EMPS1	EMPS1+7
EXCHDR	MAIN+2, HDR+5
EXIT	EN+15
FROM	TO+8
HDR	DOPRINT+6, DOPRINT+11, DOPRINT+21, DOPRINT+22, DOPRINT+27
LOOP	DOSORT+2, DOSORT+6, DOSORT+16
MAIN	EN+14, MAIN+15, MAIN+20
TO	TO+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGLINE("-"	EN+3*, HDR+8
>> AGLINE("EQ"	EN+2*, EXCHDR+6, HDR+4, HDR+6
CODES	ASKSTAT+1~, ASKSTAT+3*, ASKSTAT+5
COUNT	EMPF+3, FROM+1, FROM+9, TO+6, TO+7, EXIT+1!
DIR	EN+6!, EN+13!, MAIN+4!, ASKEMP+3!, ASKEMP+11!, ASKDATES+1!, ASKDATES+10!, ASKSTAT+2!, EMPS1!, FROM! , TO!, DOPRINT+21!, DOPRINT+27!
DIR("A"	EN+7, MAIN+5, ASKEMP+4, ASKDATES+2, ASKDATES+11, ASKSTAT+4, FROM+3, TO+2
DIR("B"	EN+8, ASKEMP+5, ASKDATES+3, ASKDATES+12
DIR("L"	MAIN+7, MAIN+8, MAIN+9, MAIN+10, MAIN+11, MAIN+12, MAIN+13*
DIR(0	EN+9, MAIN+6, ASKEMP+6, ASKDATES+4, ASKDATES+13, ASKSTAT+5, EMPS1+1, FROM+4, TO+3, DOPRINT+21 , DOPRINT+27*
DIROUT	EN+11, MAIN+16, ASKEMP+8, ASKDATES+1!, ASKDATES+7, ASKDATES+16, ASKSTAT+7, EMPS1!, EMPS1+3, FROM! , FROM+6, TO!, TO+5
DIRUT	EN+11, MAIN+16, ASKEMP+8, ASKDATES+1!, ASKSTAT+7, EMPS1!, FROM!, TO!
DTOUT	EN+11, MAIN+16, ASKEMP+8, ASKDATES+1!, ASKDATES+7, ASKDATES+16, ASKSTAT+7, EMPS1!, EMPS1+3, FROM! , FROM+6, TO!, TO+5
DUOUT	EN+11, MAIN+16, ASKEMP+8, ASKDATES+1!, ASKDATES+7, ASKDATES+16, ASKSTAT+7, EMPS1!, EMPS1+3, FROM! , FROM+6, TO!, TO+5
DUZ(2	LOOP+7
EFFDATE	ASKDATES+8*, ASKDATES+9, EXIT+1!
EMPLECNT	DOSORT+1, LOOP+13, LOOP+16, DOPRINT+7*, DOPRINT+26, EXIT+1!
EMPLEE	LOOP+3, LOOP+4, LOOP+5, LOOP+7, LOOP+8, EXIT+1!
EMPLEENM	LOOP+8, LOOP+9, LOOP+14, DOPRINT+12, DOPRINT+15, DOPRINT+16, DOPRINT+17, DOPRINT+19, EXIT+1!
EMPLEREC	DOPRINT+15*, DOPRINT+24, EXIT+1!
EMPLRBEG	DOSORT+10, DOSORT+11, DOSORT+13*, DOSORT+15, EXIT+1!
EMPLRCNT	DOSORT+1, LOOP+2, LOOP+15, DOPRINT+8*, DOPRINT+26, EXIT+1!
EMPLREND	DOSORT+12*, DOSORT+13, EXIT+1!
EMPLRNM	LOOP+10, LOOP+11, LOOP+14, DOPRINT+9, DOPRINT+10, DOPRINT+13, DOPRINT+15, DOPRINT+16, DOPRINT+17, DOPRINT+21 , DOPRINT+22, EXIT+2!
EMPLRREC	DOSORT+14, DOSORT+15, DOSORT+16, DOPRINT+10*, EXIT+2!
EMPREC	EXCHDR+14, EXCHDR+15, EXCHDR+16, EXCHDR+20, EXCHDR+21, EXCHDR+22, DOSORT+4, DOSORT+5, DOSORT+6, DOSORT+8* , DOSORT+9*, DOSORT+10, DOSORT+12, EXIT+2!
>> EMPSTAT	ASKSTAT+8*
ENDEMPLR	LOOP~, LOOP+1
>> ESCAPE	DOPRINT+5, DOPRINT+10, DOPRINT+15, DOPRINT+21, DOPRINT+27*
EXCLSION	EN+1!, MAIN+15, EXCHDR+4, DOSORT~
EXCLSION("Eff	ective Date" , ASKDATES+3, ASKDATES+6!, ASKDATES+9*, ASKDATES+15!, EXCHDR+8
EXCLSION("Emp	loyment Status" , ASKSTAT+9, ASKSTAT+10!, EXCHDR+3, EXCHDR+7, LOOP+6
EXCLSION("Employers"	ASKEMP+2!, EMPA+2, EMPS+2, EMPS1+4!, EMPS1+6, EMPF+2, FROM+7!, FROM+9, TO+6, TO+7 , EXCHDR+2*, EXCHDR+10, EXCHDR+12, EXCHDR+15, EXCHDR+16, EXCHDR+18, EXCHDR+21, EXCHDR+22, DOSORT+2, DOSORT+3 , DOSORT+5, DOSORT+7, DOSORT+9, DOSORT+10, DOSORT+12
EXCLSION("Ter	mination Date" , ASKDATES+12, ASKDATES+18*, ASKDATES+19!, EXCHDR+9
GLO	DOPRINT~
>> HRN	LOOP+7, LOOP+14, DOPRINT+17, DOPRINT+19
IO	DOPRINT+4
IOF	EXCHDR+1, HDR+2
IOSL	DOPRINT+21, DOPRINT+22
IOST	DOPRINT+21, DOPRINT+27
>> LINEITEM	DOPRINT+14, DOPRINT+18, DOPRINT+19, HDR+9*
>> LN	EXCHDR+15, EXCHDR+16, EXCHDR+21, EXCHDR+22
>> PAGENO	DOPRINT+5*
>> POP	DOPRINT+3
PRINTOUT	MAIN+1!, EXCHDR+1, HDR+1*
>> STATUS	LOOP+5, LOOP+6, LOOP+12, LOOP+14, DOPRINT+16*, DOPRINT+19
TAG	MAIN+3~, MAIN+17, MAIN+18, MAIN+19!, ASKEMP+1~, ASKEMP+9, ASKEMP+10, ASKEMP+11!
TAREMPLR	LOOP~, LOOP+1*, LOOP+4, LOOP+10
>> TERMDATE	ASKDATES+17*, ASKDATES+18
U	ASKSTAT+3, ASKSTAT+5, ASKSTAT+9, TO+6, EXCHDR+7, EXCHDR+12, EXCHDR+16, EXCHDR+18, EXCHDR+22, DOSORT+10 , DOSORT+12, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+10, LOOP+12, LOOP+14, DOPRINT+16, DOPRINT+17 , DOPRINT+19, DOPRINT+21, DOPRINT+27
>> X	MAIN+15, ASKDATES+6, ASKDATES+15, EMPS1+4, EMPS1+5, FROM+7, FROM+8, TO+6, DOPRINT+21, DOPRINT+27
>> Y	EN+12, ASKEMP+9, ASKDATES+8, ASKDATES+17, ASKSTAT+9, EMPS1+6, EMPS1+7, FROM+9, TO+6, TO+7
>> Y(0	MAIN+17, ASKSTAT+8, ASKSTAT+9

Customize PDF page

Package: IHS Patient Registration

Routine: AGRPTEMP

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: