PRCHAMBL.m

PRCHAMBL ;WISC/SJG/AKS-BULLETIN FOR RETURNED PURCHASE ORDER AMENDMENT ;

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)="Fiscal Service has taken no action on the following Purchase Order Amendment."

 S MSG(2,0)="The Amendment Status has been Pending Fiscal Action for 4 or more days.!!"

 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

 S XMSUB="PURCHASE ORDER AMENDMENT NOTIFICATION"

 D MSG

EXIT ;

 K DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY,AMIEN,AUTODATE,POIEN

 QUIT

 ;

MSG ; Set Variables and Call XMD

 S XMDUZ=.5,X=$O(^PRC(443.6,POIEN,6,0))

 S X1=$P($G(^PRC(443.6,POIEN,6,X,1)),U) I X1]"" S XMY(+X1)=""

 S XMY("G.SUPPLY NOTIFICATION")=""

 S XMY("G.FISCAL NOTIFICATION")="",XMTEXT="MSG(" D ^XMD

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCHAMBL   1026     printed  Mar 13, 2025@21:10:31                                                                                                                                                                                                    Page 2

PRCHAMBL  ;WISC/SJG/AKS-BULLETIN FOR RETURNED PURCHASE ORDER AMENDMENT ;

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)="Fiscal Service has taken no action on the following Purchase Order Amendment."

 +3        SET MSG(2,0)="The Amendment Status has been Pending Fiscal Action for 4 or more days.!!"

 +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        SET XMSUB="PURCHASE ORDER AMENDMENT NOTIFICATION"

 +8        DO MSG

EXIT      ;

 +1        KILL DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY,AMIEN,AUTODATE,POIEN

 +2        QUIT 

 +3       ;

MSG       ; Set Variables and Call XMD

 +1        SET XMDUZ=.5

           SET X=$ORDER(^PRC(443.6,POIEN,6,0))

 +2        SET X1=$PIECE($GET(^PRC(443.6,POIEN,6,X,1)),U)

           IF X1]""

               SET XMY(+X1)=""

 +3        SET XMY("G.SUPPLY NOTIFICATION")=""

 +4        SET XMY("G.FISCAL NOTIFICATION")=""

           SET XMTEXT="MSG("

           DO ^XMD

 +5        QUIT