| 1 | PRCFACS3 ;WISC/SJG-BULLETIN FOR RETURNED PRUCHASE ORDER AMENDMENT ;7/24/00 23:20
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | BULLET(POIEN,AMIEN,AUTODATE) ;
|
|---|
| 6 | K ^UTILITY($J),MSG S DIWL=0,DIWR=79,DIWF=""
|
|---|
| 7 | S MSG(1,0)="The following Purchase Order Amendment was not obligated"
|
|---|
| 8 | S MSG(2,0)="and has been 'RETURNED' by Fiscal Service !!"
|
|---|
| 9 | S MSG(3,0)=" ",MSG(4,0)="Purchase Order information is as follows:"
|
|---|
| 10 | S MSG(5,0)=" ",MSG(6,0)="Purchase Order Number: "_$P(^PRC(443.6,POIEN,0),"^",1)
|
|---|
| 11 | S MSG(7,0)=" ",MSG(8,0)="Amendment Number: "_AMIEN
|
|---|
| 12 | I AUTODATE]"" D
|
|---|
| 13 | .S MSG(9,0)=" ",MSG(10,0)="Automatic Deletion Date: "_AUTODATE
|
|---|
| 14 | .Q
|
|---|
| 15 | S XMSUB="RETURNED PURCHASE ORDER AMENDMENT NOTIFICATION"
|
|---|
| 16 | D MSG,MSG1
|
|---|
| 17 | EXIT ;
|
|---|
| 18 | K DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | MSG ; Set Variables and Call XMD
|
|---|
| 22 | 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
|
|---|
| 23 | Q
|
|---|
| 24 | MSG1 ; Message Processing
|
|---|
| 25 | W !!,"...Purchase Order Amendment was returned, bulletin has been transmitted..."
|
|---|
| 26 | W !!,"...Supply has been notified...",!!
|
|---|
| 27 | Q
|
|---|
