| [613] | 1 | PRCFAC31 ;WISC/SJG-CONTINUATION OF FISCAL VENDOR EDIT ;12/12/94 15:52
|
|---|
| 2 | ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;;
|
|---|
| 5 | GET(VEN) ; Retrieve Vendor Payment Information from File 440
|
|---|
| 6 | N DA,DIC,DIQ,DR
|
|---|
| 7 | S DIC=440,DA=VEN,DIQ="PRCTMP(",DIQ(0)="IEN"
|
|---|
| 8 | S DR=".01;17;17.2;17.3;17.4;17.5;17.6;17.7;17.8;17.9;18.3;34;35;36;45"
|
|---|
| 9 | D EN^DIQ1
|
|---|
| 10 | QUIT
|
|---|
| 11 | ;
|
|---|
| 12 | DISPLAY(VEN) ; Display Vendor Payment Information
|
|---|
| 13 | I $D(IOF) W @IOF D HDR^PRCFAC3
|
|---|
| 14 | W !,IOINHI,"Payment Information",IOINORM,!
|
|---|
| 15 | W !?2,IOINHI,"Vendor Name: ",IOINORM,$G(PRCTMP(440,VEN,.01,"E"))
|
|---|
| 16 | W !,IOINHI,"Vendor Number: ",IOINORM,VEN
|
|---|
| 17 | W ?40,IOINHI,"Non-Recurring/Recurring: ",IOINORM,$S($G(PRCTMP(440,VEN,36,"I"))="N":"NON-RECURRING",1:"RECURRING")
|
|---|
| 18 | W !!,IOINHI,?17,"FMS Vendor Code: ",IOINORM,$G(PRCTMP(440,VEN,34,"E"))
|
|---|
| 19 | W !,?5,IOINHI,"Alternate Address Indicator: ",IOINORM,$G(PRCTMP(440,VEN,35,"E"))
|
|---|
| 20 | W !!,?5,IOINHI,"Address: ",IOINORM
|
|---|
| 21 | I $D(PRCTMP(440,VEN,17.3,"E")) W ?14,$G(PRCTMP(440,VEN,17.3,"E")),!
|
|---|
| 22 | I $D(PRCTMP(440,VEN,17.4,"E")) W ?14,$G(PRCTMP(440,VEN,17.4,"E")),!
|
|---|
| 23 | I $D(PRCTMP(440,VEN,17.5,"E")) W ?14,$G(PRCTMP(440,VEN,17.5,"E")),!
|
|---|
| 24 | I $D(PRCTMP(440,VEN,17.6,"E")) W ?14,$G(PRCTMP(440,VEN,17.6,"E")),!
|
|---|
| 25 | I $D(PRCTMP(440,VEN,17.7,"E")) W ?14,$G(PRCTMP(440,VEN,17.7,"E"))
|
|---|
| 26 | I $D(PRCTMP(440,VEN,17.8,"I")) D
|
|---|
| 27 | .W ", "
|
|---|
| 28 | .W $P(^DIC(5,PRCTMP(440,VEN,17.8,"I"),0),U,2)
|
|---|
| 29 | .Q
|
|---|
| 30 | I $D(PRCTMP(440,VEN,17.9,"E")) W " ",$G(PRCTMP(440,VEN,17.9,"E")),!!
|
|---|
| 31 | I $D(PRCTMP(440,VEN,17,"E")) W !?5,IOINHI,"Payment Contact Person: ",IOINORM,$G(PRCTMP(440,VEN,17,"E"))
|
|---|
| 32 | I $D(PRCTMP(440,VEN,17.2,"E")) W !?22,IOINHI,"Phone: ",IOINORM,?14,$G(PRCTMP(440,VEN,17.2,"E")),!
|
|---|
| 33 | Q
|
|---|
| 34 | EDIT ; Prompt to edit
|
|---|
| 35 | W ! S DIR(0)="Y",DIR("A")="Edit the payment information on Vendor record",DIR("B")="YES"
|
|---|
| 36 | S DIR("?")="Enter 'NO' or 'N' or '^' to exit this edit session."
|
|---|
| 37 | S DIR("?",4)="Enter 'YES' or 'Y' or 'RETURN' to continue."
|
|---|
| 38 | S DIR("?",1)="If the payment information on the Vendor record is changed,"
|
|---|
| 39 | S DIR("?",2)="a Vendor Request will be sent to FMS.",DIR("?",3)=" "
|
|---|
| 40 | D ^DIR K DIR W !
|
|---|
| 41 | Q
|
|---|
