Routine: IBINI09V

IBINI09V	; ; 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,.01,1,7,"%D",2,0)

	;;=when the bill is created.

	;;^DD(399,.01,1,7,"CREATE CONDITION")

	;;=FORM TYPE=""

	;;^DD(399,.01,1,7,"CREATE VALUE")

	;;=S X=$P($G(^IBE(350.9,1,1)),U,26)

	;;^DD(399,.01,1,7,"DELETE VALUE")

	;;=NO EFFECT

	;;^DD(399,.01,1,7,"DT")

	;;=2930608

	;;^DD(399,.01,1,7,"FIELD")

	;;=FORM TYPE

	;;^DD(399,.01,3)

	;;=Enter the "unique" bill number for this billing episode [6 characters].

	;;^DD(399,.01,4)

;;=

	;;^DD(399,.01,21,0)

	;;=^^8^8^2940317^^^^

	;;^DD(399,.01,21,1,0)

	;;=This is the "unique" bill number assigned to this billing episode.

	;;^DD(399,.01,21,2,0)

	;;=A bill numbers consist of 6 characters.  Beginning with MAS

	;;^DD(399,.01,21,3,0)

	;;=version 4.7 bill numbers will be determined by the Accounts Receivable

	;;^DD(399,.01,21,4,0)

	;;=module of IFCAP and returned to MCCR.  This is to provide consistency

	;;^DD(399,.01,21,5,0)

	;;=in bill numbering between the sites and CALM.  The bill numbers

	;;^DD(399,.01,21,6,0)

	;;=will be determined from entries in the AR BILL NUMBER file.  They

	;;^DD(399,.01,21,7,0)

	;;=will be in the format of PAT (Pending Account Transaction) numbers

	;;^DD(399,.01,21,8,0)

	;;=and may be used in Accounts Receivable for PAT numbers.

	;;^DD(399,.01,"DT")

	;;=2930608

	;;^DD(399,.02,0)

	;;=PATIENT NAME^RP2'I^DPT(^0;2^Q

	;;^DD(399,.02,1,0)

	;;=^.1

	;;^DD(399,.02,1,1,0)

	;;=399^C

	;;^DD(399,.02,1,1,1)

	;;=S ^DGCR(399,"C",$E(X,1,30),DA)=""

	;;^DD(399,.02,1,1,2)

	;;=K ^DGCR(399,"C",$E(X,1,30),DA)

	;;^DD(399,.02,3)

	;;=Enter the name of the patient for whom this bill is being generated.

	;;^DD(399,.02,21,0)

	;;=^^1^1^2880831^

	;;^DD(399,.02,21,1,0)

	;;=This is the name of the patient for whom this bill is being generated.

	;;^DD(399,.02,"DT")

	;;=2880526

	;;^DD(399,.03,0)

	;;=EVENT DATE^RDX^^0;3^S %DT="ETP",%DT(0)="-0" D ^%DT S X=Y K:Y<1 X I $D(X),'$D(IBNWBL) W !?4,"Event date can no longer be edited...cancel and submit a new bill if necessary." K X

	;;^DD(399,.03,1,0)

	;;=^.1

	;;^DD(399,.03,1,1,0)

	;;=399^D

	;;^DD(399,.03,1,1,1)

	;;=S ^DGCR(399,"D",$E(X,1,30),DA)=""

	;;^DD(399,.03,1,1,2)

	;;=K ^DGCR(399,"D",$E(X,1,30),DA)

	;;^DD(399,.03,1,2,0)

	;;=399^APDT^MUMPS

	;;^DD(399,.03,1,2,1)

	;;=S IBN=$P(^DGCR(399,DA,0),"^",2) S:$D(IBN) ^DGCR(399,"APDT",IBN,DA,9999999-X)="" K IBN

	;;^DD(399,.03,1,2,2)

	;;=S IBN=$P(^DGCR(399,DA,0),"^",2) I $D(IBN) K ^DGCR(399,"APDT",IBN,DA,9999999-X),IBN

	;;^DD(399,.03,1,2,"%D",0)

	;;=^^1^1^2940214^^

	;;^DD(399,.03,1,2,"%D",1,0)

	;;=Cross-reference of bills by patient and event date.

	;;^DD(399,.03,1,3,0)

	;;=399^ABNDT^MUMPS

	;;^DD(399,.03,1,3,1)

	;;=S ^DGCR(399,"ABNDT",DA,9999999-X)=""

	;;^DD(399,.03,1,3,2)

	;;=K ^DGCR(399,"ABNDT",DA,9999999-X)

	;;^DD(399,.03,1,3,"%D",0)

	;;=^^1^1^2940214^

	;;^DD(399,.03,1,3,"%D",1,0)

	;;=Cross-reference of bills by inverse event date.

	;;^DD(399,.03,3)

	;;=Enter the date of admission for inpatient episodes of care. For outpatient visits, enter the date of the initial outpatient visit.

	;;^DD(399,.03,21,0)

	;;=^^3^3^2940214^^

	;;^DD(399,.03,21,1,0)

	;;=This is the date on which care was originated. For inpatient episodes of

	;;^DD(399,.03,21,2,0)

	;;=care, this is the admission date. For outpatient visits, this is the date

	;;^DD(399,.03,21,3,0)

	;;=of the initial outpatient visit.

	;;^DD(399,.03,"DT")

	;;=2920220

	;;^DD(399,.04,0)

	;;=LOCATION OF CARE^RS^1:HOSPITAL (INCLUDES CLINIC) - INPT. OR OPT.;2:SKILLED NURSING (NHCU);7:CLINIC (WHEN INDEPENDENT OR SATELLITE);^0;4^Q

	;;^DD(399,.04,.1)

	;;=TYPE OF BILL (1ST DIGIT)

	;;^DD(399,.04,3)

	;;=Enter the code which identifies the type of facility at which care was administered.

IBINI09V  ; ; 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,.01,1,7,"%D",2,0)

 +2       ;;=when the bill is created.

 +3       ;;^DD(399,.01,1,7,"CREATE CONDITION")

 +4       ;;=FORM TYPE=""

 +5       ;;^DD(399,.01,1,7,"CREATE VALUE")

 +6       ;;=S X=$P($G(^IBE(350.9,1,1)),U,26)

 +7       ;;^DD(399,.01,1,7,"DELETE VALUE")

 +8       ;;=NO EFFECT

 +9       ;;^DD(399,.01,1,7,"DT")

 +10      ;;=2930608

 +11      ;;^DD(399,.01,1,7,"FIELD")

 +12      ;;=FORM TYPE

 +13      ;;^DD(399,.01,3)

 +14      ;;=Enter the "unique" bill number for this billing episode [6 characters].

 +15      ;;^DD(399,.01,4)

 +16      ;;=

 +17      ;;^DD(399,.01,21,0)

 +18      ;;=^^8^8^2940317^^^^

 +19      ;;^DD(399,.01,21,1,0)

 +20      ;;=This is the "unique" bill number assigned to this billing episode.

 +21      ;;^DD(399,.01,21,2,0)

 +22      ;;=A bill numbers consist of 6 characters.  Beginning with MAS

 +23      ;;^DD(399,.01,21,3,0)

 +24      ;;=version 4.7 bill numbers will be determined by the Accounts Receivable

 +25      ;;^DD(399,.01,21,4,0)

 +26      ;;=module of IFCAP and returned to MCCR.  This is to provide consistency

 +27      ;;^DD(399,.01,21,5,0)

 +28      ;;=in bill numbering between the sites and CALM.  The bill numbers

 +29      ;;^DD(399,.01,21,6,0)

 +30      ;;=will be determined from entries in the AR BILL NUMBER file.  They

 +31      ;;^DD(399,.01,21,7,0)

 +32      ;;=will be in the format of PAT (Pending Account Transaction) numbers

 +33      ;;^DD(399,.01,21,8,0)

 +34      ;;=and may be used in Accounts Receivable for PAT numbers.

 +35      ;;^DD(399,.01,"DT")

 +36      ;;=2930608

 +37      ;;^DD(399,.02,0)

 +38      ;;=PATIENT NAME^RP2'I^DPT(^0;2^Q

 +39      ;;^DD(399,.02,1,0)

 +40      ;;=^.1

 +41      ;;^DD(399,.02,1,1,0)

 +42      ;;=399^C

 +43      ;;^DD(399,.02,1,1,1)

 +44      ;;=S ^DGCR(399,"C",$E(X,1,30),DA)=""

 +45      ;;^DD(399,.02,1,1,2)

 +46      ;;=K ^DGCR(399,"C",$E(X,1,30),DA)

 +47      ;;^DD(399,.02,3)

 +48      ;;=Enter the name of the patient for whom this bill is being generated.

 +49      ;;^DD(399,.02,21,0)

 +50      ;;=^^1^1^2880831^

 +51      ;;^DD(399,.02,21,1,0)

 +52      ;;=This is the name of the patient for whom this bill is being generated.

 +53      ;;^DD(399,.02,"DT")

 +54      ;;=2880526

 +55      ;;^DD(399,.03,0)

 +56      ;;=EVENT DATE^RDX^^0;3^S %DT="ETP",%DT(0)="-0" D ^%DT S X=Y K:Y<1 X I $D(X),'$D(IBNWBL) W !?4,"Event date can no longer be edited...cancel and submit a new bill if necessary." K X

 +57      ;;^DD(399,.03,1,0)

 +58      ;;=^.1

 +59      ;;^DD(399,.03,1,1,0)

 +60      ;;=399^D

 +61      ;;^DD(399,.03,1,1,1)

 +62      ;;=S ^DGCR(399,"D",$E(X,1,30),DA)=""

 +63      ;;^DD(399,.03,1,1,2)

 +64      ;;=K ^DGCR(399,"D",$E(X,1,30),DA)

 +65      ;;^DD(399,.03,1,2,0)

 +66      ;;=399^APDT^MUMPS

 +67      ;;^DD(399,.03,1,2,1)

 +68      ;;=S IBN=$P(^DGCR(399,DA,0),"^",2) S:$D(IBN) ^DGCR(399,"APDT",IBN,DA,9999999-X)="" K IBN

 +69      ;;^DD(399,.03,1,2,2)

 +70      ;;=S IBN=$P(^DGCR(399,DA,0),"^",2) I $D(IBN) K ^DGCR(399,"APDT",IBN,DA,9999999-X),IBN

 +71      ;;^DD(399,.03,1,2,"%D",0)

 +72      ;;=^^1^1^2940214^^

 +73      ;;^DD(399,.03,1,2,"%D",1,0)

 +74      ;;=Cross-reference of bills by patient and event date.

 +75      ;;^DD(399,.03,1,3,0)

 +76      ;;=399^ABNDT^MUMPS

 +77      ;;^DD(399,.03,1,3,1)

 +78      ;;=S ^DGCR(399,"ABNDT",DA,9999999-X)=""

 +79      ;;^DD(399,.03,1,3,2)

 +80      ;;=K ^DGCR(399,"ABNDT",DA,9999999-X)

 +81      ;;^DD(399,.03,1,3,"%D",0)

 +82      ;;=^^1^1^2940214^

 +83      ;;^DD(399,.03,1,3,"%D",1,0)

 +84      ;;=Cross-reference of bills by inverse event date.

 +85      ;;^DD(399,.03,3)

 +86      ;;=Enter the date of admission for inpatient episodes of care. For outpatient visits, enter the date of the initial outpatient visit.

 +87      ;;^DD(399,.03,21,0)

 +88      ;;=^^3^3^2940214^^

 +89      ;;^DD(399,.03,21,1,0)

 +90      ;;=This is the date on which care was originated. For inpatient episodes of

 +91      ;;^DD(399,.03,21,2,0)

 +92      ;;=care, this is the admission date. For outpatient visits, this is the date

 +93      ;;^DD(399,.03,21,3,0)

 +94      ;;=of the initial outpatient visit.

 +95      ;;^DD(399,.03,"DT")

 +96      ;;=2920220

 +97      ;;^DD(399,.04,0)

 +98      ;;=LOCATION OF CARE^RS^1:HOSPITAL (INCLUDES CLINIC) - INPT. OR OPT.;2:SKILLED NURSING (NHCU);7:CLINIC (WHEN INDEPENDENT OR SATELLITE);^0;4^Q

 +99      ;;^DD(399,.04,.1)

 +100     ;;=TYPE OF BILL (1ST DIGIT)

 +101     ;;^DD(399,.04,3)

 +102     ;;=Enter the code which identifies the type of facility at which care was administered.

IBINI09V.m