Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DGPFRFR1

Package: Registration

Routine: DGPFRFR1


Information

DGPFRFR1 ;ALB/RBS - PRF ASSIGNMENTS DUE REVIEW REPORT CONT. ; 5/21/03 4:40pm

Source Information

Source file <DGPFRFR1.m>

Entry Points

Name Comments DBIA/ICR reference
START ; compile and print report
LOOP(DGSORT) ;use sort var's for record searching to build list
; Input:
; DGSORT - array of user selected report parameters
BLDTMP(DGSORT,DGDFN,DGIEN,DGLIST) ; list global builder
; Input:
; DGSORT - array of user selected report parameters
; DGDFN - ien of patient in PATIENT (#2) file
; DGIEN - ien pointer to PRF ASSIGNMENT (#26.13) file record
PRINT(DGSORT,DGLIST) ;output report
; Input:
; DGSORT - array of user selected report parameters
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
SUB(CNT,TYP) ; print sub-totals
; Input:
; CNT - count of records printed
; TYP - indicator of which total count is being printed
; Output: Write lines of Sub-Totals and Totals per Flag and Category
HEAD ;Print/Display page header
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," >>> No Record Flag Assignments were found using the report criteria."
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,$E(DGNAM,1,20),?22,$P(DGSTR,U),?33,$P(DGSTR,U,2),?43,$P(DGSTR,U,3),?60,$P(DGSTR,U,4)
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !!,"REPORT SUMMARY:",!,"---------------"
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: !,"Total Review Assignments for Category "
  • Line Location: PRINT+45
Function Call: WRITE
  • Prompt: $S(DGCAT=1:"I",DGCAT=2:"II",1:"I & II"),":"
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: ?47,$J(+$G(DGCNT(DGCAT)),6)
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: !!,"<End of Report>"
  • Line Location: PRINT+49
Function Call: WRITE
  • Prompt: !,"Total Review Assignments for "_DGTYPE_": ",DGCOUNT
  • Line Location: SUB+10
Function Call: WRITE
  • Prompt: !?22,"PATIENT RECORD FLAGS"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !?16,"ASSIGNMENTS DUE FOR REVIEW REPORT",?70,"Page: ",$G(DGPAGE)
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !?16,"---------------------------------",?51,"Printed: ",DGDT
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !?2,"CATEGORY: "_$S($G(DGCAT)=1:"Category I (National)",$G(DGCAT)=2:"Category II (Local)",1:"Both (Category I & II)")
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,"DATE RANGE: ",$$FDATE^VALM1($G(DGSORT("DGBEG")))_" TO "_$$FDATE^VALM1($G(DGSORT("DGEND")))
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !?1,"FLAG NAME: ",$G(DGFG),!
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: DGLINE
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?22,"SSN",?33,"ASSIGNED",?43,"REVIEW DT",?54,"NOTIFICATION SENT"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,"--------------------",?22,"---------",?33,"--------",?43,"---------",?54,"-----------------"
  • Line Location: HEAD+14
Info |  Source |  Entry Points |  Interaction Calls