Routine: DGPFRAB1

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Information

DGPFRAB1 ;ALB/RBS - PRF APPROVED BY REPORT CONT. ; 6/4/04 11:17am

Source Information

Source file <DGPFRAB1.m>

Call Graph

Call Graph Total: 10

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

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;Print/Display page header
PRNTPAT	; loop and print all patients for flag
HEAD2
HEAD1
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
START	; compile and print report
EXIT	;
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
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
$$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

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

Call Graph Total: 10