Routine: DGPFRAB1

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

Entry Points

Name	Comments	DBIA/ICR reference
START	; compile and print report
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
BLDTMP(DGPFA,DGPFAH,DGHIEN,DGCATG,DGLIST)	; list global builder ; Input: ; DGPFA - array of assignment record data ; DGPFAH - array of assignment history record data ; DGHIEN - ien to PRF ASSIGNMENT HISTORY (#26.14) file record ; DGCATG - category of flag 1=National, 2=Local ; DGLIST - temp global name used for report list
PRINT(DGSORT,DGLIST)	;output report ; Input: ; DGSORT - array of user selected report parameters ; DGLIST - temp global name used for report list
PRNTPAT	; loop and print all patients for flag
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
HEAD	;Print/Display page header
HEAD1
HEAD2
EXIT	;

External References

Name	Field # of Occurrence
HOME^%ZIS	EXIT+4
^%ZISC	EXIT+4
$$S^%ZTLOAD	HEAD+2
$$GETASGN^DGPFAA	LOOP+52
$$GETHIST^DGPFAAH	LOOP+49
$$GETPAT^DGPFUT2	BLDTMP+23
WAIT^DICD	START+1
^DIR	PAUSE+6
$$FDATE^VALM1	BLDTMP+28, BLDTMP+30, HEAD+8
$$FMTE^XLFDT	PRINT+27
$$NOW^XLFDT	PRINT+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," >>> No Record Flag Assignments were found using the report criteria.",! Line Location: PRINT+31
Function Call: WRITE	Prompt: !!,"<End of Report>" Line Location: PRINT+52
Function Call: WRITE	Prompt: ! Line Location: PRNTPAT+8
Function Call: WRITE	Prompt: $E(DGNAM,1,16),?18,$P(DGSTR,U) Line Location: PRNTPAT+10
Function Call: WRITE	Prompt: ?30,$P(DGSTR,U,2),?48,$P(DGSTR,U,3),?60,$P(DGSTR,U,4),?71,$P(DGSTR,U,5) Line Location: PRNTPAT+11
Function Call: WRITE	Prompt: !?25,"PATIENT RECORD FLAGS" Line Location: HEAD+6
Function Call: WRITE	Prompt: !?20,"ASSIGNMENTS APPROVED BY REPORT",?68,"Page: ",$G(DGPAGE) Line Location: HEAD+7
Function Call: WRITE	Prompt: !,"Date Range: ",$$FDATE^VALM1(DGSORT("DGBEG"))_" to "_$$FDATE^VALM1(DGSORT("DGEND")) Line Location: HEAD+8
Function Call: WRITE	Prompt: ?50,"Printed: ",DGDT Line Location: HEAD+9
Function Call: WRITE	Prompt: !,DGLINE Line Location: HEAD+10
Function Call: WRITE	Prompt: !!,"Approved By: ",DGAPNM Line Location: HEAD1+0
Function Call: WRITE	Prompt: !,"Flag Name: ",$G(DGFG)," - ",$S(+DGCAT=1:"Category I (National)",1:"Category II (Local)") Line Location: HEAD2+0
Function Call: WRITE	Prompt: !!,"PATIENT",?18,"SSN",?30,"ACTION",?48,"ACTION DT",?60,"REVIEW DT",?71,"STATUS" Line Location: HEAD2+2
Function Call: WRITE	Prompt: !,"================",?18,"==========",?30,"================",?48,"=========",?60,"=========",?71,"=========" Line Location: HEAD2+3
Routine Call	%ZIS Line Location: EXIT+4
Routine Call	DIR Line Location: PAUSE+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPF(26.14 - [#26.14]	LOOP+40, LOOP+44, LOOP+47
^TMP("DGPFRAB1"	START+3

Label References

Name	Line Occurrences
BLDTMP	LOOP+56
EXIT	START+8
HEAD	PRINT+30, PRINT+35, PRINT+38, PRINT+42, PRNTPAT+6
HEAD1	PRINT+38, PRINT+39, PRINT+42, PRNTPAT+6
HEAD2	PRINT+42, PRINT+43, PRNTPAT+6
LOOP	START+5
PAUSE	PRINT+38, PRINT+42, PRNTPAT+6
PRINT	START+6
PRNTPAT	PRINT+45

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EXIT+3!
DG1	BLDTMP+11~, BLDTMP+35*, BLDTMP+36
DG2	BLDTMP+11~, BLDTMP+35*, BLDTMP+36
DGABIEN	LOOP+8~, LOOP+29*, LOOP+43, LOOP+45, LOOP+50
DGACTDT	BLDTMP+12~, BLDTMP+28*, BLDTMP+32
DGAIEN	LOOP+9~, LOOP+42, LOOP+43, LOOP+44*, LOOP+45, LOOP+47
DGAPNM	PRINT+7~, PRINT+34, PRINT+36, PRINT+37, PRINT+40, PRINT+41, PRNTPAT+3, PRNTPAT+4, PRNTPAT+5, PRNTPAT+7 , HEAD1
DGAPROV	LOOP+10~, LOOP+29
DGBEG	LOOP+11~, LOOP+37
DGC	LOOP+12~, LOOP+30, LOOP+31, LOOP+53
DGCAT	LOOP+13~, LOOP+30, PRINT+8~, PRINT+34, PRINT+40, PRINT+41, PRNTPAT+3, PRNTPAT+4, PRNTPAT+5, PRNTPAT+7 , HEAD2
DGCATG	LOOP+14~, LOOP+55*, LOOP+56, BLDTMP~, BLDTMP+36
DGCNT	PRINT+9~, PRINT+26, PRINT+39, PRNTPAT+12
DGDFN	BLDTMP+13~, BLDTMP+21, BLDTMP+23, BLDTMP+36, PRINT+10~, PRINT+34, PRNTPAT+4*, PRNTPAT+5, PRNTPAT+7, PRNTPAT+9
DGDT	PRINT+11~, PRINT+27*, HEAD+9
DGEND	LOOP+15~, LOOP+41
DGFG	PRINT+12~, PRINT+34, PRINT+41, PRINT+42, PRINT+43, PRNTPAT+3, PRNTPAT+4, PRNTPAT+5, PRNTPAT+7, HEAD2
DGFGNM	BLDTMP+14~, BLDTMP+26, BLDTMP+27, BLDTMP+36
DGHIEN	LOOP+16~, LOOP+46, LOOP+47, LOOP+49, LOOP+56, BLDTMP~, BLDTMP+36
DGIEN	PRINT+13~, PRINT+34, PRINT+37, PRINT+38, PRINT+39, PRINT+40, PRINT+41, PRNTPAT+3, PRNTPAT+4, PRNTPAT+5 , PRNTPAT+7
DGLINE	BLDTMP+15~, BLDTMP+32, BLDTMP+36, PRINT+14~, PRINT+26, HEAD+10
DGLIST	START+2~, START+3*, START+4, START+5, START+6, START+7, LOOP~, LOOP+56, BLDTMP~, BLDTMP+36 , PRINT~, PRINT+29, PRINT+36, PRINT+37, PRINT+40, PRINT+41, PRNTPAT+3, PRNTPAT+4, PRNTPAT+5, PRNTPAT+7
DGLN	PRINT+15~, PRINT+34, PRNTPAT+5, PRNTPAT+7
DGNAM	PRINT+16~, PRINT+34, PRNTPAT+3, PRNTPAT+4, PRNTPAT+5, PRNTPAT+7, PRNTPAT+10
DGOCAT	PRINT+17~, PRINT+34, PRINT+47
DGODFN	PRINT+18~, PRINT+34, PRNTPAT+2, PRNTPAT+6, PRNTPAT+9
DGOFG	PRINT+19~, PRINT+34, PRINT+42, PRINT+43, PRINT+47
DGOIEN	PRINT+20~, PRINT+34, PRINT+38, PRINT+39, PRINT+47
DGPAGE	PRINT+21~, PRINT+26, PAUSE+6, HEAD+3, HEAD+5, HEAD+7
DGPAT	BLDTMP+16~, BLDTMP+22!, BLDTMP+23
DGPAT("NAME"	BLDTMP+24
DGPAT("SSN"	BLDTMP+32
DGPFA	LOOP+17~, LOOP+51!, LOOP+52, LOOP+56, BLDTMP~
DGPFA("DFN"	BLDTMP+21
DGPFA("FLAG"	LOOP+53, LOOP+55, BLDTMP+26
DGPFA("REVIEWDT"	BLDTMP+29, BLDTMP+30
DGPFA("STATUS"	LOOP+54, BLDTMP+32
DGPFAH	LOOP+18~, LOOP+48!, LOOP+49, LOOP+56, BLDTMP~
DGPFAH("ACTION"	BLDTMP+32
DGPFAH("APPRVBY"	LOOP+50, BLDTMP+35
DGPFAH("ASSIGN"	LOOP+52
DGPFAH("ASSIGNDT"	BLDTMP+28
DGPNM	BLDTMP+17~, BLDTMP+24, BLDTMP+25, BLDTMP+36
DGQ	LOOP+19~, LOOP+36, LOOP+40, LOOP+41, PRINT+22~, PRINT+26, PRINT+36, PRINT+37, PRINT+38, PRINT+40 , PRINT+41, PRINT+42, PRINT+50, PRNTPAT+3, PRNTPAT+4, PRNTPAT+5, PRNTPAT+6, PAUSE~, PAUSE+6, HEAD+2*
DGREV	BLDTMP+18~, BLDTMP+30, BLDTMP+31, BLDTMP+32
DGSORT	START+5, START+6, LOOP~, PRINT~
DGSORT(	LOOP+27
DGSORT("DGBEG"	HEAD+8
DGSORT("DGEND"	HEAD+8
DGSTAT	LOOP+20~, LOOP+32, LOOP+33, LOOP+54
DGSTATUS	LOOP+21~, LOOP+32
DGSTR	PRINT+23~, PRINT+34, PRNTPAT+7, PRNTPAT+10, PRNTPAT+11
DGSUB	LOOP+22~, LOOP+36, LOOP+37, LOOP+40*, LOOP+41, LOOP+44, LOOP+47
DGX	LOOP+23~, LOOP+27*
DIR	PAUSE+6!
DIR(0	PAUSE+6*
IOF	HEAD+3
IOSL	PRINT+38, PRINT+42, PRNTPAT+6
IOST	START+1, PAUSE+6, HEAD+3
POP	EXIT+3!
U	BLDTMP+21, BLDTMP+26, BLDTMP+32, BLDTMP+35, PRNTPAT+10, PRNTPAT+11
X	PRINT+24~
Y	PRINT+24~, PAUSE+6
>> ZTQUEUED	PRINT+50, HEAD+2, EXIT+1, EXIT+2
>> ZTREQ	EXIT+1*
>> ZTSTOP	HEAD+2*

Customize PDF page

Package: Registration

Routine: DGPFRAB1

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: