source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCHAMBL.m@ 724

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

initial load of WorldVistAEHR

File size: 1003 bytes
Line 
1PRCHAMBL ;WISC/SJG/AKS-BULLETIN FOR RETURNED PURCHASE ORDER AMENDMENT ;
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)="Fiscal Service has taken no action on the following Purchase Order Amendment."
8 S MSG(2,0)="The Amendment Status has been Pending Fiscal Action for 4 or more days.!!"
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 S XMSUB="PURCHASE ORDER AMENDMENT NOTIFICATION"
13 D MSG
14EXIT ;
15 K DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY,AMIEN,AUTODATE,POIEN
16 QUIT
17 ;
18MSG ; Set Variables and Call XMD
19 S XMDUZ=.5,X=$O(^PRC(443.6,POIEN,6,0))
20 S X1=$P($G(^PRC(443.6,POIEN,6,X,1)),U) I X1]"" S XMY(+X1)=""
21 S XMY("G.SUPPLY NOTIFICATION")=""
22 S XMY("G.FISCAL NOTIFICATION")="",XMTEXT="MSG(" D ^XMD
23 Q
Note: See TracBrowser for help on using the repository browser.