Routine: PRCFACS3

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

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

MSG1 ; Message Processing

 W !!,"...Purchase Order Amendment was returned, bulletin has been transmitted..."

 W !!,"...Supply has been notified...",!!

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCFACS3   1176     printed  Apr 23, 2025@18:16:45                                                                                                                                                                                                    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

PRCFACS3.m