IBRCON3 ;ALB/RJS - TOP LEVEL ROUTINE FOR PASSING CONVERTED CHARGES - 4/28/92
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
START ;
;***
;S XRTL=$ZU(0),XRTN="IBRCON3-1" D T0^%ZOSV ;start rt clock
S DIR(0)="SAO^1:P;2:D"
S DIR("A")="Pass converted charges by Patient or by Date (P/D): "
S DIR("?",1)="Converted charges may be passed using Patient name or"
S DIR("?",2)="Date selection criteria. If Patient is selected then"
S DIR("?",3)="all billing actions with a status of 'Converted' will"
S DIR("?",4)="be displayed. The user may then select which actions"
S DIR("?",5)="will be passed to accounts receivable. If Date is"
S DIR("?",6)="selected then all outpatient copay and fee service"
S DIR("?",7)="billing actions that were created within the date"
S DIR("?",8)="range selected (inclusive) and with a status of"
S DIR("?")="'Converted' will be passed to accounts receivable."
D ^DIR
W !
I Y=1 D ^IBRCON1 G END
I Y=2 D ^IBRCON2 G END
END ;
K DIR,Y
;***
;I $D(XRT0) S:'$D(XRTN) XRTN="IBRCON3" D T1^%ZOSV ;stop rt clock
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBRCON3 1143 printed Nov 22, 2024@17:36:47 Page 2
IBRCON3 ;ALB/RJS - TOP LEVEL ROUTINE FOR PASSING CONVERTED CHARGES - 4/28/92
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
START ;
+1 ;***
+2 ;S XRTL=$ZU(0),XRTN="IBRCON3-1" D T0^%ZOSV ;start rt clock
+3 SET DIR(0)="SAO^1:P;2:D"
+4 SET DIR("A")="Pass converted charges by Patient or by Date (P/D): "
+5 SET DIR("?",1)="Converted charges may be passed using Patient name or"
+6 SET DIR("?",2)="Date selection criteria. If Patient is selected then"
+7 SET DIR("?",3)="all billing actions with a status of 'Converted' will"
+8 SET DIR("?",4)="be displayed. The user may then select which actions"
+9 SET DIR("?",5)="will be passed to accounts receivable. If Date is"
+10 SET DIR("?",6)="selected then all outpatient copay and fee service"
+11 SET DIR("?",7)="billing actions that were created within the date"
+12 SET DIR("?",8)="range selected (inclusive) and with a status of"
+13 SET DIR("?")="'Converted' will be passed to accounts receivable."
+14 DO ^DIR
+15 WRITE !
+16 IF Y=1
DO ^IBRCON1
GOTO END
+17 IF Y=2
DO ^IBRCON2
GOTO END
END ;
+1 KILL DIR,Y
+2 ;***
+3 ;I $D(XRT0) S:'$D(XRTN) XRTN="IBRCON3" D T1^%ZOSV ;stop rt clock
+4 QUIT
