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

Package: Registration

Routine: DGPFRFA1


Information

DGPFRFA1 ;ALB/RBS - PRF FLAG ASSIGNMENT REPORT CONT. ; 1/21/04 5:14pm

Source Information

Source file <DGPFRFA1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Registration 7 $$GETASGN^DGPFAA  ($$GETFIRST,$$GETHIST)^DGPFAAH  $$ACTFILT^DGPFAAH2  $$ASGNCNT^DGPFLF6  $$ISDIV^DGPFUT  $$GETPAT^DGPFUT2  $$E^DGPFUT7  
Kernel 3 ^%ZISC  $$S^%ZTLOAD  ($$FMDIFF,$$FMTE)^XLFDT  
VA FileMan 2 WAIT^DICD  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
START ; compile and print report
EXIT ;
A1 ;
; Find records using sort var's to build list
; Output:
; ^TMP("DGPFRFA1",$J) - temp global containing report output
A11() ; apply filters
; 1. Get all History records of certain ACTION types:
; 2: Action types: New, Inactivate, Reactivate, Enter in Error
; 3. Action DATE must be within date range
A12 ; build the list global
; Output:
; ^TMP("DGPFRFA1",$J) - temp global containing report output
FORMAT(VAL) ; format one row of data for display
HDR ; build header array
; see sample header at end of routine
; S $E(X,start_pos)=value
; Active header: 1,33,40,50,60,68,79,89,100
; Inactive header: 1,33,40,50,60,58,80,92
PRT ;
; DGLIST = ^TMP("DGPFRFA1",$J,CAT,FLAG,DGNAME,DGDFN)
PRTOUT ;
WR(X) ; write out one line
; check for bottom of page
; write new header if necessary
WRCK(MIN) ; check to see if we should quit printing (set DGQ=1)
; Input Parameters:
; MIN - optional - minimal number of lines needed before end of page
; default to 4
WRHDR ; write page header, increment page count
WRSUBHDR ; write subheader of category or flag name
WRTOT ; write out totals
WRX ; press [ENTER] to continue
WR2 ; write subtotals for flag

External References

Name Field # of Occurrence
^%ZISC EXIT+3
$$S^%ZTLOAD WRHDR+1
$$GETASGN^DGPFAA A1+23
$$GETFIRST^DGPFAAH A12+22
$$GETHIST^DGPFAAH A12+22
$$ACTFILT^DGPFAAH2 A11+12
$$ASGNCNT^DGPFLF6 A1+19
$$ISDIV^DGPFUT A11+9
$$GETPAT^DGPFUT2 A12+5
$$E^DGPFUT7 PRTOUT+1, WRCK+7
WAIT^DICD START+29
^DIR WRX+3
$$FMDIFF^XLFDT A11+44
$$FMTE^XLFDT A12+25, A12+29, A12+37, A12+46, HDR+21, HDR+27

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," >>> "_X,!
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTOUT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRHDR+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRHDR+6
Function Call: WRITE
  • Prompt: !,HDR(1)_PAGE
  • Line Location: WRHDR+7
Function Call: WRITE
  • Prompt: !,HDR(I)
  • Line Location: WRHDR+8
Function Call: WRITE
  • Prompt: !,HDR(I)
  • Line Location: WRHDR+9
Function Call: WRITE
  • Prompt: !!,X
  • Line Location: WRSUBHDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WRTOT+20
Function Call: WRITE
  • Prompt: !,SUM(I)
  • Line Location: WRTOT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: WRX+3
Function Call: WRITE
  • Prompt: !!,X,!,Y,!
  • Line Location: WR2+10
Routine Call
  • DIR
  • Line Location:
    • WRX+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPF(26.13 - [#26.13] A1+9, A1+11, A1+12
^TMP("DGPFRFA1" START+4!, START+5, EXIT+1!

Label References

Name Line Occurrences
$$A11 A1+25
$$FORMAT PRT+29
A1 START+31
A12 A1+25
HDR START+32
PRT START+33
PRTOUT PRT+7
WR PRT+29, WR2+9
WRCK WR+3, WRSUBHDR+1
WRHDR PRT+6, WR+3, WRTOT+19, WRTOT+20
WRSUBHDR PRT+24
WRTOT PRT+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT A11+5~
CAT A12+49~, A12+51*, A12+53, PRT+3~, PRT+17*, PRT+24, PRT+26, PRT+27, PRT+28, WRSUBHDR+3
CAT0 PRT+3~, PRT+13*, PRT+24, PRT+28*, WR2+5, WR2+6
COL FORMAT+1~, FORMAT+3*, FORMAT+4*, FORMAT+5*, FORMAT+6*, FORMAT+7*, FORMAT+8*, FORMAT+9*, FORMAT+10*, FORMAT+11*
, FORMAT+12*, HDR+5~, HDR+15*, HDR+16*, HDR+18, HDR+20*, HDR+22, HDR+27*, HDR+33*, HDR+34*
, HDR+35*, HDR+36*, HDR+38*, HDR+39*, HDR+45*, HDR+46*, HDR+47*, HDR+48*, HDR+50*, HDR+51*
, HDR+52*, HDR+53*, HDR+56*, HDR+57*, HDR+58*
DAT FORMAT+1~
DAT( FORMAT+2*
DAT(1 FORMAT+3
DAT(10 FORMAT+10
DAT(2 FORMAT+4
DAT(3 FORMAT+5
DAT(4 FORMAT+6
DAT(5 FORMAT+7
DAT(6 FORMAT+8
DAT(7 FORMAT+9
DAT(8 FORMAT+11
DAT(9 FORMAT+12
DATA PRT+16~, PRT+21*, PRT+29
DATE A11+5~, A11+19*, A11+20, A11+21, A11+22, A11+23, A11+24, A11+26, A12+4~, A12+24*
, A12+25*, A12+26, A12+28*, A12+29*, A12+30, A12+36*, A12+37*, A12+38
DEACT A11+5~
DFN PRT+16~, PRT+20*
DGBEG START+2~, START+12*, START+25*, A11+21, HDR+21
DGC START+2~, START+12*, START+14*, A1+14, HDR+12
DGCNT A1+16~
DGDFN A1+16~, A1+20*, A1+22, A12+5, A12+53
DGDFNLST A1+16~, A1+19
DGDFNLST( A1+20, A1+22
DGEND START+2~, START+12*, START+26*, A11+22, HDR+21
DGF START+2~, START+12*, START+24*, A1+9, A1+11, A1+13, HDR+26
DGHST A11+5~, A11+21*, A11+22*, A11+38
DGHST( A11+19, A11+21!, A11+22!, A11+23, A11+24
DGIEN A1+21~, A1+22*, A1+23, A11+12, A12+22
DGLIST START+1~, START+5*, A12+53, PRT+7, PRT+12
DGNAME A12+4~, A12+6*, A12+19, A12+53
DGO START+2~, START+12*, START+17*, A11+10, HDR+17
DGPFA A1+21~, A1+23
DGPFA("FLAG" A12+50
DGPFA("OWNER" A11+9, A12+44
DGPFA("REVIEWDT" A12+36
DGPFA("STATUS" A11+7
DGPFA("zdaysactive" A11+46*, A12+33
DGPFA("zlastdate" A11+41*, A12+28
DGPFA("zlastinact" A11+47*, A12+46
DGPFA("ztimesactive" A11+40*, A12+42
DGQ A1+5~, A1+6*, A1+12, A1+13*, PRT+2~, PRT+4*, PRT+15, PRT+24, PRT+31, PRTOUT+1
, WR+3, WRCK+7*, WRHDR+1*, WRHDR+2, WRSUBHDR+1, WRTOT+19, WRTOT+20, WRX+3*, WR2+2, WR2+10
DGS START+2~, START+12*, START+21*, A11+7, A12+33, FORMAT+8, FORMAT+9, FORMAT+10, FORMAT+11, FORMAT+12
, HDR+36, HDR+37, HDR+49, HDR+55
>> DGSORT("DGBEG" START+25
>> DGSORT("DGCAT" START+14
>> DGSORT("DGEND" START+26
>> DGSORT("DGFLAG" START+24, HDR+26, PRT+5
>> DGSORT("DGOWN" START+17
>> DGSORT("DGSTAT" START+21, HDR+15
DGSUB A1+5~, A1+11*, A1+12*, A1+13, A1+14, A1+19
DGTMP A12+4~, A12+5, A12+20!, A12+22
DGTMP("ASSIGNDT" A12+24
DGTMP("NAME" A12+6, A12+19
DGTMP("SSN" A12+19
DIR WRX+2~
DIR(0 WRX+3*
DIROUT WRX+2~
DIRUT WRX+2~
DT A11+43, A12+40, HDR+27
DTOUT WRX+2~, WRX+3
DUOUT WRX+2~, WRX+3
FL WRTOT+1~, WRTOT+10*, WRTOT+11, WRTOT+12
FLAG A12+49~, A12+50*, A12+51, A12+52*, A12+53, PRT+3~, PRT+16~, PRT+18*, PRT+24, PRT+27
, PRT+28, WRSUBHDR+4
FLAG0 PRT+3~, PRT+13*, PRT+24, PRT+28*, WR2+4, WR2+6
GR PRT+2~, PRT+12*, PRT+15*, PRT+17, PRT+18, PRT+19, PRT+20, PRT+21
HDR START+1~, HDR+6!
HDR( HDR+7*, HDR+8*, HDR+13*, HDR+15*, HDR+18*, HDR+22*, HDR+26*, HDR+27*, HDR+29*, HDR+42*
, HDR+61*, HDR+63*, WRHDR+8, WRHDR+9
HDR(1 WRHDR+7
HDR(2 HDR+29, HDR+63
I A12+4~, FORMAT+1~, FORMAT+2*, HDR+5~, PRT+2~, WRHDR+3~, WRHDR+8*, WRHDR+9*, WRTOT+1~, WRTOT+6*
, WRTOT+7, WRTOT+8, WRTOT+10, WRTOT+12, WRTOT+15, WRTOT+20*
IEN A11+5~, A11+23*, A11+24
IOF WRHDR+5, WRHDR+6
IOSL WR+3, WRCK+6, WRTOT+19, WRTOT+20, WR2+9
IOST START+29
L FORMAT+1~, HDR+5~, WRTOT+1~, WRTOT+5*, WRTOT+9*, WRTOT+13*, WRTOT+15*, WRTOT+19, WRTOT+20, WRX+2~
LAST A11+5~
LAST(1 A11+18*, A11+29*, A11+34, A11+41, A11+42, A11+44
LAST(2 A11+18*, A11+29*, A11+34*, A11+43*, A11+44
LAST(3 A11+18*, A11+32*, A11+47
LINE START+1~, START+6*, WR2+7
MIN WRCK~, WRCK+5*, WRCK+6
NUM A11+5~, A11+18*, A11+28*, A11+39, A11+40
OWN A1+21~
P FORMAT+1~
PAGE PRT+2~, PRT+4*, WRHDR+4*, WRHDR+5, WRHDR+6, WRHDR+7, WRHDR+8, WRHDR+9
PNAM PRT+16~, PRT+19*
ROW HDR+5~, HDR+7*, HDR+8*, HDR+9*, HDR+13, HDR+15, HDR+18, HDR+22, HDR+25*, HDR+26
, HDR+27, HDR+29*, HDR+30*, HDR+42, HDR+43*, HDR+61, HDR+63*
STAT A1+21~
STOP PRT+2~, PRT+12*, PRT+15
STR FORMAT+1~, FORMAT+3*, FORMAT+4*, FORMAT+5*, FORMAT+6*, FORMAT+7*, FORMAT+8*, FORMAT+9*, FORMAT+10*, FORMAT+11*
, FORMAT+12*, FORMAT+13*, FORMAT+14*, FORMAT+15
SUBHD PRT+2~, PRT+5*, PRT+24
SUM WRTOT+1~
SUM( WRTOT+9*, WRTOT+13*, WRTOT+15*, WRTOT+20
SUM(1 WRTOT+2*, WRTOT+4, WRTOT+15
SUM(2 WRTOT+3*
SUM(3 WRTOT+4*
TOTAL PRT+2~
TOTAL( PRT+26*, PRT+27*, WRTOT+6, WRTOT+8, WRTOT+10, WRTOT+12, WR2+6
TOTAL(2 WRTOT+15
TRM START+1~, START+29*, EXIT+3, PRTOUT+1, WRCK+4, WRHDR+5, WRX+1
U START+24, A11+25, A12+19, A12+24, A12+26, A12+30, A12+34, A12+36, A12+38, A12+40
, A12+42, A12+44, A12+46, A12+52, FORMAT+2, HDR+15, HDR+17, HDR+26, WRTOT+7
VAL A12+4~, A12+19*, A12+26*, A12+30*, A12+34*, A12+38*, A12+40*, A12+42*, A12+44*, A12+46*
, A12+53, FORMAT~, FORMAT+2
X START+11~, START+14*, START+17*, A1+21~, A11+5~, A11+7*, A11+9*, A11+24*, A11+25, A11+27
, A11+31, A12+4~, A12+33*, A12+34, A12+44*, HDR+5~, HDR+10*, HDR+13, HDR+16*, HDR+18
, HDR+20*, HDR+22, HDR+32*, HDR+33*, HDR+34*, HDR+35*, HDR+36*, HDR+38*, HDR+39*, HDR+41*
, HDR+42, HDR+44*, HDR+45*, HDR+46*, HDR+47*, HDR+48*, HDR+50*, HDR+51*, HDR+52*, HDR+53*
, HDR+56*, HDR+57*, HDR+58*, HDR+60*, HDR+61, PRT+2~, PRT+8*, PRT+9, PRT+16~, PRT+29*
, PRTOUT+1*, WR~, WR+3, WRSUBHDR+2~, WRSUBHDR+4*, WRSUBHDR+5, WRTOT+1~, WRTOT+7*, WRTOT+8*, WRTOT+9
, WRTOT+11*, WRTOT+12*, WRTOT+13, WRX+2~, WR2+3~, WR2+4*, WR2+6*, WR2+7, WR2+10
Y A1+21~, A11+5~, A11+9*, A11+10, A11+20*, A11+21, A11+22, A11+26*, A11+29, A11+32
, A11+34, A11+42*, A11+44*, A11+46, A12+4~, A12+36*, A12+37, A12+40, A12+46*, HDR+5~
, HDR+11*, HDR+12*, HDR+13, HDR+17*, HDR+18, HDR+21*, HDR+22, PRT+2~, WRSUBHDR+2~, WRSUBHDR+3*
, WRSUBHDR+4, WRTOT+1~, WRX+2~, WR2+3~, WR2+5*, WR2+6, WR2+7*, WR2+10
Z WRCK+7~*
>> ZTQUEUED EXIT+2, WRHDR+1
>> ZTREQ EXIT+2*
ZTSTOP START+1~, START+3*, WRHDR+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All