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
