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

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

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
Info |  Source |  Entry Points |  Interaction Calls