24 lines
655 B
Mathematica
24 lines
655 B
Mathematica
PRCAFBD1 ;WASH-ISC@ALTOONA,PA/CLH-FMS Billing Document Utilities ;8/2/95 3:19 PM
|
|
V ;;4.5;Accounts Receivable;**16**;Mar 20, 1995
|
|
;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
DTYPE(BD) ;Return related documents for a BD
|
|
;Input BD type
|
|
;output =bd type^reserved^CR^WR
|
|
;ie: input= 24
|
|
; output=24^1^05^01
|
|
N X
|
|
I 'BD Q -1
|
|
I $L(BD)<2 S BD=0_BD
|
|
S X=$O(^PRCA(347.4,"B",BD,0))
|
|
I 'X Q -1
|
|
S X=$G(^PRCA(347.4,X,0))
|
|
Q X
|
|
;
|
|
EDT ;Edit bill type
|
|
N DA,DIC,DR,Y,DIE
|
|
W !,"This option is used to edit the BILL type for converted Bills.",!
|
|
EDT1 S DIC="^PRCA(430,",DIC(0)="AEMNQ" D ^DIC Q:+Y<0
|
|
S DA=+Y,DIE=DIC,DR=259 D ^DIE
|
|
G EDT1
|
|
;
|