Routine: AGEMARP

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC CLOSE^%ZISH ^%ZTLOAD
VA Fileman	3	DD^%DT $$GET1^DIQ ^DIR
IHS Patient Registration	1	RTRN^AG

Name	Comments	DBIA/ICR reference
PRINTS	; Generate Standard Output
END	; Get end date
GETPARMS	; Get Report Parameters
GETDTS	; Get Date Range
START	; Get Start Date
PRINT	; Top level print engine
DEV	;
GO	; Start Processing
QUE	;QUE TO TASKMAN
DTCHK(PATNT,OK)	; Check Date Parameters
PRINTF	; Generate "Flat" Datafile Output
VAR
EXIT	; Exit the program
GETDATA	; Gather Report data
HDR	; Print Header

Name	Field # of Occurrence
DD^%DT	START+10, END+12, GETDATA+3
^%ZIS	DEV+2, DEV+3
HOME^%ZIS	DEV+4, DEV+8
^%ZISC	DEV+7
CLOSE^%ZISH	PRINTS+49, PRINTF+13
^%ZTLOAD	QUE+4
RTRN^AG	PRINTS+34, PRINTS+48, PRINTF+11, PRINTF+12
$$GET1^DIQ	GETDATA+4, GETDATA+8, GETDATA+14, GETDATA+19, GETDATA+21, GETDATA+22, DTCHK+13, HDR+3, HDR+4
^DIR	GETPARMS+9, GETPARMS+22, START+6, END+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETPARMS+25
Function Call: WRITE	Prompt: ! Line Location: START+5
Function Call: WRITE	Prompt: !!,?11,"Date cannot be in the future.",! Line Location: START+9
Function Call: WRITE	Prompt: " ",Y Line Location: START+10
Function Call: WRITE	Prompt: ! Line Location: END+5
Function Call: WRITE	Prompt: !!,?11,"End date cannot be before start date.",! Line Location: END+9
Function Call: WRITE	Prompt: !!,?11,"Date cannot be in the future.",! Line Location: END+11
Function Call: WRITE	Prompt: " ",Y Line Location: END+12
Function Call: WRITE	Prompt: !!," No Records Found!" Line Location: PRINT+1
Function Call: WRITE	Prompt: !,HRNOUT,?9,$E(REC,1,20),?30,EMAOUT Line Location: PRINTS+19
Function Call: WRITE	Prompt: ! Line Location: PRINTS+20
Function Call: WRITE	Prompt: ?55,$E($P(WHROUT,","),1,19),?74," ",PRMOUT Line Location: PRINTS+21
Function Call: WRITE	Prompt: !,?55,$P(WHROUT,SDL,I) Line Location: PRINTS+29
Function Call: WRITE	Prompt: !,AGLINE("DASH") Line Location: PRINTS+33
Function Call: WRITE	Prompt: !! Line Location: PRINTS+35
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: PRINTS+37
Function Call: WRITE	Prompt: !!,"TOTALS",!,"----------------" Line Location: PRINTS+39
Function Call: WRITE	Prompt: !,AGT Line Location: PRINTS+42
Function Call: WRITE	Prompt: "TER" Line Location: PRINTS+43
Function Call: WRITE	Prompt: ?22 Line Location: PRINTS+44
Function Call: WRITE	Prompt: $J($G(AGTOT(AGT)),10) Line Location: PRINTS+45
Function Call: WRITE	Prompt: !,"=================================" Line Location: PRINTS+46
Function Call: WRITE	Prompt: !,$J($G(AGTOT("TOTAL")),32),!! Line Location: PRINTS+47
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,$$GET1^DIQ(200,DUZ,.01) Line Location: HDR+3
Function Call: WRITE	Prompt: ?(80-$L($$GET1^DIQ(4,DUZ(2),.01)))/2,$$GET1^DIQ(4,DUZ(2),.01) Line Location: HDR+4
Function Call: WRITE	Prompt: ?70,"Page ",PAGE Line Location: HDR+5
Function Call: WRITE	Prompt: !,?33,"EMAIL LISTING" Line Location: HDR+6
Function Call: WRITE	Prompt: !,?19,"LAST UPDATE: " Line Location: HDR+7
Function Call: WRITE	Prompt: !,?16,"APPOINTMENT DATE: " Line Location: HDR+8
Function Call: WRITE	Prompt: "FOR ALL APPOINTMENTS" Line Location: HDR+9
Function Call: WRITE	Prompt: "FOR ALL",TYP,"THROUGH ",$P(TYPE("DATE","TO"),U,2) Line Location: HDR+10
Function Call: WRITE	Prompt: "FOR ALL",TYP,"FROM ",$P(TYPE("DATE","FROM"),U,2) Line Location: HDR+11
Function Call: WRITE	Prompt: $P(TYPE("DATE","FROM"),U,2) Line Location: HDR+13
Function Call: WRITE	Prompt: " - " Line Location: HDR+14
Function Call: WRITE	Prompt: $P(TYPE("DATE","TO"),U,2) Line Location: HDR+15
Function Call: WRITE	Prompt: !!,"HRN",?9,"NAME",?30,"EMAIL ADDRESS",?55,"WHERE",?69,"PERMISSION" Line Location: HDR+16
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+17
Function Call: WRITE	Prompt: @IOF Line Location: PRINTF+3
Function Call: WRITE	Prompt: ^TMP("AGEMARP",$J,REC) Line Location: PRINTF+5
Function Call: WRITE	Prompt: !,RECOUT Line Location: PRINTF+10
Function Call: WRITE	Prompt: @IOF Line Location: PRINTF+11
Function Call: WRITE	Prompt: ! Line Location: PRINTF+13
Function Call: WRITE	Prompt: !!?5,"Report Cancelled!" Line Location: QUE+5
Function Call: WRITE	Prompt: !!?5,"Task # ",ZTSK," queued.",! Line Location: QUE+6
Routine Call	%ZIS Line Location: DEV+4 DEV+8
Routine Call	DIR Line Location: GETPARMS+9 GETPARMS+22 START+6 END+6
Routine Call	%ZIS Line Location: DEV+2 DEV+3

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
9000001.811	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	GETDATA+13, GETDATA+16, GETDATA+17
^AUPNPAT("B"	GETDATA+6
^AUPNVSIT - [#9000010]	DTCHK+8
^AUPNVSIT("AC"	DTCHK+7
^TMP("AGEMARP"	VAR+1!, GETDATA+4, GETDATA+24, GETDATA+25*, PRINT+1, PRINTS+10, PRINTS+12, PRINTS+14, PRINTS+33, PRINTF+5 , PRINTF+6, PRINTF+8, PRINTF+9, EXIT+1!

Name	Line Occurrences
DTCHK	GETDATA+11
END	GETDTS+2, END+8, END+10
EXIT	VAR+9, VAR+10, VAR+11, VAR+12, GO+3
GETDATA	GO+1
GETDTS	GETPARMS+12
GETPARMS	VAR+8
GO	DEV+6
HDR	PRINTS+8, PRINTS+34, PRINTS+35
PRINT	GO+2
PRINTF	PRINT+3
PRINTS	PRINT+2
QUE	DEV+4
START	GETDTS+1, START+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV+1*
ACCCNT	GETDATA+7~, GETDATA+16*, GETDATA+17, GETDATA+18
ACCESS	GETDATA+7~, GETDATA+15, GETDATA+19, GETDATA+20*, GETDATA+24
ACCIEN1	GETDATA+7~, GETDATA+15, GETDATA+17, GETDATA+18
ACCIEN2	GETDATA+7~, GETDATA+18*, GETDATA+19
AGIO	VAR~, PRINTS+4
AGLINE	PRINTS+5~
AGLINE("DASH"	PRINTS+7*, PRINTS+33
AGLINE("EQ"	PRINTS+6*, PRINTS+37, HDR+17
AGT	PRINTS+1~, PRINTS+23, PRINTS+24, PRINTS+30, PRINTS+31, PRINTS+38, PRINTS+40, PRINTS+41, PRINTS+42, PRINTS+43 , PRINTS+45
AGTOT	PRINTS+1~
AGTOT(	PRINTS+24, PRINTS+31, PRINTS+40, PRINTS+45
AGTOT("TOTAL"	PRINTS+25, PRINTS+32, PRINTS+47
AIANCNT	GETDATA+1~, GETDATA+2, GETDATA+22, GETDATA+25
>> AQGIO	PRINTF+2
CHRTNO	GETDATA+7~, GETDATA+13*, GETDATA+24
DIR	GETPARMS+1~, GETPARMS+15~, START+1~, END+1~, PRINTS+34!, PRINTS+48!, PRINTF+11!, PRINTF+12!
DIR("A"	GETPARMS+2, GETPARMS+16, START+2, END+2
DIR("B"	GETPARMS+3, GETPARMS+17, START+3, END+3
DIR("L"	GETPARMS+5, GETPARMS+6, GETPARMS+7, GETPARMS+8, GETPARMS+19, GETPARMS+20, GETPARMS+21*
DIR(0	GETPARMS+4, GETPARMS+18, START+4, END+4
DL	VAR~, VAR+5*, GETDATA+4, GETDATA+24, GETDATA+25, PRINTS+15, PRINTS+16, PRINTS+17, PRINTS+18, PRINTF+9
DT	START+8, END+10, GETDATA+3
DUZ	HDR+3
DUZ(2	GETDATA+4, GETDATA+13, HDR+4
EMAOUT	PRINTS+1~, PRINTS+16*, PRINTS+19, PRINTS+20
ENDT	DTCHK+2~, DTCHK+4*, DTCHK+9, DTCHK+14
ESCAPE	PRINTS+1~, PRINTS+2, PRINTS+10, PRINTS+12, PRINTS+34, PRINTS+36, PRINTF+1~, PRINTF+4, PRINTF+6, PRINTF+11
EXTDT	GETDATA+1~, GETDATA+3*, GETDATA+4
FILENAME	PRINTF+1~
HRNOUT	PRINTS+1~, PRINTS+15*, PRINTS+19
I	PRINTS+28~*, PRINTS+29, PRINTS+30, PRINTF+1~
IO	DEV+5, PRINTS+4, PRINTS+49, PRINTF+2, PRINTF+13
IO("Q"	DEV+4, QUE+1!
IOF	HDR+2, PRINTF+3, PRINTF+11
ION	DEV+3
IOP	DEV+3~*
IOSL	PRINTS+34, PRINTS+35, PRINTF+11, PRINTF+14*
IOST	PRINTS+34, PRINTS+35, PRINTS+48, PRINTS+49, PRINTF+3, PRINTF+11, PRINTF+12, PRINTF+13
LINECNT	PRINTS+1~
LPCNT	PRINTF+1~
OK	GETDATA+7~, GETDATA+10, GETDATA+11, GETDATA+12, DTCHK~, DTCHK+1, DTCHK+7, DTCHK+9, DTCHK+10, DTCHK+14
OUTFNM	PRINTF+1~
PAGE	PRINTS+1~, PRINTS+2, HDR+1, HDR+5
PATH	PRINTF+1~
PATNT	GETDATA+1~, GETDATA+5, GETDATA+6, GETDATA+8, GETDATA+11, GETDATA+13, GETDATA+14, GETDATA+16, GETDATA+17, GETDATA+18 , GETDATA+21, GETDATA+22, GETDATA+24, DTCHK~, DTCHK+7, DTCHK+13, PRINTS+1~, PRINTS+11, PRINTS+12, PRINTS+14 , PRINTS+33, PRINTF+1~, PRINTF+7, PRINTF+8, PRINTF+9
PERMIT	GETDATA+7~, GETDATA+21*, GETDATA+24
PNLNGTH	PRINTF+1~
POP	DEV+3, PRINTS+1~, PRINTF+1~
PRMOUT	PRINTS+1~, PRINTS+18*, PRINTS+21
PTNTEM	GETDATA+7~, GETDATA+8*, GETDATA+9, GETDATA+24
PTNTNM	GETDATA+7~, GETDATA+14*, GETDATA+24
REC	PRINTS+1~, PRINTS+9, PRINTS+10, PRINTS+12, PRINTS+14, PRINTS+19, PRINTS+33, PRINTS+48, PRINTF+1~, PRINTF+4* , PRINTF+5, PRINTF+6*, PRINTF+8, PRINTF+9, PRINTF+12
RECOUT	PRINTS+1~, PRINTS+14, PRINTS+15, PRINTS+16, PRINTS+17, PRINTS+18, PRINTF+1~, PRINTF+9, PRINTF+10
SDL	VAR~, VAR+6*, GETDATA+19, GETDATA+20, PRINTS+26, PRINTS+27, PRINTS+29, PRINTS+30
STDT	DTCHK+2~, DTCHK+3*, DTCHK+9, DTCHK+14
TOTCNT	GETDATA+1~, GETDATA+2, GETDATA+23, GETDATA+25
TYP	PRINTS+1~, PRINTS+3*, HDR+10, HDR+11
TYPE	VAR~
TYPE("DATE"	VAR+9, VAR+10, VAR+11, GETPARMS+12, GETPARMS+13, GETPARMS+14, GETDTS+1, GETDTS+2, START+8, START+10 , END+8, END+10, END+12*, GETDATA+4, DTCHK+3, DTCHK+4, DTCHK+5, DTCHK+11, PRINTS+3, HDR+7 , HDR+8, HDR+9, HDR+10, HDR+11, HDR+12, HDR+13, HDR+15
TYPE("FORMAT"	VAR+12, GETPARMS+24*, PRINT+2, PRINT+3
U	START+10, END+12, GETDATA+4, GETDATA+13, GETDATA+16, DTCHK+8, PRINTS+34, HDR+10, HDR+11, HDR+13 , HDR+15, PRINTF+11
UDT	DTCHK+12~, DTCHK+13*, DTCHK+14
VDT	DTCHK+2~, DTCHK+8*, DTCHK+9
VIEN	DTCHK+2~, DTCHK+6, DTCHK+7, DTCHK+8
WHERCNT	PRINTS+13~, PRINTS+27*, PRINTS+28
WHROUT	PRINTS+1~, PRINTS+17*, PRINTS+21, PRINTS+22, PRINTS+23, PRINTS+26, PRINTS+27, PRINTS+29, PRINTS+30
X	GETPARMS+1~, GETPARMS+10, GETPARMS+12, GETPARMS+24, START+1~, END+1~, PRINTS+34, PRINTF+11
Y	GETPARMS+1~, GETPARMS+23, START+1~, START+7, START+8, START+10, END+1~, END+7, END+8, END+10 , END+12, GETDATA+1~, GETDATA+3*
>> ZTDESC	QUE+2*
>> ZTRTN	QUE+2*
>> ZTSAVE("*"	QUE+3*
ZTSK	QUE+4!, QUE+5, QUE+6

Customize PDF page

Package: IHS Patient Registration

Routine: AGEMARP

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: