| 1 | PRCFAC32 ;WISC/SJG-BULLETIN TO SUPPLY FOR FISCAL VENDOR ADD/EDIT ;7/24/00 23:21
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | BULLET(VEN) ;
|
|---|
| 6 | K ^UTILITY($J),MSG S DIWL=0,DIWR=79,DIWF=""
|
|---|
| 7 | S MSG(1,0)="The following Vendor has been added or edited by Fiscal Service."
|
|---|
| 8 | S MSG(2,0)=" "
|
|---|
| 9 | S MSG(3,0)=" ",MSG(4,0)="Vendor information is as follows:"
|
|---|
| 10 | S MSG(5,0)=" ",MSG(6,0)="Vendor Name: "_PRCTMP(440,VEN,.01,"E")
|
|---|
| 11 | S MSG(7,0)=" ",MSG(8,0)="Please update other information as necessary."
|
|---|
| 12 | S XMSUB="VENDOR ADD/EDIT BY FISCAL"
|
|---|
| 13 | D MSG,MSG1
|
|---|
| 14 | EXIT ;
|
|---|
| 15 | K DIWF,DIWL,DIWR,X,X1,XMDUZ,XMSUB,XMTEXT,XMY
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | MSG ; Set Variables and Call XMD
|
|---|
| 19 | ; Sent to members of mail group SUPPLY NOTIFICATION
|
|---|
| 20 | S N=$O(^XMB(3.8,"B","SUPPLY NOTIFICATION","")) Q:N=""
|
|---|
| 21 | S M="" F S M=$O(^XMB(3.8,N,1,"B",M)) Q:M="" S XMY(+M)=""
|
|---|
| 22 | Q:'$O(XMY("")) S XMDUZ=DUZ,XMTEXT="MSG("
|
|---|
| 23 | W ! D WAIT^PRCFYN,^XMD
|
|---|
| 24 | Q
|
|---|
| 25 | MSG1 ; Message Processing
|
|---|
| 26 | W !!,"...Vendor payment information has been added or edited, bulletin has been transmitted..."
|
|---|
| 27 | W !!,"...Supply has been notified...",!!
|
|---|
| 28 | Q
|
|---|
