Routine: DGPFRAB1

Information

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

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	;

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