Routine: AGREPRT1

Package	Total	Call Graph
IHS Patient Registration	4	(CTR,NOW,RTRN)^AG ^AGPATCNT ^AGREPRT2 $$S^AGVDF
VA Fileman	2	DD^%DT $$GET1^DIQ
Kernel	1	^%ZISC

Package	Total	Caller Graph
IHS Patient Registration	1	AGREPRT

Entry Points

Name	Comments	DBIA/ICR reference
END1
UCI1
PAT	;individual patient
HDR	;S AGPGPG=AGPGPG+1,Y=AGBDT D DD^%DT W $$S^AGVDF("IOF"),!!,AG("USR"),?72,"page ",AGPGPG,!,AG("LOC"),!?23,"DAILY REGISTRATION ACTIVITY REPORT",!,AGUCI,!,AGTIME,!!,?80-(11+$L(Y))\2,"Report for ",Y,!!
LPAT	;loop patients
EDIT
SCAN	;scan dates
END
FILE
PRINT	;
NEW
DAY	;print a days information

External References

Name	Field # of Occurrence
DD^%DT	HDR+1
^%ZISC	END1
CTR^AG	AGREPRT1+5, AGREPRT1+6
NOW^AG	AGREPRT1+5
RTRN^AG	PRINT+11, DAY+8, NEW+4, EDIT+5, END, FILE+5
^AGPATCNT	AGREPRT1+3
^AGREPRT2	AGREPRT1+5
$$S^AGVDF	END, HDR+1
$$GET1^DIQ	FILE+2, FILE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Total patients Added :",?30,AG("NEW") Line Location: PRINT+7
Function Call: WRITE	Prompt: !,"Total patients Edited :",?30,AG("EDIT") Line Location: PRINT+8
Function Call: WRITE	Prompt: !,"Total patients Removed :",?30,AG("KILL") Line Location: PRINT+9
Function Call: WRITE	Prompt: !,"Total patients Registered :",?30,AG("TOTPAT") Line Location: PRINT+10
Function Call: WRITE	Prompt: !!,?4,"NEW PATIENTS REGISTERED: ",^TMP($J,AGBDT,"N"),!!,?7,"PATIENT FILES EDITED: ",^TMP($J,AGBDT,"E"),!! Line Location: DAY+6
Function Call: WRITE	Prompt: ?6,"PATIENT FILES DELETED: ",^TMP($J,AGBDT,"K"),!! Line Location: DAY+6
Function Call: WRITE	Prompt: ?2,"TOTAL PATIENTS REGISTERED: ",AG("TOTPAT"),!! Line Location: DAY+7
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: END+0
Function Call: WRITE	Prompt: ?5,$P(^DPT(DFN,0),U),?43,$J($P(^AUPNPAT(DFN,41,DUZ(2),0),U,2),6) Line Location: FILE+0
Function Call: WRITE	Prompt: ?52,^(DR) Line Location: FILE+1
Function Call: WRITE	Prompt: ?52,$$GET1^DIQ(9000001,DFN_",",1107.3) Line Location: FILE+2
Function Call: WRITE	Prompt: ?66,$J(^(DR),10) Line Location: FILE+3
Function Call: WRITE	Prompt: ?66,$J($P($$GET1^DIQ(2,DFN_",",.03),"@"),10) Line Location: FILE+4
Function Call: WRITE	Prompt: ! Line Location: FILE+5
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!!,AG("USR"),?72,"page ",AGPGPG,!,AG("LOC"),!?23,"DAILY REGISTRATION ACTIVITY REPORT",!,AGUCI,!,AGTIME,!!,?80-(11+$L(Y))\2,"Report for ",Y,!! Line Location: HDR+0
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!!,AG("USR"),?72,"page ",AGPGPG,!,AG("LOC"),!?23,"DAILY REGISTRATION ACTIVITY REPORT",!,AGUCI,!,AGTIME,!!,?80-(36+$L(Y))\2,"Report from ",AGB," to ",AGE,!! Line Location: HDR+1
Function Call: WRITE	Prompt: ?80-$L(AG("HD"))\2,AG("HD"),!!,?13,"Name",?44,"IHS #",?56,"SSN",?70,"DOB",!,"-----------------------------------",?43,"------",?52,"-----------",?66,"------------",! Line Location: UCI1+0

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	AGREPRT1+6
^AGPATCH(	SCAN+3, LPAT+1, LPAT+2, PAT+2
^AUPNPAT - [#9000001]	PAT+3, FILE
^DIC(4 - [#4]	AGREPRT1+6
^DPT - [#2]	FILE
^TMP($J	SCAN+2!, PAT+2, PAT+4, PAT+5, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+14, DAY+2 , DAY+3, DAY+4, DAY+6, NEW, NEW+2, EDIT+1, EDIT+3, END1+1!
^UTILITY("DIQ1"	END1+1!
^VA(200 - [#200]	AGREPRT1+6

Label References

Name	Line Occurrences
DAY	PRINT+14
EDIT	DAY+10
END	AGREPRT1+11
FILE	NEW+2, EDIT+3
HDR	PRINT+6, DAY+5, NEW+1, EDIT+2, FILE+5
LPAT	SCAN+3
NEW	DAY+10
PAT	LPAT+2
PRINT	AGREPRT1+10
SCAN	AGREPRT1+8
UCI1	NEW+1, EDIT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	END1+1!
AG	END1+1!
AG("B"	AGREPRT1+2
AG("DFN"	LPAT+2*, PAT+2, PAT+3, PAT+4, PAT+5
AG("E"	SCAN+3
AG("EDIT"	SCAN+1, PRINT+1, PRINT+3*, PRINT+8
AG("FAC"	AGREPRT1+2*
AG("GL"	PAT+2*, PAT+4
AG("HAT"	END!
AG("HD"	PRINT+6, NEW+1, EDIT+2*, UCI1
AG("KILL"	SCAN+1, PRINT+1, PRINT+5*, PRINT+9
AG("LOC"	AGREPRT1+6*, END1+1!, HDR+1
AG("NEW"	SCAN+1, PRINT+1, PRINT+4*, PRINT+7
AG("TOP"	UCI1, UCI1+1!
AG("TOTPAT"	PRINT+10, DAY+7
AG("TYPE"	AGREPRT1+5, PRINT+13
AG("USR"	AGREPRT1+6*, END1+1!, HDR+1
>> AGB	HDR+1
AGBDT	AGREPRT1+2, AGREPRT1+7, SCAN+3, PAT+2, PAT+4, PAT+5, PRINT+2, PRINT+3, PRINT+4, PRINT+5 , PRINT+14, DAY+2, DAY+3, DAY+4, DAY+6, NEW, NEW+2, EDIT+1, EDIT+3, END1+1! , HDR+1
>> AGBDTS	AGREPRT1+7, SCAN+3, LPAT+1, LPAT+2, PAT+2
AGBM	AGREPRT1+6*, END1+1!, FILE+5
>> AGE	HDR+1
AGIO	AGREPRT1+6, END1+1!
AGPGPG	SCAN+1, END1+1!, HDR+1
AGTIME	AGREPRT1+5*, END1+1!, HDR+1
AGUCI	AGREPRT1+6*, END1+1!, HDR+1
DA	END1+1!
>> DFN	NEW+2, EDIT+3, FILE, FILE+2, FILE+4
DFOUT	AGREPRT1+4!, AGREPRT1+9, SCAN+3, LPAT+2, PAT+1, PRINT+2, PRINT+12, PRINT+14, DAY+1, DAY+9 , NEW+2, NEW+3, EDIT, EDIT+3, EDIT+4, FILE+5
DIC	END1+1!
DR	END1+1!
DTOUT	AGREPRT1+4!, AGREPRT1+9, SCAN+3, LPAT+2, PAT+1, PRINT+2, PRINT+12, PRINT+14, DAY+1, DAY+9 , NEW+2, NEW+3, EDIT, EDIT+3, EDIT+4, FILE+5
DUOUT	AGREPRT1+4!, AGREPRT1+9, SCAN+3, LPAT+2, PAT+1, PRINT+2, PRINT+12, PRINT+14, DAY+1, DAY+9 , NEW+2, NEW+3, EDIT, EDIT+3, EDIT+4, FILE+5
DUZ	AGREPRT1+6
DUZ(2	AGREPRT1+2, AGREPRT1+6, LPAT+1, LPAT+2, PAT+2, PAT+3, FILE
IO	AGREPRT1+5, AGREPRT1+6, PRINT+7
IOSL	AGREPRT1+6
U	AGREPRT1+6, PAT+2, FILE
X	AGREPRT1+5, AGREPRT1+6, END1+1!
Y	AGREPRT1+6, END1+1!, HDR+1*

Customize PDF page

Package: IHS Patient Registration

Routine: AGREPRT1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: