source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAFBD1.m@ 846

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

initial load of WorldVistAEHR

File size: 655 bytes
Line 
1PRCAFBD1 ;WASH-ISC@ALTOONA,PA/CLH-FMS Billing Document Utilities ;8/2/95 3:19 PM
2V ;;4.5;Accounts Receivable;**16**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4DTYPE(BD) ;Return related documents for a BD
5 ;Input BD type
6 ;output =bd type^reserved^CR^WR
7 ;ie: input= 24
8 ; output=24^1^05^01
9 N X
10 I 'BD Q -1
11 I $L(BD)<2 S BD=0_BD
12 S X=$O(^PRCA(347.4,"B",BD,0))
13 I 'X Q -1
14 S X=$G(^PRCA(347.4,X,0))
15 Q X
16 ;
17EDT ;Edit bill type
18 N DA,DIC,DR,Y,DIE
19 W !,"This option is used to edit the BILL type for converted Bills.",!
20EDT1 S DIC="^PRCA(430,",DIC(0)="AEMNQ" D ^DIC Q:+Y<0
21 S DA=+Y,DIE=DIC,DR=259 D ^DIE
22 G EDT1
23 ;
Note: See TracBrowser for help on using the repository browser.