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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DGPFRAB1

Package: Registration

Routine: DGPFRAB1


Information

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

Source Information

Source file <DGPFRAB1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 HOME^%ZIS  ^%ZISC  $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Registration 3 $$GETASGN^DGPFAA  $$GETHIST^DGPFAAH  $$GETPAT^DGPFUT2  
VA FileMan 2 WAIT^DICD  ^DIR  
List Manager 1 $$FDATE^VALM1  

Entry Points

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 ;

External References

Name Field # of Occurrence
HOME^%ZIS EXIT+4
^%ZISC EXIT+4
$$S^%ZTLOAD HEAD+2
$$GETASGN^DGPFAA LOOP+52
$$GETHIST^DGPFAAH LOOP+49
$$GETPAT^DGPFUT2 BLDTMP+23
WAIT^DICD START+1
^DIR PAUSE+6
$$FDATE^VALM1 BLDTMP+28, BLDTMP+30, HEAD+8
$$FMTE^XLFDT PRINT+27
$$NOW^XLFDT PRINT+27

Interaction Calls

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPF(26.14 - [#26.14] LOOP+40, LOOP+44, LOOP+47
^TMP("DGPFRAB1" START+3

Label References

Name Line Occurrences
BLDTMP LOOP+56
EXIT START+8
HEAD PRINT+30, PRINT+35, PRINT+38, PRINT+42, PRNTPAT+6
HEAD1 PRINT+38, PRINT+39, PRINT+42, PRNTPAT+6
HEAD2 PRINT+42, PRINT+43, PRNTPAT+6
LOOP START+5
PAUSE PRINT+38, PRINT+42, PRNTPAT+6
PRINT START+6
PRNTPAT PRINT+45

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EXIT+3!
DG1 BLDTMP+11~, BLDTMP+35*, BLDTMP+36
DG2 BLDTMP+11~, BLDTMP+35*, BLDTMP+36
DGABIEN LOOP+8~, LOOP+29*, LOOP+43, LOOP+45, LOOP+50
DGACTDT BLDTMP+12~, BLDTMP+28*, BLDTMP+32
DGAIEN LOOP+9~, LOOP+42*, LOOP+43*, LOOP+44*, LOOP+45, LOOP+47
DGAPNM PRINT+7~, PRINT+34*, PRINT+36*, PRINT+37, PRINT+40, PRINT+41, PRNTPAT+3, PRNTPAT+4, PRNTPAT+5, PRNTPAT+7
HEAD1
DGAPROV LOOP+10~, LOOP+29
DGBEG LOOP+11~, LOOP+37
DGC LOOP+12~, LOOP+30*, LOOP+31*, LOOP+53
DGCAT LOOP+13~, LOOP+30, PRINT+8~, PRINT+34*, PRINT+40*, PRINT+41, PRNTPAT+3, PRNTPAT+4, PRNTPAT+5, PRNTPAT+7
HEAD2
DGCATG LOOP+14~, LOOP+55*, LOOP+56, BLDTMP~, BLDTMP+36
DGCNT PRINT+9~, PRINT+26*, PRINT+39, PRNTPAT+12*
DGDFN BLDTMP+13~, BLDTMP+21*, BLDTMP+23, BLDTMP+36, PRINT+10~, PRINT+34*, PRNTPAT+4*, PRNTPAT+5, PRNTPAT+7, PRNTPAT+9
DGDT PRINT+11~, PRINT+27*, HEAD+9
DGEND LOOP+15~, LOOP+41
DGFG PRINT+12~, PRINT+34*, PRINT+41*, PRINT+42, PRINT+43, PRNTPAT+3, PRNTPAT+4, PRNTPAT+5, PRNTPAT+7, HEAD2
DGFGNM BLDTMP+14~, BLDTMP+26*, BLDTMP+27*, BLDTMP+36
DGHIEN LOOP+16~, LOOP+46*, LOOP+47*, LOOP+49, LOOP+56, BLDTMP~, BLDTMP+36
DGIEN PRINT+13~, PRINT+34*, PRINT+37*, PRINT+38, PRINT+39, PRINT+40, PRINT+41, PRNTPAT+3, PRNTPAT+4, PRNTPAT+5
PRNTPAT+7
DGLINE BLDTMP+15~, BLDTMP+32*, BLDTMP+36, PRINT+14~, PRINT+26*, HEAD+10
DGLIST START+2~, START+3*, START+4, START+5, START+6, START+7, LOOP~, LOOP+56, BLDTMP~, BLDTMP+36
, PRINT~, PRINT+29, PRINT+36, PRINT+37, PRINT+40, PRINT+41, PRNTPAT+3, PRNTPAT+4, PRNTPAT+5, PRNTPAT+7
DGLN PRINT+15~, PRINT+34*, PRNTPAT+5*, PRNTPAT+7
DGNAM PRINT+16~, PRINT+34*, PRNTPAT+3*, PRNTPAT+4, PRNTPAT+5, PRNTPAT+7, PRNTPAT+10
DGOCAT PRINT+17~, PRINT+34*, PRINT+47*
DGODFN PRINT+18~, PRINT+34*, PRNTPAT+2*, PRNTPAT+6*, PRNTPAT+9*
DGOFG PRINT+19~, PRINT+34*, PRINT+42*, PRINT+43*, PRINT+47*
DGOIEN PRINT+20~, PRINT+34*, PRINT+38*, PRINT+39*, PRINT+47*
DGPAGE PRINT+21~, PRINT+26*, PAUSE+6, HEAD+3, HEAD+5*, HEAD+7
DGPAT BLDTMP+16~, BLDTMP+22!, BLDTMP+23
DGPAT("NAME" BLDTMP+24
DGPAT("SSN" BLDTMP+32
DGPFA LOOP+17~, LOOP+51!, LOOP+52, LOOP+56, BLDTMP~
DGPFA("DFN" BLDTMP+21
DGPFA("FLAG" LOOP+53, LOOP+55, BLDTMP+26
DGPFA("REVIEWDT" BLDTMP+29, BLDTMP+30
DGPFA("STATUS" LOOP+54, BLDTMP+32
DGPFAH LOOP+18~, LOOP+48!, LOOP+49, LOOP+56, BLDTMP~
DGPFAH("ACTION" BLDTMP+32
DGPFAH("APPRVBY" LOOP+50, BLDTMP+35
DGPFAH("ASSIGN" LOOP+52
DGPFAH("ASSIGNDT" BLDTMP+28
DGPNM BLDTMP+17~, BLDTMP+24*, BLDTMP+25*, BLDTMP+36
DGQ LOOP+19~, LOOP+36*, LOOP+40, LOOP+41*, PRINT+22~, PRINT+26*, PRINT+36, PRINT+37, PRINT+38, PRINT+40
, PRINT+41, PRINT+42, PRINT+50, PRNTPAT+3, PRNTPAT+4, PRNTPAT+5, PRNTPAT+6, PAUSE~, PAUSE+6*, HEAD+2*
DGREV BLDTMP+18~, BLDTMP+30*, BLDTMP+31*, BLDTMP+32
DGSORT START+5, START+6, LOOP~, PRINT~
DGSORT( LOOP+27
DGSORT("DGBEG" HEAD+8
DGSORT("DGEND" HEAD+8
DGSTAT LOOP+20~, LOOP+32*, LOOP+33*, LOOP+54
DGSTATUS LOOP+21~, LOOP+32
DGSTR PRINT+23~, PRINT+34*, PRNTPAT+7*, PRNTPAT+10, PRNTPAT+11
DGSUB LOOP+22~, LOOP+36*, LOOP+37*, LOOP+40*, LOOP+41, LOOP+44, LOOP+47
DGX LOOP+23~, LOOP+27*
DIR PAUSE+6!
DIR(0 PAUSE+6*
IOF HEAD+3
IOSL PRINT+38, PRINT+42, PRNTPAT+6
IOST START+1, PAUSE+6, HEAD+3
POP EXIT+3!
U BLDTMP+21, BLDTMP+26, BLDTMP+32, BLDTMP+35, PRNTPAT+10, PRNTPAT+11
X PRINT+24~
Y PRINT+24~, PAUSE+6
>> ZTQUEUED PRINT+50, HEAD+2, EXIT+1, EXIT+2
>> ZTREQ EXIT+1*
>> ZTSTOP HEAD+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All