source: FOIAVistA/tag/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFACS3.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1PRCFACS3 ;WISC/SJG-BULLETIN FOR RETURNED PRUCHASE ORDER AMENDMENT ;7/24/00 23:20
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5BULLET(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
17EXIT ;
18 K DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY
19 Q
20 ;
21MSG ; 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
24MSG1 ; Message Processing
25 W !!,"...Purchase Order Amendment was returned, bulletin has been transmitted..."
26 W !!,"...Supply has been notified...",!!
27 Q
Note: See TracBrowser for help on using the repository browser.