Routine: IBINI01M

IBINI01M	; ; 21-MAR-1994

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

	Q:'DIFQ(350.21)  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

	;;^DIC(350.21,0,"GL")

	;;=^IBE(350.21,

	;;^DIC("B","IB ACTION STATUS",350.21)

;;=

	;;^DIC(350.21,"%D",0)

	;;=^^20^20^2940214^^^

	;;^DIC(350.21,"%D",1,0)

	;;=This new file for Integrated Billing version 2.0 has been implemented

	;;^DIC(350.21,"%D",2,0)

	;;=to replace the set of codes for the STATUS (#.05) field of the

	;;^DIC(350.21,"%D",3,0)

	;;=INTEGRATED BILLING ACTION (#350) file.  The file holds new statuses

	;;^DIC(350.21,"%D",4,0)

	;;=which are introduced in v2.0, display and abbreviated names for the

	;;^DIC(350.21,"%D",5,0)

	;;=status, and classification-type fields for each status which is

	;;^DIC(350.21,"%D",6,0)

	;;=used for processing in the Integrated Billing module.

	;;^DIC(350.21,"%D",7,0)

;;=

	;;^DIC(350.21,"%D",8,0)

	;;=To convert to the use of this new file, it was necessary to change

	;;^DIC(350.21,"%D",9,0)

	;;=the field type of the STATUS field from a "set-of-codes" field to

	;;^DIC(350.21,"%D",10,0)

	;;=a pointer field (pointing to this file).  Thus, the internal entry

	;;^DIC(350.21,"%D",11,0)

	;;=numbers for the statuses in this file MUST MATCH the codes established

	;;^DIC(350.21,"%D",12,0)

	;;=for the statuses in the old set-of-codes definition.  The entries in this

	;;^DIC(350.21,"%D",13,0)

	;;=file will be precisely set in the IB version 2.0 post initialization.

	;;^DIC(350.21,"%D",14,0)

;;=

	;;^DIC(350.21,"%D",15,0)

	;;=ENTRIES IN THIS FILE SHOULD NOT BE EDITED OR DELETED.  IF YOU LOSE

	;;^DIC(350.21,"%D",16,0)

	;;=ENTRIES IN THIS FILE DUE TO SYSTEM FAILURE, THEY MUST BE RE-SET USING

	;;^DIC(350.21,"%D",17,0)

	;;=THE CORRECT INTERNAL ENTRY NUMBERS.  If you have any questions about

	;;^DIC(350.21,"%D",18,0)

	;;=re-setting entries in this file, please contact your supporting ISC.

	;;^DIC(350.21,"%D",19,0)

;;=

	;;^DIC(350.21,"%D",20,0)

	;;=Per VHA Directive 10-93-142, this file definition should not be modified.

	;;^DD(350.21,0)

	;;=FIELD^^.06^6

	;;^DD(350.21,0,"DDA")

	;;=N

	;;^DD(350.21,0,"DT")

	;;=2930810

	;;^DD(350.21,0,"IX","B",350.21,.01)

;;=

	;;^DD(350.21,0,"NM","IB ACTION STATUS")

;;=

	;;^DD(350.21,0,"PT",350,.05)

;;=

	;;^DD(350.21,.01,0)

	;;=STATUS^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X

	;;^DD(350.21,.01,1,0)

	;;=^.1

	;;^DD(350.21,.01,1,1,0)

	;;=350.21^B

	;;^DD(350.21,.01,1,1,1)

	;;=S ^IBE(350.21,"B",$E(X,1,30),DA)=""

	;;^DD(350.21,.01,1,1,2)

	;;=K ^IBE(350.21,"B",$E(X,1,30),DA)

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

	;;=Answer must be 3-30 characters in length.

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

	;;=^^5^5^2930810^

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

	;;=The value of the STATUS field matches the name of the code from

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

	;;=STATUS (#.05) field of the INTEGRATED BILLING ACTION (#350) file

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

	;;=prior to Integrated Billing version 2.0.

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

;;=

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

	;;=This field should not be edited!

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

	;;=2930810

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

	;;=PRINT NAME^F^^0;2^K:$L(X)>25!($L(X)<3) X

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

	;;=Answer must be 3-25 characters in length.

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

	;;=^^2^2^2930810^

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

	;;=This field contains a displayable status name which may be used

	;;^DD(350.21,.02,21,2,0)

	;;=in reports.

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

	;;=2930810

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

	;;=ABBREVIATION^F^^0;3^K:$L(X)>8!($L(X)<2) X

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

	;;=Answer must be 2-8 characters in length.

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

	;;=^^2^2^2930810^

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

	;;=The abbreviation is a short-hand notation for the status which may

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

	;;=be used for display in space-limited outputs.

IBINI01M  ; ; 21-MAR-1994

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

 +2        IF 'DIFQ(350.21)

               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       ;;^DIC(350.21,0,"GL")

 +2       ;;=^IBE(350.21,

 +3       ;;^DIC("B","IB ACTION STATUS",350.21)

 +4       ;;=

 +5       ;;^DIC(350.21,"%D",0)

 +6       ;;=^^20^20^2940214^^^

 +7       ;;^DIC(350.21,"%D",1,0)

 +8       ;;=This new file for Integrated Billing version 2.0 has been implemented

 +9       ;;^DIC(350.21,"%D",2,0)

 +10      ;;=to replace the set of codes for the STATUS (#.05) field of the

 +11      ;;^DIC(350.21,"%D",3,0)

 +12      ;;=INTEGRATED BILLING ACTION (#350) file.  The file holds new statuses

 +13      ;;^DIC(350.21,"%D",4,0)

 +14      ;;=which are introduced in v2.0, display and abbreviated names for the

 +15      ;;^DIC(350.21,"%D",5,0)

 +16      ;;=status, and classification-type fields for each status which is

 +17      ;;^DIC(350.21,"%D",6,0)

 +18      ;;=used for processing in the Integrated Billing module.

 +19      ;;^DIC(350.21,"%D",7,0)

 +20      ;;=

 +21      ;;^DIC(350.21,"%D",8,0)

 +22      ;;=To convert to the use of this new file, it was necessary to change

 +23      ;;^DIC(350.21,"%D",9,0)

 +24      ;;=the field type of the STATUS field from a "set-of-codes" field to

 +25      ;;^DIC(350.21,"%D",10,0)

 +26      ;;=a pointer field (pointing to this file).  Thus, the internal entry

 +27      ;;^DIC(350.21,"%D",11,0)

 +28      ;;=numbers for the statuses in this file MUST MATCH the codes established

 +29      ;;^DIC(350.21,"%D",12,0)

 +30      ;;=for the statuses in the old set-of-codes definition.  The entries in this

 +31      ;;^DIC(350.21,"%D",13,0)

 +32      ;;=file will be precisely set in the IB version 2.0 post initialization.

 +33      ;;^DIC(350.21,"%D",14,0)

 +34      ;;=

 +35      ;;^DIC(350.21,"%D",15,0)

 +36      ;;=ENTRIES IN THIS FILE SHOULD NOT BE EDITED OR DELETED.  IF YOU LOSE

 +37      ;;^DIC(350.21,"%D",16,0)

 +38      ;;=ENTRIES IN THIS FILE DUE TO SYSTEM FAILURE, THEY MUST BE RE-SET USING

 +39      ;;^DIC(350.21,"%D",17,0)

 +40      ;;=THE CORRECT INTERNAL ENTRY NUMBERS.  If you have any questions about

 +41      ;;^DIC(350.21,"%D",18,0)

 +42      ;;=re-setting entries in this file, please contact your supporting ISC.

 +43      ;;^DIC(350.21,"%D",19,0)

 +44      ;;=

 +45      ;;^DIC(350.21,"%D",20,0)

 +46      ;;=Per VHA Directive 10-93-142, this file definition should not be modified.

 +47      ;;^DD(350.21,0)

 +48      ;;=FIELD^^.06^6

 +49      ;;^DD(350.21,0,"DDA")

 +50      ;;=N

 +51      ;;^DD(350.21,0,"DT")

 +52      ;;=2930810

 +53      ;;^DD(350.21,0,"IX","B",350.21,.01)

 +54      ;;=

 +55      ;;^DD(350.21,0,"NM","IB ACTION STATUS")

 +56      ;;=

 +57      ;;^DD(350.21,0,"PT",350,.05)

 +58      ;;=

 +59      ;;^DD(350.21,.01,0)

 +60      ;;=STATUS^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X

 +61      ;;^DD(350.21,.01,1,0)

 +62      ;;=^.1

 +63      ;;^DD(350.21,.01,1,1,0)

 +64      ;;=350.21^B

 +65      ;;^DD(350.21,.01,1,1,1)

 +66      ;;=S ^IBE(350.21,"B",$E(X,1,30),DA)=""

 +67      ;;^DD(350.21,.01,1,1,2)

 +68      ;;=K ^IBE(350.21,"B",$E(X,1,30),DA)

 +69      ;;^DD(350.21,.01,3)

 +70      ;;=Answer must be 3-30 characters in length.

 +71      ;;^DD(350.21,.01,21,0)

 +72      ;;=^^5^5^2930810^

 +73      ;;^DD(350.21,.01,21,1,0)

 +74      ;;=The value of the STATUS field matches the name of the code from

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

 +76      ;;=STATUS (#.05) field of the INTEGRATED BILLING ACTION (#350) file

 +77      ;;^DD(350.21,.01,21,3,0)

 +78      ;;=prior to Integrated Billing version 2.0.

 +79      ;;^DD(350.21,.01,21,4,0)

 +80      ;;=

 +81      ;;^DD(350.21,.01,21,5,0)

 +82      ;;=This field should not be edited!

 +83      ;;^DD(350.21,.01,"DT")

 +84      ;;=2930810

 +85      ;;^DD(350.21,.02,0)

 +86      ;;=PRINT NAME^F^^0;2^K:$L(X)>25!($L(X)<3) X

 +87      ;;^DD(350.21,.02,3)

 +88      ;;=Answer must be 3-25 characters in length.

 +89      ;;^DD(350.21,.02,21,0)

 +90      ;;=^^2^2^2930810^

 +91      ;;^DD(350.21,.02,21,1,0)

 +92      ;;=This field contains a displayable status name which may be used

 +93      ;;^DD(350.21,.02,21,2,0)

 +94      ;;=in reports.

 +95      ;;^DD(350.21,.02,"DT")

 +96      ;;=2930810

 +97      ;;^DD(350.21,.03,0)

 +98      ;;=ABBREVIATION^F^^0;3^K:$L(X)>8!($L(X)<2) X

 +99      ;;^DD(350.21,.03,3)

 +100     ;;=Answer must be 2-8 characters in length.

 +101     ;;^DD(350.21,.03,21,0)

 +102     ;;=^^2^2^2930810^

 +103     ;;^DD(350.21,.03,21,1,0)

 +104     ;;=The abbreviation is a short-hand notation for the status which may

 +105     ;;^DD(350.21,.03,21,2,0)

 +106     ;;=be used for display in space-limited outputs.

IBINI01M.m