source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFACS1.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 840 bytes
Line 
1PRCFACS1 ;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
10EXIT ;
11 K DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY
12 Q
13 ;
14MSG ;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
Note: See TracBrowser for help on using the repository browser.