IBCSCH.m

IBCSCH	;ALB/MJB - MCCR HELP ROUTINE  ;03 JUN 88 15:25

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	;;Per VHA Directive 10-93-142, this routine should not be modified.

	;

	;MAP TO DGCRSCH

	;

	S IBH="" D ^IBCSCU,H^IBCSCU K IBH W !,"Enter '^' to stop the display ",$S(IBV:"",1:"and edit "),"of data,"

	W:'$D(IBPAR) " '^N' to jump to screen #N (see",!,"listing below), <RET> to continue on to the next available screen" I IBV W "." G M

	W " or enter",!,"the field group number(s) you wish to edit using commas and dashes as",!,"delimiters.  Those groups enclosed in brackets ""[]"" are editable while those",!,"enclosed in arrows ""<>"" are not."

M	G:$D(IBPAR) M1 S Z="DATA GROUPS ON SCREEN "_+IBSR W !! X IBWW D @(IBSR1_IBSR) D W D S W ! F I=$Y:1:20 W !

	S Z="PRESS <RETURN> KEY" X IBWW W " to RETURN to SCREEN ",+IBSR R X:DTIME Q

M1	S Z="DATA GROUPS ON PARAMETER SCREEN" W !! X IBWW D @(IBSR1_IBSR) D W W ! F I=$Y:1:20 W !

	S Z="PRESS <RETURN> KEY" X IBWW W " to RETURN to PARAMETER SCREEN" R X:DTIME Q

1	S X="DOB^Alias Name^Sex, Marital Status^Veteran Status, Eligibility^Address, Temporary Address^Patient Short Billing Address^SC at Time of Care" Q

2	S X="Patient Employer Name, Address^Spouse Employer Name, Address" Q

3	S X="Payer Information^Provider Numbers^Mailing Address" Q

4	S X="Admission Information^Discharge Information^Diagnosis Code(s)^Coding Method, Inpt. Pro. Code(s)^Occurrence Code(s)^Condition Code(s)^Value Code(s)" Q

5	S X="Event Date^Outpatient Diagnosis^Outpatient Visits^Coding Method, Opt. Pro. Code(s)^Occurrence Code(s)^Condtion Code(s)" Q

6	S X="Bill/Rate Type, Covered and Non-Covered Days^R.O.I., Assignment of Benefits^Statement Covers Period^Bedsection, Length of Stay^Revenue Code(s), Offset, Total" Q

7	S X="Bill/Rate Type, Covered and Non-Covered Days^R.O.I., Assignment of Benefits^Statement Covers Period^Outpatient Visits^Revenue Code(s), Offset, Total" Q

8	S X="Bill Remark^Form Locator 2^Form Locator 9^Form Locator 27^Form Locator 45^Form Locator 92^Form Locator 93^Tx Auth. Code" Q

28	S X="Bill Remark, Tx Auth. Code, Admitting Diagnosis^Attending Physician Id., Other Physician Id.^Form Locator 2 and 11^Form Locator 31 and 377^Form Locator 56, 57, and 78" Q

H8	S X="Period Unable to Work^Block 31^Tx/Prior Auth. Code" Q

PAR	S X="Fed Tax #, BC/BS #, MAS Svc Pointer^Bill Signer, Billing Supervisor^Security Parameters, Outpatient CPT parameters ^Remarks, Mailgroups^Agent Cashier Address/Phone" Q

S	W !! S Z="AVAILABLE SCREENS" X IBWW

	S X="Demographic^Employment^Payer^Inpatient Event^Outpatient Event^Inpatient Billing - General^Outpatient Billing - General^Billing - Specific"

	S C=0 F I=1:1 S J=$P(X,"^",I) Q:J=""  I '$E(IBVV,I) S C=C+1,Z="^"_I,IBW=(C#2) W:'(C#2) ?41 X IBWW S Z=$S(I?1N:" ",1:" ")_J_" Data" W Z

	Q

W	F I=1:1 S J=$P(X,"^",I) Q:J=""  S Z=I,IBW=(I#2) W:'(I#2) ?42 X IBWW W " "_J

	W:'(I-1)#2 ! Q

	;IBCSCH

IBCSCH    ;ALB/MJB - MCCR HELP ROUTINE  ;03 JUN 88 15:25

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

 +4       ;MAP TO DGCRSCH

 +5       ;

 +6        SET IBH=""

           DO ^IBCSCU

           DO H^IBCSCU

           KILL IBH

           WRITE !,"Enter '^' to stop the display ",$SELECT(IBV:"",1:"and edit "),"of data,"

 +7        IF '$DATA(IBPAR)

               WRITE " '^N' to jump to screen #N (see",!,"listing below), <RET> to continue on to the next available screen"

           IF IBV

               WRITE "."

               GOTO M

 +8        WRITE " or enter",!,"the field group number(s) you wish to edit using commas and dashes as",!,"delimiters.  Those groups enclosed in brackets ""[]"" are editable while those",!,"enclosed in arrows ""<>"" are not."

M          IF $DATA(IBPAR)

               GOTO M1

           SET Z="DATA GROUPS ON SCREEN "_+IBSR

           WRITE !!

           XECUTE IBWW

           DO @(IBSR1_IBSR)

           DO W

           DO S

           WRITE !

           FOR I=$Y:1:20

               WRITE !

 +1        SET Z="PRESS <RETURN> KEY"

           XECUTE IBWW

           WRITE " to RETURN to SCREEN ",+IBSR

           READ X:DTIME

           QUIT 

M1         SET Z="DATA GROUPS ON PARAMETER SCREEN"

           WRITE !!

           XECUTE IBWW

           DO @(IBSR1_IBSR)

           DO W

           WRITE !

           FOR I=$Y:1:20

               WRITE !

 +1        SET Z="PRESS <RETURN> KEY"

           XECUTE IBWW

           WRITE " to RETURN to PARAMETER SCREEN"

           READ X:DTIME

           QUIT 

1          SET X="DOB^Alias Name^Sex, Marital Status^Veteran Status, Eligibility^Address, Temporary Address^Patient Short Billing Address^SC at Time of Care"

           QUIT 

2          SET X="Patient Employer Name, Address^Spouse Employer Name, Address"

           QUIT 

3          SET X="Payer Information^Provider Numbers^Mailing Address"

           QUIT 

4          SET X="Admission Information^Discharge Information^Diagnosis Code(s)^Coding Method, Inpt. Pro. Code(s)^Occurrence Code(s)^Condition Code(s)^Value Code(s)"

           QUIT 

5          SET X="Event Date^Outpatient Diagnosis^Outpatient Visits^Coding Method, Opt. Pro. Code(s)^Occurrence Code(s)^Condtion Code(s)"

           QUIT 

6          SET X="Bill/Rate Type, Covered and Non-Covered Days^R.O.I., Assignment of Benefits^Statement Covers Period^Bedsection, Length of Stay^Revenue Code(s), Offset, Total"

           QUIT 

7          SET X="Bill/Rate Type, Covered and Non-Covered Days^R.O.I., Assignment of Benefits^Statement Covers Period^Outpatient Visits^Revenue Code(s), Offset, Total"

           QUIT 

8          SET X="Bill Remark^Form Locator 2^Form Locator 9^Form Locator 27^Form Locator 45^Form Locator 92^Form Locator 93^Tx Auth. Code"

           QUIT 

28         SET X="Bill Remark, Tx Auth. Code, Admitting Diagnosis^Attending Physician Id., Other Physician Id.^Form Locator 2 and 11^Form Locator 31 and 377^Form Locator 56, 57, and 78"

           QUIT 

H8         SET X="Period Unable to Work^Block 31^Tx/Prior Auth. Code"

           QUIT 

PAR        SET X="Fed Tax #, BC/BS #, MAS Svc Pointer^Bill Signer, Billing Supervisor^Security Parameters, Outpatient CPT parameters ^Remarks, Mailgroups^Agent Cashier Address/Phone"

           QUIT 

S          WRITE !!

           SET Z="AVAILABLE SCREENS"

           XECUTE IBWW

 +1        SET X="Demographic^Employment^Payer^Inpatient Event^Outpatient Event^Inpatient Billing - General^Outpatient Billing - General^Billing - Specific"

 +2        SET C=0

           FOR I=1:1

               SET J=$PIECE(X,"^",I)

               IF J=""

                   QUIT 

               IF '$EXTRACT(IBVV,I)

                   SET C=C+1

                   SET Z="^"_I

                   SET IBW=(C#2)

                   IF '(C#2)

                       WRITE ?41

                   XECUTE IBWW

                   SET Z=$SELECT(I?1N:" ",1:" ")_J_" Data"

                   WRITE Z

 +3        QUIT 

W          FOR I=1:1

               SET J=$PIECE(X,"^",I)

               IF J=""

                   QUIT 

               SET Z=I

               SET IBW=(I#2)

               IF '(I#2)

                   WRITE ?42

               XECUTE IBWW

               WRITE " "_J

 +1        IF '(I-1)#2

               WRITE !

           QUIT 

 +2       ;IBCSCH