Routine: AGGRPRT1

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

Package	Total	Caller Graph
Patient Registration GUI	1	AGGRPRT

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+2
^%ZISC	END1
CTR^AG	AGGRPRT1+8, AGGRPRT1+9
NOW^AG	AGGRPRT1+8
^AGPATCNT	AGGRPRT1+6
^AGREPRT2	AGGRPRT1+8
$$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: ?5,$P(^DPT(DFN,0),U),?43,$J($P(^AUPNPAT(DFN,41,AGGDUZ2,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: !!,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+2
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"	AGGRPRT1+9
^AGPATCH(	SCAN+3, LPAT+1, LPAT+2, PAT+2
^AUPNPAT - [#9000001]	PAT+3, FILE
^DIC(4 - [#4]	AGGRPRT1+9
^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]	AGGRPRT1+9

Label References

Name	Line Occurrences
DAY	PRINT+14
EDIT	DAY+10
END	AGGRPRT1+14
FILE	NEW+2, EDIT+3
HDR	PRINT+6, DAY+5, NEW+1, EDIT+2
LPAT	SCAN+3
NEW	DAY+10
PAT	LPAT+2
PRINT	AGGRPRT1+13
SCAN	AGGRPRT1+11
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"	AGGRPRT1+5
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"	AGGRPRT1+5*
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"	AGGRPRT1+9*, END1+1!, HDR+2
AG("NEW"	SCAN+1, PRINT+1, PRINT+4*, PRINT+7
AG("TOP"	UCI1, UCI1+1!
AG("TOTPAT"	PRINT+10, DAY+7
AG("TYPE"	AGGRPRT1+8, PRINT+13
AG("USR"	AGGRPRT1+9*, END1+1!, HDR+2
>> AGB	HDR+2
AGBDT	AGGRPRT1+5, AGGRPRT1+10, 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+2
>> AGBDTS	AGGRPRT1+10, SCAN+3, LPAT+1, LPAT+2, PAT+2
AGBM	AGGRPRT1+9*, END1+1!
>> AGE	HDR+2
>> AGGDUZ2	AGGRPRT1+5, AGGRPRT1+9, LPAT+1, LPAT+2, PAT+2, PAT+3, FILE
AGIO	AGGRPRT1+9, END1+1!
AGPGPG	SCAN+1, END1+1!, HDR+2
AGTIME	AGGRPRT1+8*, END1+1!, HDR+2
AGUCI	AGGRPRT1+9*, END1+1!, HDR+2
DA	END1+1!
>> DFN	NEW+2, EDIT+3, FILE, FILE+2, FILE+4
DFOUT	AGGRPRT1+7!, AGGRPRT1+12, 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
DIC	END1+1!
DR	END1+1!
DTOUT	AGGRPRT1+7!, AGGRPRT1+12, 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
DUOUT	AGGRPRT1+7!, AGGRPRT1+12, 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
DUZ	AGGRPRT1+9
IO	AGGRPRT1+8, AGGRPRT1+9, PRINT+7
IOSL	AGGRPRT1+9
U	AGGRPRT1+9, PAT+2, FILE
X	AGGRPRT1+8, AGGRPRT1+9, END1+1!
Y	AGGRPRT1+9, END1+1!, HDR+2*

Customize PDF page

Package: Patient Registration GUI

Routine: AGGRPRT1

Information

Source Information

Call Graph

Call Graph Total: 6

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: