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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call