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: DGPFRPI2

Package: Registration

Routine: DGPFRPI2


Information

DGPFRPI2 ;ALB/RBS - PRF PRINCIPAL INVEST REPORT CONT. ; 6/14/04 10:39am

Source Information

Source file <DGPFRPI2.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT(DGSORT,DGLIST) ;output report
; Input:
; DGSORT - array of user selected report parameters
; DGLIST - temp global name used for report list
; ^TMP("DGPFRPI1",$J)
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
HEAD3
PISTR(DGFG) ;string Principal Investigators together for sub-header display

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," >>> No Record Flag Assignments were found using the report criteria.",!
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+59
Function Call: WRITE
  • Prompt: $E(DGPNAM,1,16),?18,$P(DGSTR,U)
  • Line Location: PRINT+61
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: PRINT+62
Function Call: WRITE
  • Prompt: !!,"<End of Report>"
  • Line Location: PRINT+67
Function Call: WRITE
  • Prompt: !?(IOM/2)-($L(DGHSTR)/2),DGHSTR
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !?(IOM/2)-($L(DGHSTR1)/2),DGHSTR1
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: ?68,"Page: ",$G(DGPAGE)
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,"Date Range: ",DGBEG_" to "_DGEND
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: ?50,"Printed: ",DGDT
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !,"Sorted By: ",DGHSTR2
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,DGLINE,!
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,"Flag Name: ",$G(DGFG)," - Category II (Local)"
  • Line Location: HEAD1+0
Function Call: WRITE
  • Prompt: !,"Principal Investigator: "
  • Line Location: HEAD2+0
Function Call: WRITE
  • Prompt: ?24,DGPISTR
  • Line Location: HEAD2+3
Function Call: WRITE
  • Prompt: ?24,X,";"
  • Line Location: HEAD2+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD2+8
Function Call: WRITE
  • Prompt: ?24,X
  • Line Location: HEAD2+11
Function Call: WRITE
  • Prompt: !!,"PATIENT",?18,"SSN",?30,"ACTION",?48,"ACTION DT",?60,"REVIEW DT",?71,"STATUS"
  • Line Location: HEAD3+0
Function Call: WRITE
  • Prompt: !,"================",?18,"==========",?30,"================",?48,"=========",?60,"=========",?71,"========="
  • Line Location: HEAD3+1
Info |  Source |  Entry Points |  Interaction Calls