Routine: DGPFRPA1

Information

DGPFRPA1 ;ALB/RBS - PRF PATIENT ASSIGNMENTS REPORT CONT. ; 5/21/04 12:53pm

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,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
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
HEAD	;Print/Display page header
EXIT	;

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