PRCFACS3 ;WISC/SJG-BULLETIN FOR RETURNED PRUCHASE ORDER AMENDMENT ;7/24/00 23:20
V ;;5.1;IFCAP;;Oct 20, 2000
;Per VHA Directive 10-93-142, this routine should not be modified.
;
BULLET(POIEN,AMIEN,AUTODATE) ;
K ^UTILITY($J),MSG S DIWL=0,DIWR=79,DIWF=""
S MSG(1,0)="The following Purchase Order Amendment was not obligated"
S MSG(2,0)="and has been 'RETURNED' by Fiscal Service !!"
S MSG(3,0)=" ",MSG(4,0)="Purchase Order information is as follows:"
S MSG(5,0)=" ",MSG(6,0)="Purchase Order Number: "_$P(^PRC(443.6,POIEN,0),"^",1)
S MSG(7,0)=" ",MSG(8,0)="Amendment Number: "_AMIEN
I AUTODATE]"" D
.S MSG(9,0)=" ",MSG(10,0)="Automatic Deletion Date: "_AUTODATE
.Q
S XMSUB="RETURNED PURCHASE ORDER AMENDMENT NOTIFICATION"
D MSG,MSG1
EXIT ;
K DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY
Q
;
MSG ; Set Variables and Call XMD
S XMDUZ=DUZ,X=$S($D(^PRC(443.6,POIEN,1)):^(1),1:"") I $P(X,"^",10)]"" S X1=$P(X,"^",10) I X1]"" S XMY(+X1)="",XMTEXT="MSG(" W ! D WAIT^PRCFYN,^XMD
Q
MSG1 ; Message Processing
W !!,"...Purchase Order Amendment was returned, bulletin has been transmitted..."
W !!,"...Supply has been notified...",!!
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCFACS3 1176 printed Oct 16, 2024@18:03:02 Page 2
PRCFACS3 ;WISC/SJG-BULLETIN FOR RETURNED PRUCHASE ORDER AMENDMENT ;7/24/00 23:20
V ;;5.1;IFCAP;;Oct 20, 2000
+1 ;Per VHA Directive 10-93-142, this routine should not be modified.
+2 ;
BULLET(POIEN,AMIEN,AUTODATE) ;
+1 KILL ^UTILITY($JOB),MSG
SET DIWL=0
SET DIWR=79
SET DIWF=""
+2 SET MSG(1,0)="The following Purchase Order Amendment was not obligated"
+3 SET MSG(2,0)="and has been 'RETURNED' by Fiscal Service !!"
+4 SET MSG(3,0)=" "
SET MSG(4,0)="Purchase Order information is as follows:"
+5 SET MSG(5,0)=" "
SET MSG(6,0)="Purchase Order Number: "_$PIECE(^PRC(443.6,POIEN,0),"^",1)
+6 SET MSG(7,0)=" "
SET MSG(8,0)="Amendment Number: "_AMIEN
+7 IF AUTODATE]""
Begin DoDot:1
+8 SET MSG(9,0)=" "
SET MSG(10,0)="Automatic Deletion Date: "_AUTODATE
+9 QUIT
End DoDot:1
+10 SET XMSUB="RETURNED PURCHASE ORDER AMENDMENT NOTIFICATION"
+11 DO MSG
DO MSG1
EXIT ;
+1 KILL DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY
+2 QUIT
+3 ;
MSG ; Set Variables and Call XMD
+1 SET XMDUZ=DUZ
SET X=$SELECT($DATA(^PRC(443.6,POIEN,1)):^(1),1:"")
IF $PIECE(X,"^",10)]""
SET X1=$PIECE(X,"^",10)
IF X1]""
SET XMY(+X1)=""
SET XMTEXT="MSG("
WRITE !
DO WAIT^PRCFYN
DO ^XMD
+2 QUIT
MSG1 ; Message Processing
+1 WRITE !!,"...Purchase Order Amendment was returned, bulletin has been transmitted..."
+2 WRITE !!,"...Supply has been notified...",!!
+3 QUIT
