Routine: DGPFRPA1

Package	Total	Call Graph
Kernel	4	HOME^%ZIS ^%ZISC $$S^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
Registration	4	($$GETALL,$$GETASGN)^DGPFAA ($$GETFIRST,$$GETHIST)^DGPFAAH $$GETPAT^DGPFUT2 $$FDATE^VALM1
VA Fileman	2	WAIT^DICD ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;Print/Display page header
PRINT(DGSORT,DGLIST)	;output report ; Input: ; DGSORT - array of user selected report parameters ; DGLIST - temp global name used for report list
PAUSE(DGQ)	; pause screen display ; Input: ; DGQ - var used to quit report processing to user CRT ; Output: ; DGQ - passed by reference - 0 = Continue, 1 = Quit
BLDTMP(DGPFA,DGIEN,DGLIST)	; list global builder ; Input: ; DGPFA - array of assignment record data ; DGIEN - ien pointer to PRF ASSIGNMENT (#26.13) file record ; DGLIST - temp global name used for report list
START	; compile and print report
EXIT	;
LOOP(DGSORT,DGLIST)	;use sort var's for record searching to build list ; Input: ; DGSORT - array of user selected report parameters ; DGLIST - temp global name

External References

Name	Field # of Occurrence
HOME^%ZIS	EXIT+4
^%ZISC	EXIT+4
$$S^%ZTLOAD	HEAD+2
$$GETALL^DGPFAA	LOOP+32
$$GETASGN^DGPFAA	LOOP+37
$$GETFIRST^DGPFAAH	BLDTMP+19
$$GETHIST^DGPFAAH	BLDTMP+19
$$GETPAT^DGPFUT2	LOOP+27
WAIT^DICD	START+1
^DIR	PAUSE+6
$$FDATE^VALM1	BLDTMP+21, BLDTMP+23
$$FMTE^XLFDT	PRINT+21
$$NOW^XLFDT	PRINT+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," >>> No Record Flag Assignments were found using the report criteria.",! Line Location: PRINT+26
Function Call: WRITE	Prompt: !,DGCNT,?3,$E($P(DGSTR,U),1,17),?21,$P(DGSTR,U,2),?25,$E($P(DGSTR,U,3),1,11),?38,$P(DGSTR,U,4),?48,$P(DGSTR,U,5),?59,$P(DGSTR,U,6),?69,$E($P(DGSTR,U,7),1,11) Line Location: PRINT+36
Function Call: WRITE	Prompt: !!,"<End of Report>" Line Location: PRINT+42
Function Call: WRITE	Prompt: !?25,"PATIENT RECORD FLAGS" Line Location: HEAD+7
Function Call: WRITE	Prompt: !?22,"PATIENT ASSIGNMENTS REPORT",?68,"Page: ",$G(DGPAGE) Line Location: HEAD+8
Function Call: WRITE	Prompt: !,"Report Selected: "_$S(DGSTAT=1:"ACTIVE",DGSTAT=2:"INACTIVE",1:"Both (ACTIVE & INACTIVE)") Line Location: HEAD+9
Function Call: WRITE	Prompt: ?50,"Printed: ",DGDT Line Location: HEAD+10
Function Call: WRITE	Prompt: !,DGLINE Line Location: HEAD+11
Function Call: WRITE	Prompt: !!,"Patient: ",$P(DGSORT("DGDFN"),U,2)," ",$P(DGSORT("DGDFN"),U,3) Line Location: HEAD+12
Function Call: WRITE	Prompt: !!?3,"FLAG NAME",?15,"CATEGORY",?25,"APPROVED BY",?38,"ENTERED",?48,"REVIEW DT",?59,"STATUS",?69,"OWNING SITE" Line Location: HEAD+13
Function Call: WRITE	Prompt: !,"------------------",?20,"---",?25,"-----------",?38,"--------",?48,"---------",?59,"--------",?69,"-----------" Line Location: HEAD+14
Routine Call	%ZIS Line Location: EXIT+4
Routine Call	DIR Line Location: PAUSE+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DGPFRPA1"	START+3

Label References

Name	Line Occurrences
BLDTMP	LOOP+40
EXIT	START+8
HEAD	PRINT+25, PRINT+30, PRINT+33
LOOP	START+5
PAUSE	PRINT+33
PRINT	START+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EXIT+3!
DGACTDT	BLDTMP+9~, BLDTMP+21*, BLDTMP+30
DGAPRVBY	BLDTMP+10~, BLDTMP+26, BLDTMP+27, BLDTMP+30
DGCAT	PRINT+7~, PRINT+29, PRINT+31, PRINT+32, PRINT+34
DGCATG	BLDTMP+11~, BLDTMP+28*, BLDTMP+29, BLDTMP+31
DGCNT	PRINT+8~, PRINT+20, PRINT+29, PRINT+35*, PRINT+36
DGDFN	LOOP+8~, LOOP+27, LOOP+32, PRINT+9~, PRINT+29*
DGDT	PRINT+10~, PRINT+21*, HEAD+10
DGFG	PRINT+11~, PRINT+29, PRINT+32, PRINT+34
DGFGNM	BLDTMP+12~, BLDTMP+24, BLDTMP+25, BLDTMP+30
DGIEN	LOOP+9~, LOOP+33, LOOP+34, LOOP+37, LOOP+40, BLDTMP~, BLDTMP+19
DGIENS	LOOP+10~, LOOP+32
DGIENS(	LOOP+34
DGLINE	BLDTMP+13~, BLDTMP+30, BLDTMP+31, PRINT+12~, PRINT+20, HEAD+11
DGLIST	START+2~, START+3*, START+4, START+5, START+6, START+7, LOOP~, LOOP+40, BLDTMP~, BLDTMP+31 , PRINT~, PRINT+24, PRINT+31, PRINT+32, PRINT+34
DGNAM	PRINT+13~, PRINT+29*
DGPAGE	PRINT+14~, PRINT+20, PAUSE+6, HEAD+4, HEAD+6, HEAD+8
DGPAT	LOOP+11~, LOOP+26!, LOOP+27
DGPAT("NAME"	LOOP+30
DGPAT("SSN"	LOOP+29
DGPCAT	BLDTMP+14~, BLDTMP+29*, BLDTMP+30
DGPFA	LOOP+12~, LOOP+36!, LOOP+37, LOOP+40, BLDTMP~
DGPFA("FLAG"	BLDTMP+24, BLDTMP+28
DGPFA("OWNER"	BLDTMP+30
DGPFA("REVIEWDT"	BLDTMP+22
DGPFA("STATUS"	LOOP+38, BLDTMP+30
DGPFAH	BLDTMP+15~, BLDTMP+19
DGPFAH("APPRVBY"	BLDTMP+26
DGPFAH("ASSIGNDT"	BLDTMP+20, BLDTMP+21, BLDTMP+31
DGQ	PRINT+15~, PRINT+20, PRINT+31, PRINT+32, PRINT+33, PRINT+37, PRINT+40, PAUSE~, PAUSE+6, HEAD+2*
DGREVDT	BLDTMP+16~, BLDTMP+22, BLDTMP+23, BLDTMP+30
DGSORT	START+5, START+6, LOOP~, PRINT~
DGSORT(	LOOP+20
DGSORT("DGDFN"	LOOP+30*, HEAD+12
DGSORT("DGSTATUS"	PRINT+22
DGSSN	LOOP+13~, LOOP+29*, LOOP+30
DGSTAT	LOOP+14~, LOOP+22, LOOP+23, LOOP+38, PRINT+16~, PRINT+22*, HEAD+9
DGSTATUS	LOOP+15~, LOOP+22, LOOP+38
DGSTR	PRINT+17~, PRINT+29, PRINT+34, PRINT+36
DGX	LOOP+16~, LOOP+20*
DIR	PAUSE+6!
DIR(0	PAUSE+6*
IOF	HEAD+4
IOSL	PRINT+33
IOST	START+1, PAUSE+6, HEAD+4
POP	EXIT+3!
U	LOOP+30, LOOP+38, BLDTMP+24, BLDTMP+26, BLDTMP+30, PRINT+36, HEAD+12
X	PRINT+18~
Y	PRINT+18~, PAUSE+6
>> ZTQUEUED	PRINT+40, HEAD+2, EXIT+1, EXIT+2
>> ZTREQ	EXIT+1*
>> ZTSTOP	HEAD+2*

Customize PDF page

Package: Registration

Routine: DGPFRPA1

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: