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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCFSDR

Package: IFCAP

Routine: PRCFSDR


Information

PRCFSDR ;WOIFO/SAB/LKG - IFCAP 1358 SEGREGATION OF DUTIES REPORT ;12/29/10 10:48

Source Information

Source file <PRCFSDR.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 DD^%DT  NOW^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
IFCAP 1 $$EV1358^PRCEMOA  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IFCAP 1 PRCFD INVOICE CERT SOD RPT  

Entry Points

Name Comments DBIA/ICR reference
QEN ; queued entry
GATHER ; collect and sort data
PRINT ; report data
EXIT ;
HD ; page header
HDEV ; page header for continued event
DAYS ;CALCULATES THE NUMBER OF DAYS IN MONTH - Copied from routine FBAAUTL1

External References

Name Field # of Occurrence
DD^%DT PRINT+1
NOW^%DTC PRINT+1
^%ZIS PRCFSDR+53
HOME^%ZIS PRCFSDR+58
^%ZISC PRINT+71
^%ZTLOAD PRCFSDR+58
$$S^%ZTLOAD HD+2
^DIC PRCFSDR+43
$$GET1^DIQ GATHER+16, GATHER+22, PRINT+51, PRINT+53, PRINT+54, PRINT+55
^DIR PRCFSDR+22, PRCFSDR+30, PRCFSDR+36, PRCFSDR+49, PRINT+70, HD+3
$$EV1358^PRCEMOA GATHER+33
$$FMADD^XLFDT PRCFSDR+21
$$FMTE^XLFDT PRCFSDR+21, PRCFSDR+29, PRINT+9, PRINT+49

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,PRCDL("CH")
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !,PRCOB
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !,"IFCAP events for this 1358 missing due to following error:"
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: !,$P(PRCOBX,U,2),!
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: ?11,$$FMTE^XLFDT(PRCDT,"2MZ")
  • Line Location: PRINT+49
Function Call: WRITE
  • Prompt: ?26,$S(PRCEV="O":"OBLIGATE",PRCEV="A":"ADJUST",1:PRCEV)
  • Line Location: PRINT+50
Function Call: WRITE
  • Prompt: ?38,"CERTIFIER",?49,$$GET1^DIQ(200,PRCX,.01)
  • Line Location: PRINT+51
Function Call: WRITE
  • Prompt: ?38,"REQUESTOR"
  • Line Location: PRINT+53
Function Call: WRITE
  • Prompt: ?49,$$GET1^DIQ(200,$P(PRCX,U),.01)
  • Condition for execution: $P(PRCX,U)
  • Line Location: PRINT+53
Function Call: WRITE
  • Prompt: !,?38,"APPROVER"
  • Line Location: PRINT+54
Function Call: WRITE
  • Prompt: ?49,$$GET1^DIQ(200,$P(PRCX,U,2),.01)
  • Condition for execution: $P(PRCX,U,2)
  • Line Location: PRINT+54
Function Call: WRITE
  • Prompt: !,?38,"OBLIGATOR"
  • Line Location: PRINT+55
Function Call: WRITE
  • Prompt: ?49,$$GET1^DIQ(200,$P(PRCX,U,3),.01)
  • Condition for execution: $P(PRCX,U,3)
  • Line Location: PRINT+55
Function Call: WRITE
  • Prompt: !,?8,"***",PRCXV
  • Line Location: PRINT+60
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED AT USER REQUEST"
  • Line Location: PRINT+62
Function Call: WRITE
  • Prompt: !,PRCDL("CH")
  • Line Location: PRINT+65
Function Call: WRITE
  • Prompt: !!," ",PRCC("CER")," invoice certification",$S(PRCC("CER")=1:" was",1:"s were")," found during the report period."
  • Line Location: PRINT+66
Function Call: WRITE
  • Prompt: !," ",PRCC("OBL")," 1358 Obligation",$S(PRCC("OBL")=1:" is",1:"s are")," referenced."
  • Line Location: PRINT+68
Function Call: WRITE
  • Prompt: !," A violation of segregation of duties was detected on ",$S(PRCC("VIO")=0:"none",1:PRCC("VIO"))," of the 1358s."
  • Line Location: PRINT+69
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,"IFCAP 1358 Segregation of Duties",?49,PRCDTR,?72,"page ",PRCPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,PRCHDT(PRCI)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !!,"1358",?11,"DATE/TIME",?26,"EVENT/INV#",?38,"ROLE",?49,"NAME"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,PRCOB," (continued from previous page)"
  • Line Location: HDEV+1
Routine Call
  • DIC
  • Line Location:
    • PRCFSDR+43
Routine Call
  • DIR
  • Line Location:
    • PRCFSDR+22
    • PRCFSDR+30
    • PRCFSDR+36
    • PRCFSDR+49
    • PRINT+70
    • HD+3
Routine Call
  • %ZIS
  • Line Location:
    • PRCFSDR+53
Routine Call
  • %ZIS
  • Line Location:
    • PRCFSDR+58

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^PRC(411 - [#411] Classic Fileman Calls
^PRC(442 - [#442] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCF(421.5 - [#421.5] GATHER+11, GATHER+13, GATHER+15
^TMP($J GATHER+2!, GATHER+26*, GATHER+30, GATHER+34*, GATHER+38*, GATHER+41, GATHER+42, GATHER+47, GATHER+49, GATHER+51
, GATHER+55*, GATHER+56*, GATHER+57*, GATHER+65*, GATHER+66*, GATHER+67*, GATHER+70*, PRINT+17, PRINT+19, PRINT+38
, PRINT+41, PRINT+44, PRINT+48, PRINT+57, PRINT+59, EXIT+2!

Label References

Name Line Occurrences
DAYS PRCFSDR+28
EXIT PRCFSDR+22, PRCFSDR+30, PRCFSDR+36, PRCFSDR+40, PRCFSDR+49, PRCFSDR+53, PRCFSDR+54
HD PRINT+14, PRINT+27, PRINT+45, PRINT+64
HDEV PRINT+45

Naked Globals

Name Field # of Occurrence
^(1 GATHER+15
^(2 GATHER+15
^(2.1 GATHER+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GATHER+1~, PRINT+1
%ZIS PRCFSDR+16~, PRCFSDR+53*
DIC PRCFSDR+42*, EXIT+5!
DIC(0 PRCFSDR+42*
DIR PRCFSDR+16~, PRCFSDR+22!, PRCFSDR+30!, PRCFSDR+36!, PRCFSDR+49!, PRINT+70!, EXIT+5!, HD+3!
DIR("A" PRCFSDR+19*, PRCFSDR+26*, PRCFSDR+35*, PRCFSDR+47*
DIR("B" PRCFSDR+21*, PRCFSDR+29*, PRCFSDR+35*, PRCFSDR+48*
DIR(0 PRCFSDR+19*, PRCFSDR+26*, PRCFSDR+35*, PRCFSDR+47*, PRINT+70*, HD+3*
DIROUT PRCFSDR+16~, EXIT+5!
DIRUT PRCFSDR+16~, PRCFSDR+22, PRCFSDR+30, PRCFSDR+36, PRCFSDR+49, EXIT+5!
DT PRCFSDR+21
DTOUT PRCFSDR+16~, EXIT+5!
DUOUT PRCFSDR+16~, EXIT+5!
IO QEN+1
IO("Q" PRCFSDR+54
IOF HD+4
IOSL PRINT+27, PRINT+45, PRINT+64
IOST PRINT+70, HD+3, HD+4
POP PRCFSDR+16~, PRCFSDR+53
PRCALL PRCFSDR+16~
PRCAPP GATHER+44~
PRCAPP( GATHER+56, GATHER+62*
PRCARRAY GATHER+32~
PRCARRAY( GATHER+36, GATHER+37, GATHER+38
PRCC EXIT+3!
PRCC("CER" GATHER+4*, GATHER+27*, PRINT+66
PRCC("OBL" GATHER+5*, GATHER+31*, PRINT+67, PRINT+68
PRCC("VIO" GATHER+6*, GATHER+71*, PRINT+69
PRCDA GATHER+12*, GATHER+13*, GATHER+15, EXIT+3!
PRCDL PRINT+2!, PRINT+3*, PRINT+4, EXIT+3!
PRCDL("CH" PRINT+4*, PRINT+29, PRINT+65
PRCDT GATHER+14~, GATHER+17*, GATHER+26, GATHER+35*, GATHER+36*, GATHER+37, GATHER+38, GATHER+47*, GATHER+49, GATHER+51
, GATHER+55, GATHER+56, GATHER+57, GATHER+65, GATHER+66, GATHER+67, PRINT+38*, PRINT+41, PRINT+44, PRINT+48
, PRINT+49, PRINT+57, PRINT+59, EXIT+3!
PRCDT1 PRCFSDR+16~, PRCFSDR+23*, PRCFSDR+26, PRCFSDR+28, PRCFSDR+29, GATHER+10, GATHER+17, PRINT+9, EXIT+3!
PRCDT2 PRCFSDR+16~, PRCFSDR+32*, GATHER+11, GATHER+17, GATHER+36, PRINT+9, EXIT+3!
PRCDTR PRINT+1*, EXIT+3!, HD+6
PRCERR PRINT+18~, PRINT+20*, PRINT+24, PRINT+32
PRCEV GATHER+37*, GATHER+38, GATHER+49*, GATHER+51, GATHER+53, GATHER+55, GATHER+56, GATHER+57, GATHER+59, GATHER+65
, GATHER+66, GATHER+67, PRINT+40*, PRINT+41*, PRINT+44, PRINT+48, PRINT+50, PRINT+51, PRINT+52, PRINT+57
, PRINT+59, EXIT+3!
PRCEVFP PRINT+18~, PRINT+36*, PRINT+45, PRINT+46, PRINT+47*
PRCHDT PRINT+7!, EXIT+3!
PRCHDT( HD+7
PRCHDT(1 PRINT+8*, PRINT+9*, PRINT+10*, PRINT+11*
PRCHDT(2 PRINT+12*
PRCI HD+1~, HD+7*
PRCNOD0 GATHER+14~, GATHER+15*, GATHER+16, GATHER+26
PRCNOD1 GATHER+14~, GATHER+15*, GATHER+18, GATHER+22
PRCNOD2 GATHER+14~, GATHER+15*, GATHER+17, GATHER+26
PRCNOD21 GATHER+14~, GATHER+15*, GATHER+17
PRCOB GATHER+18*, GATHER+23, GATHER+26, GATHER+30*, GATHER+33, GATHER+34, GATHER+38, GATHER+41*, GATHER+42, GATHER+47
, GATHER+49, GATHER+51, GATHER+55, GATHER+56, GATHER+57, GATHER+65, GATHER+66, GATHER+67, GATHER+70, PRINT+17*
, PRINT+19, PRINT+30, PRINT+38, PRINT+41, PRINT+44, PRINT+48, PRINT+57, PRINT+59, EXIT+3!, HDEV+1
PRCOBL GATHER+44~
PRCOBL( GATHER+57, GATHER+63*
PRCOBX PRINT+18~, PRINT+19*, PRINT+20, PRINT+21, PRINT+34
PRCORV PRCFSDR+50*, PRINT+12, PRINT+24, PRINT+44, EXIT+3!
PRCPG PRINT+1*, EXIT+4!, HD+3, HD+4, HD+5*, HD+6
PRCPO GATHER+14~, GATHER+16*, GATHER+22
PRCQUIT PRINT+1*, PRINT+17, PRINT+27, PRINT+38, PRINT+41, PRINT+45, PRINT+62, PRINT+64, PRINT+70, EXIT+4!
, HD+2*, HD+3*
PRCREQ GATHER+44~
PRCREQ( GATHER+55, GATHER+61*
PRCSDT GATHER+10*, GATHER+11*, GATHER+13, EXIT+4!
PRCSTALL PRCFSDR+37*, PRCFSDR+40, GATHER+21, PRINT+11, EXIT+4!
PRCSTB GATHER+14~, GATHER+21, GATHER+22*, GATHER+23*
PRCSTN PRCFSDR+38*, PRCFSDR+40, PRCFSDR+41*, PRCFSDR+44*, GATHER+21, PRINT+11, EXIT+4!
PRCV PRINT+42~, PRINT+57*, PRINT+59
PRCVIO GATHER+44~, GATHER+45*, GATHER+55*, GATHER+56*, GATHER+57*, GATHER+65*, GATHER+66*, GATHER+67*, GATHER+69, PRINT+18~
, PRINT+21*, PRINT+24
PRCX PRCFSDR+57*, GATHER+32~, GATHER+33*, GATHER+34, GATHER+50~, GATHER+51*, GATHER+55, GATHER+56, GATHER+57, GATHER+61
, GATHER+62, GATHER+63, GATHER+65, GATHER+66, GATHER+67, PRINT+42~, PRINT+48*, PRINT+51, PRINT+53, PRINT+54
, PRINT+55
PRCXV PRINT+58~, PRINT+59*, PRINT+60
U PRCFSDR+44, GATHER+16, GATHER+17, GATHER+18, GATHER+22, GATHER+26, GATHER+42, GATHER+59, GATHER+61, GATHER+62
, GATHER+63, GATHER+65, GATHER+66, GATHER+67, PRINT+20, PRINT+21, PRINT+34, PRINT+53, PRINT+54, PRINT+55
X PRCFSDR+16~, PRCFSDR+28*, PRCFSDR+29, EXIT+5!, DAYS+2*, DAYS+3, DAYS+6*
X1 DAYS+1~, DAYS+2*, DAYS+5
Y PRCFSDR+16~, PRCFSDR+23, PRCFSDR+31*, PRCFSDR+32, PRCFSDR+37, PRCFSDR+43, PRCFSDR+44, PRCFSDR+50, PRINT+1*, EXIT+5!
, HD+3
YEAR DAYS+4~, DAYS+5*, DAYS+6
ZTCPU PRCFSDR+55~
ZTDESC PRCFSDR+55~, PRCFSDR+56*
ZTDTH PRCFSDR+55~
ZTIO PRCFSDR+55~
ZTKIL PRCFSDR+55~
ZTPRI PRCFSDR+55~
>> ZTQUEUED EXIT+1, HD+2
>> ZTREQ EXIT+1*
ZTRTN PRCFSDR+55~, PRCFSDR+56*
ZTSAVE PRCFSDR+55~
ZTSAVE( PRCFSDR+57*
ZTSK PRCFSDR+55~
>> ZTSTOP HD+2*
ZTSYNC PRCFSDR+55~
ZTUCI PRCFSDR+55~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All