Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Registration 1 $$FDATE^VALM1  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGPFRPI1  

Entry Points

Name Comments DBIA/ICR reference
HEAD ;Print/Display page header
HEAD3
HEAD2
HEAD1
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
PISTR(DGFG) ;string Principal Investigators together for sub-header display

External References

Name Field # of Occurrence
$$S^%ZTLOAD HEAD+2
^DIR PAUSE+6
$$FDATE^VALM1 PRINT+33, PRINT+34
$$FMTE^XLFDT PRINT+32
$$NOW^XLFDT PRINT+32

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
Routine Call
  • DIR
  • Line Location:
    • PAUSE+6

Label References

Name Line Occurrences
$$PISTR PRINT+46
HEAD PRINT+38, PRINT+44, PRINT+47, PRINT+57
HEAD1 PRINT+47, PRINT+49, PRINT+57
HEAD2 PRINT+47, PRINT+49, PRINT+57
HEAD3 PRINT+47, PRINT+49, PRINT+57
PAUSE PRINT+47, PRINT+57

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DGBEG PRINT+8~, PRINT+33*, HEAD+9
DGDFN PRINT+9~, PRINT+42*, PRINT+54*, PRINT+56, PRINT+58, PRINT+60
DGDT PRINT+10~, PRINT+32*, HEAD+10
DGEND PRINT+12~, PRINT+34*, HEAD+9
DGFG PRINT+11~, PRINT+42*, PRINT+45*, PRINT+46, PRINT+47, PRINT+48, PRINT+49, PRINT+51, PRINT+54, PRINT+56
, PRINT+58, HEAD1, PISTR~, PISTR+13, PISTR+16, PISTR+18, PISTR+20
DGHSTR PRINT+13~, PRINT+28*, HEAD+6
DGHSTR1 PRINT+14~, PRINT+29*, HEAD+7
DGHSTR2 PRINT+15~, PRINT+30*, PRINT+31*, HEAD+11
DGLINE PRINT+16~, PRINT+35*, HEAD+12
DGLIST PRINT~, PRINT+37, PRINT+45, PRINT+51, PRINT+54, PRINT+56, PRINT+58, PISTR+13, PISTR+16, PISTR+18
, PISTR+20
DGLN PRINT+17~, PRINT+42*, PRINT+55*, PRINT+56*, PRINT+58
DGODFN PRINT+19~, PRINT+42*, PRINT+53*, PRINT+57*, PRINT+60*
DGOFG PRINT+20~, PRINT+42*, PRINT+47*, PRINT+48, PRINT+49*
DGOPISTR PRINT+21~, PRINT+42*, PRINT+47*, PRINT+49*
DGPAGE PRINT+22~, PRINT+35*, PAUSE+6, HEAD+3, HEAD+5*, HEAD+8
DGPI PISTR+10~, PISTR+17*, PISTR+18*, PISTR+20
DGPISTR PRINT+23~, PRINT+42*, PRINT+46*, PRINT+47, PRINT+49, HEAD2+3, HEAD2+7, HEAD2+8, HEAD2+10
DGPNAM PRINT+18~, PRINT+42*, PRINT+50*, PRINT+51*, PRINT+54, PRINT+56, PRINT+58, PRINT+61
DGQ PRINT+24~, PRINT+35*, PRINT+45, PRINT+47, PRINT+51, PRINT+54, PRINT+56, PRINT+57, PRINT+65, PAUSE~
, PAUSE+6*, HEAD+2*
DGRSLT PISTR+9~, PISTR+11*, PISTR+14*, PISTR+18, PISTR+19*, PISTR+20*, PISTR+21
DGSORT PRINT~
DGSORT("DGBEG" PRINT+33
DGSORT("DGEND" PRINT+34
DGSORT("DGPRINC" PRINT+30, PRINT+31
DGSTR PRINT+25~, PRINT+42*, PRINT+58*, PRINT+61, PRINT+62
DIR PAUSE+6!
DIR(0 PAUSE+6*
IOF HEAD+3
IOM HEAD+6, HEAD+7
IOSL PRINT+47, PRINT+57
IOST PAUSE+6, HEAD+3
U PRINT+31, PRINT+61, PRINT+62
X PRINT+26~, HEAD2+5~, HEAD2+6*, HEAD2+8*, HEAD2+9*, HEAD2+10*, HEAD2+11
Y PRINT+26~, PAUSE+6, HEAD2+5~, HEAD2+7*, HEAD2+8, HEAD2+10
>> ZTQUEUED PRINT+65, HEAD+2
>> ZTSTOP HEAD+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All