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

Package: Registration

Routine: DGPFRAL1


Information

DGPFRAL1 ;ALB/RBS - PRF ACTION NOT LINKED REPORT CONT. ; 10/12/05 2:48pm

Source Information

Source file <DGPFRAL1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 7 $$GETASGN^DGPFAA  ($$GETALLDT,$$GETHIST,$$GETLAST)^DGPFAAH  $$ASGNCNT^DGPFLF6  $$ISDIV^DGPFUT  $$GETPAT^DGPFUT2  $$LOC^DGPFUT63  $$E^DGPFUT7  
Kernel 2 $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 1 WAIT^DICD  

Entry Points

Name Comments DBIA/ICR reference
START ; compile and print report
EXIT ;
LOOP ;use sort var's for record searching to build list
; Input:
; DGSORT - array of user selected report parameters
; DGLIST - temp global name
BLDTMP(DGPFA,DGPAT,DGHIENS,DGCATG,DGLIST) ; list global builder
; Input:
; DGPFA - array of assignment record data
; DGPAT - array of patient demographics
; DGHIENS - array of history action IEN's sorted by d/t
; 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
CHK ;
; Check is Taskman request to stop
ENTINERR(DGIEN) ;
; Is last action ENTERED IN ERROR
; Input:
; DGIEN - (required) Pointer to PRF ASSIGNMENT (#26.13) file
FLAGNM(FLG) ;
; Is flag = selected flag; DG*5.3*960
; "DGFLG": variable_pointer for flag, else ""
FLGXFER ;
; If flag transferred and prior to assignment change date
; then do not rpt missing TIU link
HEAD ;
; Print/Display page header
INIT ; initial certain local variables
LOCAL() ;
; Filter is history created locally or not; DG*5.3*960
; expects .DGPFAH; "DGFAC": 1:local;2:other;3:both
PAUSE ; pause screen display
; if DGQ=1 exit printing
STATUS(STAT) ;filter on active/inactive; DG*5.3*960
; "DGSTA": 1:inactive;2:active;3:both
; STAT : 0:inactive;1:active
SUBTOT ;
; Print subtotals for category at end of that category listing
; Expects CAT and OCAT

External References

Name Field # of Occurrence
$$S^%ZTLOAD CHK+2
$$GETASGN^DGPFAA LOOP+44
$$GETALLDT^DGPFAAH LOOP+59
$$GETHIST^DGPFAAH BLDTMP+32, ENTINERR+9
$$GETLAST^DGPFAAH ENTINERR+9
$$ASGNCNT^DGPFLF6 LOOP+36
$$ISDIV^DGPFUT LOOP+46
$$GETPAT^DGPFUT2 LOOP+69
$$LOC^DGPFUT63 LOCAL+6
$$E^DGPFUT7 EXIT+3, PAUSE+2
WAIT^DICD INIT+3
$$FMTE^XLFDT BLDTMP+35, INIT+15, INIT+16, INIT+17
$$NOW^XLFDT INIT+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+4
Function Call: WRITE
  • Prompt: !!," >>> No Record Flag Assignments were found using the report criteria.",!
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !,$E(NAM,1,18),?20,$P(STR,U),?32,$E($P(STR,U,2),1,17)
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: !?32,$E($P(STR,U,2),1,17),NL=0
  • Line Location: PRINT+45
Function Call: WRITE
  • Prompt: !
  • Condition for execution: NL
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: ?51,$E($P(STR,U,3),1,16),?69,$P(STR,U,4)
  • Line Location: PRINT+47
Function Call: WRITE
  • Prompt: !!,"REPORT SUMMARY:",!,"---------------"
  • Line Location: PRINT+58
Function Call: WRITE
  • Prompt: !,"Total Actions not Linked for Category I:",?48,$J(TOTAL(1),7)
  • Line Location: PRINT+59
Function Call: WRITE
  • Prompt: !,"Total Actions not Linked for Category II:",?48,$J(TOTAL(2),7)
  • Line Location: PRINT+60
Function Call: WRITE
  • Prompt: !?48,"-------"
  • Line Location: PRINT+61
Function Call: WRITE
  • Prompt: !,"Total Actions not Linked for Category I & II:",?48,$J(X,7)
  • Line Location: PRINT+63
Function Call: WRITE
  • Prompt: !!,"<End of Report>"
  • Line Location: PRINT+65
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED AT USER REQUEST",!
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,HD(I)
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: $J(PAGE,5)
  • Condition for execution: I=2
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,HD(1,I)
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,HD(2,I)
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: X
  • Condition for execution: I=1
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !!,"Total Actions not Linked for Category "
  • Line Location: SUBTOT+3
Function Call: WRITE
  • Prompt: $S(OCAT=1:"I",1:"II")_": "_(+TOTAL(OCAT))
  • Line Location: SUBTOT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPF(26.13 - [#26.13] LOOP+32
^DGPF(26.14 - [#26.14] FLGXFER+9
^TMP("DGPFRAL1" INIT+4

Label References

Name Line Occurrences
$$ENTINERR LOOP+49
$$FLAGNM LOOP+52
$$LOCAL BLDTMP+37
$$STATUS LOOP+55
BLDTMP LOOP+72
CHK LOOP+40, BLDTMP+29, PRINT+54, HEAD+2
FLGXFER BLDTMP+24
HEAD PRINT+26, PRINT+38, PRINT+39, PRINT+57
INIT START+2
LOOP START+3
PAUSE PRINT+39, SUBTOT+5
PRINT START+3
SUBTOT PRINT+37, PRINT+52

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEG INIT+1~, INIT+15*, INIT+25
CAT PRINT+7~, PRINT+33*, PRINT+37, PRINT+38, PRINT+48, PRINT+52, HEAD+5, HEAD+8
DFN PRINT+9~, PRINT+33*, PRINT+40, PRINT+42
DGACTDT BLDTMP+11~, BLDTMP+35*, BLDTMP+44
DGBEG LOOP+8~, LOOP+61, LOOP+64
DGC LOOP+9~, LOOP+26*, LOOP+27*, LOOP+33
DGCAT LOOP+10~, LOOP+26
DGCATG LOOP+11~, LOOP+34*, LOOP+72, BLDTMP~, BLDTMP+46
DGCNT LOOP+12~, LOOP+31*, LOOP+36*, LOOP+37
DGDFN LOOP+13~, LOOP+31*, LOOP+38*, LOOP+39*, LOOP+41, LOOP+69
DGDFNLST LOOP+14~, LOOP+35!, LOOP+36
DGDFNLST( LOOP+39, LOOP+41
DGEND LOOP+15~, LOOP+61, LOOP+64
DGFGNM BLDTMP+12~, BLDTMP+41*, BLDTMP+42*, BLDTMP+43, BLDTMP+46
DGFLAG BLDTMP+19~, BLDTMP+22*, BLDTMP+36, FLGXFER+9*
DGHACT FLGXFER+3~, FLGXFER+8*, FLGXFER+9
DGHIEN BLDTMP+13~, BLDTMP+27*, BLDTMP+28*, BLDTMP+32, FLGXFER+3~, FLGXFER+6*, FLGXFER+7*, FLGXFER+8, FLGXFER+9
DGHIENS LOOP+16~, LOOP+58!, LOOP+59, LOOP+72, BLDTMP~
DGHIENS( LOOP+63, LOOP+64!, BLDTMP+28, BLDTMP+32, FLGXFER+7, FLGXFER+8
DGHIENS("" LOOP+61, LOOP+65
DGI LOOP+28~*, LOOP+40*, BLDTMP+23~*, BLDTMP+29*
DGIEN LOOP+17~, LOOP+31*, LOOP+41*, LOOP+44, LOOP+49, LOOP+59, ENTINERR~, ENTINERR+9
DGLINE BLDTMP+14~, BLDTMP+43*, BLDTMP+44*, BLDTMP+46
DGLIST START+1~, START+3, EXIT+1, LOOP+72, BLDTMP~, BLDTMP+46, PRINT~, PRINT+20, PRINT+25, INIT+4*
, INIT+5
DGLNCNT BLDTMP+15~, BLDTMP+27*, BLDTMP+45*, BLDTMP+46
DGPAT LOOP+18~, LOOP+68!, LOOP+69, LOOP+72, BLDTMP~
DGPAT("NAME" BLDTMP+38
DGPAT("SSN" BLDTMP+43
DGPDFN BLDTMP+16~, BLDTMP+40*, BLDTMP+46
DGPFA LOOP+19~, LOOP+43!, LOOP+44, LOOP+72, BLDTMP~
DGPFA("DFN" BLDTMP+40
DGPFA("FLAG" LOOP+52, BLDTMP+41
DGPFA("ORIGSITE" FLGXFER+4
DGPFA("OWNER" LOOP+46, FLGXFER+4
DGPFA("STATUS" LOOP+55
DGPFAH BLDTMP+17~, BLDTMP+31!, BLDTMP+32, ENTINERR+8~, ENTINERR+9
DGPFAH( LOCAL+5
DGPFAH("ACTION" BLDTMP+34, BLDTMP+44, ENTINERR+10
DGPFAH("ASSIGNDT" BLDTMP+35, BLDTMP+36
DGPFAH("TIULINK" BLDTMP+33
DGPNM BLDTMP+18~, BLDTMP+38*, BLDTMP+39*, BLDTMP+43, BLDTMP+46
DGQ START+1~, START+3, EXIT+3, LOOP+32, LOOP+39, LOOP+40, BLDTMP+28, BLDTMP+29, PRINT+30, PRINT+37
, PRINT+39, PRINT+56, CHK+2*, CHK+3, HEAD+2, INIT+6*, PAUSE+2*
DGSORT START+3, PRINT~
DGSORT( LOOP+25
DGSORT("DGBEG" INIT+15
DGSORT("DGCAT" PRINT+56, INIT+21, SUBTOT+5
DGSORT("DGEND" INIT+16
DGSORT("DGFAC" INIT+24, LOCAL+4
DGSORT("DGFLG" FLAGNM+3, INIT+18
DGSORT("DGSTA" INIT+22, STATUS+3
DGSUB LOOP+20~, LOOP+31*, LOOP+32*, LOOP+33, LOOP+34, LOOP+36
DGX LOOP+21~, LOOP+25*, LOOP+63*, LOOP+64
END INIT+1~, INIT+16*, INIT+25
FLAG PRINT+11~, PRINT+33*, PRINT+42, PRINT+45
FLG FLAGNM~, FLAGNM+4, INIT+1~, INIT+18*, INIT+23
HD START+1~
HD( HEAD+6
HD(1 HEAD+7, INIT+9*, INIT+21*, INIT+22*, INIT+23*, INIT+24*, INIT+25*, INIT+26*, INIT+27*
HD(2 HEAD+8, INIT+12*, INIT+30*, INIT+31*, INIT+32*, INIT+33*
HD(3 INIT+13*, INIT+27
I PRINT+17~, PRINT+30*, HEAD+6*, HEAD+7*, HEAD+8*
IOF EXIT+3, EXIT+4, HEAD+3
IOSL PRINT+39, PRINT+57
IOST INIT+3
LOC LOCAL+3~, LOCAL+6*, LOCAL+8, LOCAL+10
NAM PRINT+12~, PRINT+33*, PRINT+41
NL PRINT+31~*, PRINT+42*, PRINT+45, PRINT+47
OCAT PRINT+8~, PRINT+19*, PRINT+37, PRINT+38*, PRINT+52*, HEAD+8, SUBTOT+4
ODFN PRINT+10~, PRINT+19*, PRINT+39*, PRINT+40, PRINT+42*, SUBTOT+6*
OFLAG PRINT+13~, PRINT+19*, PRINT+42*, PRINT+45*
PAGE PRINT+14~, PRINT+23*, HEAD+3, HEAD+4*, HEAD+6, HEAD+7, PAUSE+2
PRT INIT+1~, INIT+17*, INIT+26
REF PRINT+15~, PRINT+20*, PRINT+21, PRINT+30*, PRINT+32, PRINT+33
SORT FLAGNM+3~*, FLAGNM+4, LOCAL+3~, LOCAL+4*, LOCAL+8, LOCAL+10, STATUS+3~*, STATUS+4
SP INIT+1~, INIT+2*, INIT+9
STAT STATUS~, STATUS+4
STOP PRINT+17~, PRINT+21*, PRINT+30
STR PRINT+16~, PRINT+32*, PRINT+41, PRINT+45, PRINT+47
TMP LOCAL+3~, LOCAL+6
TMP( LOCAL+5*
TOTAL PRINT+17~, PRINT+22*
TOTAL( PRINT+48*, SUBTOT+4
TOTAL(1 PRINT+22*, PRINT+59, PRINT+62
TOTAL(2 PRINT+22*, PRINT+60, PRINT+62
TRM START+1~, EXIT+3, EXIT+4, PRINT+57, HEAD+3, INIT+3*, PAUSE+2
U LOOP+46, LOOP+52, BLDTMP+40, BLDTMP+41, BLDTMP+43, BLDTMP+44, PRINT+41, PRINT+45, PRINT+47, FLAGNM+3
, FLGXFER+4, FLGXFER+9, INIT+18, INIT+21, INIT+22, INIT+24
X EXIT+3*, PRINT+17~, PRINT+62*, PRINT+63, FLGXFER+3~, FLGXFER+5*, FLGXFER+9, HEAD+2~, HEAD+5*, HEAD+8
, INIT+1~, INIT+10*, INIT+11*, INIT+12, LOCAL+3~, LOCAL+5*
Y PRINT+17~
>> ZTQUEUED EXIT+2, CHK+2, CHK+3
>> ZTREQ EXIT+2*
>> ZTSTOP CHK+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All