source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFAC31.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: 2.0 KB
Line 
1PRCFAC31 ;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 ;;
5GET(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 ;
12DISPLAY(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
34EDIT ; 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
Note: See TracBrowser for help on using the repository browser.