Routine: IBINI0AI

IBINI0AI	; ; 21-MAR-1994

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

	Q:'DIFQ(399)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q	Q

	;;^DD(399,155,2)

	;;=S Y(0)=Y S Y=$S(Y:"YES",Y=0:"NO",1:"")

	;;^DD(399,155,2.1)

	;;=S Y=$S(Y:"YES",Y=0:"NO",1:"")

	;;^DD(399,155,3)

	;;=Enter 'Yes' or '1' if this record contains sensitive information pertaining  to, but not limited to, drugs, alcohol, and/or sickle cell anemia, 'No' or '0'  if it does not.

	;;^DD(399,155,21,0)

	;;=^^3^3^2880921^^

	;;^DD(399,155,21,1,0)

	;;=This indicates whether or not this record contains information pertaining

	;;^DD(399,155,21,2,0)

	;;=to, but not limited to, drugs, alcohol, or sickle cell anemia, and if so,

	;;^DD(399,155,21,3,0)

	;;=allows the user to identify this record as "sensitive".

	;;^DD(399,155,"DT")

	;;=2880607

	;;^DD(399,156,0)

	;;=ASSIGNMENT OF BENEFITS^RFOX^^U;6^I $D(X) D YN^IBCU I $D(X) X:X=0 ^DD(399,156,9.3) K IBRATY

	;;^DD(399,156,2)

	;;=S Y(0)=Y S Y=$S(Y:"YES",Y=0:"NO",1:"")

	;;^DD(399,156,2.1)

	;;=S Y=$S(Y:"YES",Y=0:"NO",1:"")

	;;^DD(399,156,3)

	;;=Enter the code which indicates whether or not a third party is authorized to pay the provider for services covered by this bill.

	;;^DD(399,156,5,1,0)

	;;=399^.07^1

	;;^DD(399,156,9.3)

	;;=S IBRATY=$P(^DGCR(399,DA,0),"^",7) I $D(^DGCR(399.3,IBRATY,0)),$P(^(0),"^",5)=1 K X W !?4,"Answer must be YES for this 'Third Party' billing episode!",*7

	;;^DD(399,156,21,0)

	;;=^^2^2^2880901^

	;;^DD(399,156,21,1,0)

	;;=This indicates whether or not a third party is authorized to pay the

	;;^DD(399,156,21,2,0)

	;;=provider for services covered by this bill.

	;;^DD(399,156,"DT")

	;;=2881025

	;;^DD(399,157,0)

	;;=R.O.I. FORM(S) COMPLETED?^FOX^^U;7^I $D(X) D YN^IBCU

	;;^DD(399,157,2)

	;;=S Y(0)=Y S Y=$S(Y:"YES",Y=0:"NO",1:"")

	;;^DD(399,157,2.1)

	;;=S Y=$S(Y:"YES",Y=0:"NO",1:"")

	;;^DD(399,157,3)

	;;=Enter 'Yes' or '1' if Release Of Information form(s) are completed, 'No' or '0' if Release Of Information form(s) are not completed.

	;;^DD(399,157,21,0)

	;;=^^2^2^2880901^

	;;^DD(399,157,21,1,0)

	;;=This allows the user to indicate if the Release of Information forms (if

	;;^DD(399,157,21,2,0)

	;;=necessary) have been signed.

	;;^DD(399,157,"DT")

	;;=2880607

	;;^DD(399,158,0)

	;;=TYPE OF ADMISSION^S^1:EMERGENCY;2:URGENT;3:ELECTIVE;^U;8^Q

	;;^DD(399,158,3)

	;;=Enter a code indicating the priority of this admission.

	;;^DD(399,158,5,1,0)

	;;=399^.08^2

	;;^DD(399,158,21,0)

	;;=^^1^1^2880901^

	;;^DD(399,158,21,1,0)

	;;=This indicates the priority of this admission.

	;;^DD(399,158,"DT")

	;;=2880523

	;;^DD(399,159,0)

	;;~SOURCE OF ADMISSION^S^1:PHYSICIAN REFERRAL;2:CLINIC REFERRAL;3:HMO REFERRAL;4:TRANSFER FROM HOSPITAL;5:TRANSFER FROM SKILLED NURSING FAC.;6:TRANSFER FROM OTHER

	;;=HEALTH CARE FAC.;7:EMERGENCY ROOM;8:COURT/LAW ENFORCEMENT;9:INFO NOT AVAILABLE;^U;9^Q

	;;^DD(399,159,3)

	;;=Enter the code which indicates the source of this admission.

	;;^DD(399,159,5,1,0)

	;;=399^.08^1

	;;^DD(399,159,21,0)

	;;=^^1^1^2890405^^^

	;;^DD(399,159,21,1,0)

	;;=This indicates the source of this admission.

	;;^DD(399,159,"DT")

	;;=2890403

	;;^DD(399,160,0)

	;;=ACCIDENT HOUR^F^^U;10^K:$L(X)>3!($L(X)<1) X

	;;^DD(399,160,3)

	;;=Enter the time at which an accident took place if this bill is related to an accident.

	;;^DD(399,160,5,1,0)

	;;=399^.08^3

	;;^DD(399,160,21,0)

	;;=^^2^2^2880901^

	;;^DD(399,160,21,1,0)

	;;=This indicates the time at which an accident occurred if this episode

	;;^DD(399,160,21,2,0)

	;;=of care is related to an accident.

	;;^DD(399,160,"DT")

	;;=2880523

	;;^DD(399,161,0)

	;;=DISCHARGE BEDSECTION^*P399.1'^DGCR(399.1,^U;11^S DIC("S")="I $P(^DGCR(399.1,+Y,0),""^"",5)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X

IBINI0AI  ; ; 21-MAR-1994

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

 +2        IF 'DIFQ(399)

               QUIT

           FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT

 +1       ;;^DD(399,155,2)

 +2       ;;=S Y(0)=Y S Y=$S(Y:"YES",Y=0:"NO",1:"")

 +3       ;;^DD(399,155,2.1)

 +4       ;;=S Y=$S(Y:"YES",Y=0:"NO",1:"")

 +5       ;;^DD(399,155,3)

 +6       ;;=Enter 'Yes' or '1' if this record contains sensitive information pertaining  to, but not limited to, drugs, alcohol, and/or sickle cell anemia, 'No' or '0'  if it does not.

 +7       ;;^DD(399,155,21,0)

 +8       ;;=^^3^3^2880921^^

 +9       ;;^DD(399,155,21,1,0)

 +10      ;;=This indicates whether or not this record contains information pertaining

 +11      ;;^DD(399,155,21,2,0)

 +12      ;;=to, but not limited to, drugs, alcohol, or sickle cell anemia, and if so,

 +13      ;;^DD(399,155,21,3,0)

 +14      ;;=allows the user to identify this record as "sensitive".

 +15      ;;^DD(399,155,"DT")

 +16      ;;=2880607

 +17      ;;^DD(399,156,0)

 +18      ;;=ASSIGNMENT OF BENEFITS^RFOX^^U;6^I $D(X) D YN^IBCU I $D(X) X:X=0 ^DD(399,156,9.3) K IBRATY

 +19      ;;^DD(399,156,2)

 +20      ;;=S Y(0)=Y S Y=$S(Y:"YES",Y=0:"NO",1:"")

 +21      ;;^DD(399,156,2.1)

 +22      ;;=S Y=$S(Y:"YES",Y=0:"NO",1:"")

 +23      ;;^DD(399,156,3)

 +24      ;;=Enter the code which indicates whether or not a third party is authorized to pay the provider for services covered by this bill.

 +25      ;;^DD(399,156,5,1,0)

 +26      ;;=399^.07^1

 +27      ;;^DD(399,156,9.3)

 +28      ;;=S IBRATY=$P(^DGCR(399,DA,0),"^",7) I $D(^DGCR(399.3,IBRATY,0)),$P(^(0),"^",5)=1 K X W !?4,"Answer must be YES for this 'Third Party' billing episode!",*7

 +29      ;;^DD(399,156,21,0)

 +30      ;;=^^2^2^2880901^

 +31      ;;^DD(399,156,21,1,0)

 +32      ;;=This indicates whether or not a third party is authorized to pay the

 +33      ;;^DD(399,156,21,2,0)

 +34      ;;=provider for services covered by this bill.

 +35      ;;^DD(399,156,"DT")

 +36      ;;=2881025

 +37      ;;^DD(399,157,0)

 +38      ;;=R.O.I. FORM(S) COMPLETED?^FOX^^U;7^I $D(X) D YN^IBCU

 +39      ;;^DD(399,157,2)

 +40      ;;=S Y(0)=Y S Y=$S(Y:"YES",Y=0:"NO",1:"")

 +41      ;;^DD(399,157,2.1)

 +42      ;;=S Y=$S(Y:"YES",Y=0:"NO",1:"")

 +43      ;;^DD(399,157,3)

 +44      ;;=Enter 'Yes' or '1' if Release Of Information form(s) are completed, 'No' or '0' if Release Of Information form(s) are not completed.

 +45      ;;^DD(399,157,21,0)

 +46      ;;=^^2^2^2880901^

 +47      ;;^DD(399,157,21,1,0)

 +48      ;;=This allows the user to indicate if the Release of Information forms (if

 +49      ;;^DD(399,157,21,2,0)

 +50      ;;=necessary) have been signed.

 +51      ;;^DD(399,157,"DT")

 +52      ;;=2880607

 +53      ;;^DD(399,158,0)

 +54      ;;=TYPE OF ADMISSION^S^1:EMERGENCY;2:URGENT;3:ELECTIVE;^U;8^Q

 +55      ;;^DD(399,158,3)

 +56      ;;=Enter a code indicating the priority of this admission.

 +57      ;;^DD(399,158,5,1,0)

 +58      ;;=399^.08^2

 +59      ;;^DD(399,158,21,0)

 +60      ;;=^^1^1^2880901^

 +61      ;;^DD(399,158,21,1,0)

 +62      ;;=This indicates the priority of this admission.

 +63      ;;^DD(399,158,"DT")

 +64      ;;=2880523

 +65      ;;^DD(399,159,0)

 +66      ;;~SOURCE OF ADMISSION^S^1:PHYSICIAN REFERRAL;2:CLINIC REFERRAL;3:HMO REFERRAL;4:TRANSFER FROM HOSPITAL;5:TRANSFER FROM SKILLED NURSING FAC.;6:TRANSFER FROM OTHER

 +67      ;;=HEALTH CARE FAC.;7:EMERGENCY ROOM;8:COURT/LAW ENFORCEMENT;9:INFO NOT AVAILABLE;^U;9^Q

 +68      ;;^DD(399,159,3)

 +69      ;;=Enter the code which indicates the source of this admission.

 +70      ;;^DD(399,159,5,1,0)

 +71      ;;=399^.08^1

 +72      ;;^DD(399,159,21,0)

 +73      ;;=^^1^1^2890405^^^

 +74      ;;^DD(399,159,21,1,0)

 +75      ;;=This indicates the source of this admission.

 +76      ;;^DD(399,159,"DT")

 +77      ;;=2890403

 +78      ;;^DD(399,160,0)

 +79      ;;=ACCIDENT HOUR^F^^U;10^K:$L(X)>3!($L(X)<1) X

 +80      ;;^DD(399,160,3)

 +81      ;;=Enter the time at which an accident took place if this bill is related to an accident.

 +82      ;;^DD(399,160,5,1,0)

 +83      ;;=399^.08^3

 +84      ;;^DD(399,160,21,0)

 +85      ;;=^^2^2^2880901^

 +86      ;;^DD(399,160,21,1,0)

 +87      ;;=This indicates the time at which an accident occurred if this episode

 +88      ;;^DD(399,160,21,2,0)

 +89      ;;=of care is related to an accident.

 +90      ;;^DD(399,160,"DT")

 +91      ;;=2880523

 +92      ;;^DD(399,161,0)

 +93      ;;=DISCHARGE BEDSECTION^*P399.1'^DGCR(399.1,^U;11^S DIC("S")="I $P(^DGCR(399.1,+Y,0),""^"",5)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X

IBINI0AI.m