IBRCON3.m

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 ---IBRCON3   1143     printed  Apr 09, 2024@21:21:26                                                                                                                                                                                                     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