| 1 | PRCFACS1 ;WISC/PL-BULLETIN FOR RETURNED PRUCHASE ORDER ;12/17/93
|
|---|
| 2 | ;;5.1;IFCAP;**97**;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | K ^UTILITY($J),MSG S DIWL=0,DIWR=79,DIWF=""
|
|---|
| 6 | S MSG(1,0)="The following purchase order was not obligated",MSG(2,0)="and has been 'RETURNED' by Fiscal Service !! ",MSG(3,0)="Purchase Order information is as follows:"
|
|---|
| 7 | S MSG(4,0)=" ",MSG(5,0)="Purchase Order Number: "_$P(^PRC(442,DA,0),"^",1)
|
|---|
| 8 | S XMSUB="RETURNED PURCHASE ORDER NOTIFICATION"
|
|---|
| 9 | D MSG W !! S X="...Purchase Order returned, bulletin transmitted...*" D MSG^PRCFQ
|
|---|
| 10 | EXIT ;
|
|---|
| 11 | K DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | MSG ;SET VARIABLES AND CALL XMD
|
|---|
| 15 | S XMDUZ=DUZ,X=$S($D(^PRC(442,DA,1)):^(1),1:"") I $P(X,"^",10)]"" S X1=$P(X,"^",10) I X1]"" S XMY(+X1)="",XMTEXT="MSG(" D WAIT^PRCFYN N DIFROM D ^XMD
|
|---|
| 16 | Q
|
|---|
