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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCB2A

Package: IFCAP

Routine: PRCB2A


Information

PRCB2A ;WISC/(SKR@LBVAMC) - PLT,DGL-ROUTINE TO PRINT RECEIVING REPORT PENDING ACTION; 7/20/98 2:18pm

Source Information

Source file <PRCB2A.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 ^%DTC  EN^DDIOL  

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 PRCB RPT FISCAL PENDING ACTION  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**126,186,217**;Oct 20, 2000;Build 4
EN ;pending fiscal action rpt
INIT
START ;Loop picks up only specific entries
EXIT ;PRC*5.1*217 ADDS USER TERMINTED REPORT
HDR ;
HDR0 ;prc*5.1*186
HDR1 ;Purchase orders
HDR1A ;Purchase orders PRC*5.1*186
HDR2 ;GPF 2237s
PRINT ;
PRINT1 ;PRC*5.1*186
PRINT2(X) ;
ASK ;
INFO ;routine provides Fiscal Service with a listing of all Purchase orders

External References

Name Field # of Occurrence
^%DTC PRINT1+10
^%ZIS INIT
^%ZISC EXIT+4
^%ZTLOAD INIT+5
EN^DDIOL EXIT+1, EXIT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"REQUEST QUEUED"
  • Line Location: INIT+5
Function Call: WRITE
  • Prompt: !!,"** NO APPROVED AMENDMENTS AWAITING FISCAL ACTION **"
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !!,"NO 2237s or 1358s to print"
  • Line Location: START+25
Function Call: WRITE
  • Prompt: !!,"(Note: '*' indicates transaction is a 1358. All others are 2237s.)",!
  • Line Location: START+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?70,"Page ",PAGE
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"IFCAP OBLIGATIONS PENDING ACTION REPORT",C
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?45,"PRINTED ON "
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: " AT "
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR0+1
Function Call: WRITE
  • Prompt: !,?70,"Page ",PAGE
  • Line Location: HDR0+1
Function Call: WRITE
  • Prompt: !,"IFCAP APPROVED AMENDMENTS PENDING FISCAL ACTION REPORT",C
  • Line Location: HDR0+2
Function Call: WRITE
  • Prompt: !,?45,"PRINTED ON "
  • Line Location: HDR0+3
Function Call: WRITE
  • Prompt: " AT "
  • Line Location: HDR0+3
Function Call: WRITE
  • Prompt: !,LINE,!,"P.O. NUMBER",?12,"FCP ",?18,"AMOUNT",?32,"DATE",?42,"STATUS",!,LINE,!
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,LINE,!,"P.O. NUMBER",?12,"FCP ",?18,"AMOUNT",?32,"DATE",?45,"DAYS SINCE APPROVED",!,LINE,!
  • Line Location: HDR1A+1
Function Call: WRITE
  • Prompt: !,LINE,!,"TRANSACTION NUMBER",?22,"FCP ",?32,"AMOUNT",?45,"DATE",?55,"STATUS",?77,"SCP",!,LINE,!
  • Line Location: HDR2+1
Function Call: WRITE
  • Prompt: !,$P(^PRC(442,+IEN,0),U,1),?12,$P($P(^(0),U,3)," "),?18,"$"_$J($P(^(0),U,15),9,2)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,$P(^PRC(442,+IEN,0),U,1),?12,$P($P(^(0),U,3)," "),?18,"$"_$J($P(^(0),U,15),9,2)
  • Line Location: PRINT1+8
Function Call: WRITE
  • Prompt: ?32,$E($P(^(1),U,15),4,5),"-",$E($P(^(1),U,15),6,7),"-",$E($P(^(1),U,15),2,3)
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: ?51,X
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: !,$P(A0,U,1)
  • Line Location: PRINT2+2
Function Call: WRITE
  • Prompt: "*"
  • Line Location: PRINT2+3
Function Call: WRITE
  • Prompt: ?22,$P($P(^PRCS(410,IEN,3),U,1)," "),?28
  • Line Location: PRINT2+4
Function Call: WRITE
  • Prompt: "Bad record"
  • Line Location: PRINT2+5
Function Call: WRITE
  • Prompt: "$"_$J($P(^(4),U,8),9,2),?42,$E(A,4,5),"-",$E(A,6,7),"-",$E(A,2,3)
  • Line Location: PRINT2+6
Function Call: WRITE
  • Prompt: ?52,$P(^PRCD(442.3,10,0),U,1),?77,$P("NON^GPF^SF^CON^CAN",U,($P(^PRC(420,IEN1,1,IEN2,0),U,12)+1))
  • Line Location: PRINT2+7
Function Call: WRITE
  • Prompt: !!,"(Note: '*' indicates transaction is a 1358. All others are 2237s.)"
  • Line Location: ASK+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+2
Routine Call
  • %ZIS
  • Line Location:
    • INIT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(420 - [#420] START+15, START+16, PRINT2+7
^PRC(442 - [#442] START+3, PRINT+1, PRINT+3, PRINT+4, PRINT1+8, PRINT1+9
^PRC(443 - [#443] START+23
^PRC(443.6 - [#443.6] START+8, PRINT1+2, PRINT1+3, PRINT1+4
^PRCD(442.3 - [#442.3] PRINT+4, PRINT2+7
^PRCS(410 - [#410] START+17, START+18, START+19, START+20, START+21, PRINT2+4, PRINT2+5

Label References

Name Line Occurrences
ASK START+7, START+14, PRINT+2, PRINT1+7, PRINT2+1
EXIT INIT+5, START+4, START+7, START+10, START+14, START+15
HDR START+2, START+14, PRINT+2, PRINT2+1
HDR0 START+7, PRINT1+7
HDR1 START+2, PRINT+2
HDR1A START+7, PRINT1+7
HDR2 START+14, PRINT2+1
PRINT START+3
PRINT1 START+8
PRINT2 START+22, START+24

Naked Globals

Name Field # of Occurrence
^(0 PRINT+3, PRINT+4, PRINT1+8
^(1 PRINT+4, PRINT1+9
^(4 PRINT2+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%IS INIT!*
%ZIS INIT!
A INIT+1*, START+1*, START+18*, START+19*, EXIT+3!, PRINT2+6
A0 START+1*, START+20*, START+22, EXIT+3!, PRINT2+2
A1 START+1*, START+21*, START+22, START+24, EXIT+3!
A2 START+1*, START+23*, START+24, EXIT+3!
B START+1*, START+13*, START+25, EXIT+3!, PRINT2+8*, ASK+1
C INIT+1*, START+1*, START+13*, EXIT+3!, HDR+2, HDR0+2
D START+1*, START+16*, START+17, EXIT+3!
DT PRINT1+10
DTIME ASK+2
IEN INIT+1*, START+3*, START+8*, START+13*, START+16*, START+17*, START+18, START+19, START+20, START+21
START+23, EXIT+3!, PRINT+1, PRINT+3, PRINT+4, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+8, PRINT1+9
, PRINT2+4, PRINT2+5
>> IEN1 START+13*, START+15*, START+16, PRINT2+7
>> IEN2 START+13*, START+15*, START+16*, PRINT2+7
IO INIT+3, HDR+1, HDR0+1
IO("Q" INIT+4, INIT+5!
>> IO(0 INIT+3
IOC INIT!, INIT+3*
IOF HDR+1, HDR0+1
IOM INIT+2
IOP INIT!
IOSL PRINT+2, PRINT1+7, PRINT2+1
IOST ASK+2
L1 EXIT+3!
LINE INIT*, INIT+2*, EXIT+3!, HDR1+1, HDR1A+1, HDR2+1
PAGE INIT+1*, EXIT+3!, HDR+1*, HDR0+1*
POP INITEXIT+3!
PRCAMD PRINT1+1~, PRINT1+3*, PRINT1+4
PRCAMD1 PRINT1+1~, PRINT1+4*, PRINT1+5, PRINT1+10
PRCQ INIT+1*, START+3*, START+4, START+7, START+8*, START+10, START+14, START+15, START+16, START+17
EXIT+1, EXIT+2, EXIT+3!, PRINT+2, PRINT1+7, PRINT2+1, ASK+2*
PRCTT START+8*, START+9, EXIT+3!, PRINT1+6*
TRM INIT+3*, EXIT+3!
U INIT*, START+16, START+19, START+22, START+24, PRINT+3, PRINT+4, PRINT1+5, PRINT1+8, PRINT1+9
PRINT1+10, PRINT2+2, PRINT2+4, PRINT2+6, PRINT2+7
X PRINT1+10, PRINT2~, PRINT2+3, ASK+2*
X1 PRINT1+1~, PRINT1+10*
X2 PRINT1+1~, PRINT1+10*
ZSTAT INIT+1*, START+3*, EXIT+3!
ZTDTH INIT+4*, EXIT+3!
ZTIO INIT!
ZTRTN INIT+4*, EXIT+3!
ZTSAVE EXIT+3!
ZTSAVE("IOC" INIT+4*
ZTSAVE("LINE" INIT+4*
ZTSAVE("PAGE" INIT+4*
ZTSAVE("PRCQ" INIT+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All