Routine: DGPREP5

Information

DGPREP5 ;ALB/SCK - PreRegistration Audit field totals ; 10/10/03 3:16pm

Source Information

Source file <DGPREP5.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
VA Fileman	2	WAIT^DICD ^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGPRE PRE-REGISTER AUDIT RPT

Entry Points

Name	Comments	DBIA/ICR reference
AGN
EN	; Entry point for audit totals by user
RPT	; Call procedures to build the data arrays, and then call the print procedure
PRNT(DGPDD)	; Print the report
TOT	; Display totals by user
HDR(DGPDD)	; Page header
EXIT	; Clean up and exit
BLD2	; Build array of audit data for the PATIENT File, #2
BLD3	; Build array of audit data for file 2.312
NEWPGE()	; Check for device and execute header if user does not quit
HDR1(DGPDD,DFLD)	; Field header

Name	Field # of Occurrence
^%ZIS	AGN+8
HOME^%ZIS	AGN+14
^%ZISC	EXIT+1
^%ZTLOAD	AGN+13
WAIT^DICD	AGN+17
^DIR	EN+10, AGN, NEWPGE+3
$$FMTE^XLFDT	EN+8, HDR+3
$$NOW^XLFDT	EN+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The ending date for this report cannot be earlier then the beginning date" Line Location: AGN+4
Function Call: WRITE	Prompt: !!?5,"No audit data for this date range" Line Location: PRNT+6
Function Call: WRITE	Prompt: !?5,$P(^VA(200,DGPIENX,0),U),": ",?50,$J(^TMP("DGPAUD",$J,DGPDD,DGPFLDX,DGPIENX),6) Line Location: PRNT+13
Function Call: WRITE	Prompt: !!?5,$P(^DD(DGPDD,$S(DGPDD=2:DGPFLDX,1:$P(DGPFLDX,",",2)),0),U)_" (TOTAL): ",?50,$J(DGPTOT,6) Line Location: PRNT+16
Function Call: WRITE	Prompt: !?5,DGPLN,! Line Location: PRNT+18
Function Call: WRITE	Prompt: !!,?2,"User Totals" Line Location: TOT+3
Function Call: WRITE	Prompt: !?2,DGPDSH Line Location: TOT+4
Function Call: WRITE	Prompt: !?5,$P(^VA(200,DGPIENX,0),U),?50,$J(+$G(^TMP("DGPTOT",$J,DGPIENX)),5) Line Location: TOT+8
Function Call: WRITE	Prompt: !!?5,"Total Changes: ",?50,$J(DGPTOT,5) Line Location: TOT+11
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: !?2,"Pre-Registration Audit Totals" Line Location: HDR+2
Function Call: WRITE	Prompt: !?2,"For Period Covering "_$$FMTE^XLFDT(DGPBEG,"2D")_" to "_$$FMTE^XLFDT(DGPEND,"2D") Line Location: HDR+3
Function Call: WRITE	Prompt: !?2,DGPDSH Line Location: HDR+4
Function Call: WRITE	Prompt: !!,?2,$S(DGPDD=2:"Patient Demographic Data --",DGPDD=2.312:"Patient Insurance Data",1:"") Line Location: HDR+5
Function Call: WRITE	Prompt: !!?5,"** Field: ",$P(^DD(DGPDD,$S(DGPDD=2.312:$P(DFLD,",",2),1:DFLD),0),U)," **",! Line Location: HDR1+2
Routine Call	%ZIS Line Location: AGN+14
Routine Call	DIR Line Location: EN+10 AGN NEWPGE+3
Routine Call	%ZIS Line Location: AGN+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	PRNT+16, HDR1+2
^DD(2	BLD2+4, BLD2+5
^DD(2.312	BLD3+4, BLD3+5
^DIA(2	BLD2+9, BLD2+10, BLD2+11, BLD3+9, BLD3+10, BLD3+11
^TMP("DGPAUD"	RPT+5!, EXIT+2!, BLD2+16, BLD3+16, PRNT+5, PRNT+9, PRNT+11, PRNT+13, PRNT+14
^TMP("DGPTOT"	RPT+6!, BLD2+17, BLD3+17, TOT+6, TOT+8, TOT+9
^VA(200 - [#200]	PRNT+13, TOT+8
^XUSEC("DGPRE EDIT"	BLD2+15, BLD3+15
^XUSEC("DGPRE SUPV"	BLD2+15, BLD3+15

Name	Line Occurrences
$$NEWPGE	PRNT+3, PRNT+12, TOT+1, TOT+7, HDR1+1
AGN	AGN+3
BLD2	RPT+8
BLD3	RPT+9
EXIT	EN+11, AGN+1, AGN+8, AGN+9, RPT+12, RPT+14, TOT+6, HDR1+1
HDR	PRNT+4, PRNT+12, TOT+2, TOT+7, HDR1+1
HDR1	PRNT+10
PRNT	RPT+11, RPT+13
TOT	RPT+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	AGN+8*
DFLD	HDR1~, HDR1+2
DGOK	NEWPGE+1~, NEWPGE+4*, NEWPGE+5
DGPABRT	EN+1~, RPT+12, RPT+14, PRNT+3, PRNT+9, PRNT+11, PRNT+12, PRNT+15, TOT+1, TOT+6 , TOT+7, HDR1+1, NEWPGE+3*, NEWPGE+4
DGPBEG	EN+1~, EN+12*, AGN+3, BLD2+7, BLD3+7, HDR+3
DGPDATA	BLD2+1~, BLD2+11, BLD2+12, BLD2+13, BLD2+14, BLD2+16, BLD3+1~, BLD3+11, BLD3+12, BLD3+13 , BLD3+14, BLD3+16
DGPDD	PRNT~, PRNT+4, PRNT+5, PRNT+9, PRNT+10, PRNT+11, PRNT+12, PRNT+13, PRNT+14, PRNT+16 , HDR~, HDR+5, HDR1~, HDR1+1, HDR1+2
DGPDSH	EN+1~, RPT+2*, TOT+4, HDR+4
DGPDUZ	BLD2+1~, BLD2+14, BLD2+15, BLD2+16, BLD2+17, BLD3+1~, BLD3+14, BLD3+15, BLD3+16, BLD3+17
DGPE	BLD2+8, BLD2+9, BLD3+1~, BLD3+8, BLD3+9
DGPEND	EN+1~, AGN+2*, AGN+3, BLD2+8, BLD3+8, HDR+3
DGPFLD	BLD2+1~
DGPFLD(	BLD2+5*, BLD2+13, BLD3+13
DGPFLD(".3121,"	BLD3+5*
DGPFLD1	EN+1~
DGPFLDX	PRNT+1~, PRNT+8, PRNT+9, PRNT+10, PRNT+11, PRNT+13, PRNT+14, PRNT+16
DGPIENX	PRNT+1~, PRNT+11, PRNT+13, PRNT+14, TOT+5, TOT+6*, TOT+8, TOT+9
DGPLN	EN+1~, RPT+3*, PRNT+18
DGPN1	BLD2+1~, BLD2+3, BLD2+4, BLD2+5, BLD2+7, BLD2+9, BLD2+10, BLD3+1~, BLD3+3, BLD3+4 , BLD3+5, BLD3+7, BLD3+9, BLD3+10
DGPN2	BLD2+1~, BLD2+10, BLD2+11, BLD3+1~, BLD3+10, BLD3+11
DGPTOT	PRNT+1~, PRNT+14, PRNT+16, PRNT+17, TOT+5, TOT+9, TOT+11
DIR	EN+2!, AGN+6!, NEWPGE+1~
DIR("?"	EN+6, EN+7
DIR("A"	EN+9, EN+13
DIR("B"	EN+8*
DIR(0	EN+4, NEWPGE+3
DIRUT	EN+2!, EN+11, AGN+1
IO	RPT+1
IO("Q"	AGN+9, AGN+15!
IOF	HDR+1
IOSL	PRNT+12, TOT+7, HDR1+1
IOST	NEWPGE+2
POP	AGN+8, EXIT+2!
U	BLD2+12, BLD2+13, BLD2+14, BLD2+16, BLD3+12, BLD3+13, BLD3+14, BLD3+16, PRNT+13, PRNT+16 , TOT+8, HDR1+2
VAUTD	EN+1~
>> X	PRNT+3, TOT+1
>> X1	EN+5*, EN+8
>> Y	EN+12, AGN+2, NEWPGE+3
ZTDESC	AGN+10*, AGN+15!
ZTQUEUED	EXIT+1, EXIT+2!
ZTRTN	AGN+10*, AGN+15!
ZTSAVE	AGN+15!
ZTSAVE("DGPBEG"	AGN+11*
ZTSAVE("DGPEND"	AGN+11*
ZTSAVE("VAUTD"	AGN+12*
ZTSAVE("VAUTD("	AGN+12*
ZTSK	AGN+13, AGN+15!

Customize PDF page

Package: Registration

Routine: DGPREP5

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: