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

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

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