Routine: AGRPTEMP

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Information

AGRPTEMP ;IHS/SD/TPF - LIST EMPLOYEES BY EMPLOYER

Source Information

Source file <AGRPTEMP.m>

Call Graph

Call Graph Total: 3

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

Entry Points

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

Global Variables Directly Accessed

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

Label References

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

Call Graph Total: 3