IBINI06J ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(356.4) 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(356.4,0,"GL")
;;=^IBE(356.4,
;;^DIC("B","CLAIMS TRACKING NON-ACUTE CLASSIFICATIONS",356.4)
;;=
;;^DIC(356.4,"%D",0)
;;=^^7^7^2940214^^^
;;^DIC(356.4,"%D",1,0)
;;=This file contains the list of approved non-acute classifications provided
;;^DIC(356.4,"%D",2,0)
;;=by the UM office in VACO. The codes are used in roll up of national data
;;^DIC(356.4,"%D",3,0)
;;=
;;^DIC(356.4,"%D",4,0)
;;=Do NOT add, edit, or delete entries in this file without instructions
;;^DIC(356.4,"%D",5,0)
;;=from your ISC.
;;^DIC(356.4,"%D",6,0)
;;=
;;^DIC(356.4,"%D",7,0)
;;=Per VHA Directive 10-93-142, this file definition should not be modified.
;;^DD(356.4,0)
;;=FIELD^^10^5
;;^DD(356.4,0,"DT")
;;=2931029
;;^DD(356.4,0,"ID",.02)
;;=W " ",$P(^(0),U,2)
;;^DD(356.4,0,"ID",.04)
;;=W " ",@("$P($P($C(59)_$S($D(^DD(356.4,.04,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,4)_"":"",2),$C(59),1)")
;;^DD(356.4,0,"IX","B",356.4,.01)
;;=
;;^DD(356.4,0,"IX","C",356.4,.02)
;;=
;;^DD(356.4,0,"IX","D",356.4,.04)
;;=
;;^DD(356.4,0,"NM","CLAIMS TRACKING NON-ACUTE CLASSIFICATIONS")
;;=
;;^DD(356.4,0,"PT",356.112,.01)
;;=
;;^DD(356.4,0,"PT",356.113,.01)
;;=
;;^DD(356.4,.01,0)
;;=SHORT NAME^RF^^0;1^K:$L(X)>80!($L(X)<3) X
;;^DD(356.4,.01,1,0)
;;=^.1
;;^DD(356.4,.01,1,1,0)
;;=356.4^B
;;^DD(356.4,.01,1,1,1)
;;=S ^IBE(356.4,"B",$E(X,1,30),DA)=""
;;^DD(356.4,.01,1,1,2)
;;=K ^IBE(356.4,"B",$E(X,1,30),DA)
;;^DD(356.4,.01,3)
;;=Answer must be 3-80 characters in length.
;;^DD(356.4,.01,21,0)
;;=^^2^2^2930715^^^
;;^DD(356.4,.01,21,1,0)
;;=This is the first 30-60 characters of the description of the non-acute
;;^DD(356.4,.01,21,2,0)
;;=classification.
;;^DD(356.4,.01,"DT")
;;=2940201
;;^DD(356.4,.02,0)
;;=CODE^RFI^^0;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<4)!'(X?1.2N1"."2N) X
;;^DD(356.4,.02,1,0)
;;=^.1
;;^DD(356.4,.02,1,1,0)
;;=356.4^C
;;^DD(356.4,.02,1,1,1)
;;=S ^IBE(356.4,"C",$E(X,1,30),DA)=""
;;^DD(356.4,.02,1,1,2)
;;=K ^IBE(356.4,"C",$E(X,1,30),DA)
;;^DD(356.4,.02,1,1,"DT")
;;=2930715
;;^DD(356.4,.02,3)
;;=Enter the unique code for this factor in the format of nn.nn or n.nn where n is any number.
;;^DD(356.4,.02,21,0)
;;=^^3^3^2940213^^^^
;;^DD(356.4,.02,21,1,0)
;;=This is the external reference number by which this data is
;;^DD(356.4,.02,21,2,0)
;;=uniquely known. This is the value that will be transmitted
;;^DD(356.4,.02,21,3,0)
;;=in the national roll up.
;;^DD(356.4,.02,"DT")
;;=2931014
;;^DD(356.4,.04,0)
;;=FACTOR^SI^1:SOCIAL FACTORS;2:ENVIRONMENTAL FACTORS;3:SCHEDULING;4:BED/SERVICE AVAILIBILITY;5:PRACTITIONER FACTOR;6:ADMINISTRATIVE;7:COMMUNICATION PROBLEMS;8:OTHER;^0;4^Q
;;^DD(356.4,.04,1,0)
;;=^.1
;;^DD(356.4,.04,1,1,0)
;;=356.4^D
;;^DD(356.4,.04,1,1,1)
;;=S ^IBE(356.4,"D",$E(X,1,30),DA)=""
;;^DD(356.4,.04,1,1,2)
;;=K ^IBE(356.4,"D",$E(X,1,30),DA)
;;^DD(356.4,.04,1,1,"DT")
;;=2930715
;;^DD(356.4,.04,21,0)
;;=^^1^1^2931029^^
;;^DD(356.4,.04,21,1,0)
;;=Enter the name of the factor that best describes this classification.
;;^DD(356.4,.04,"DT")
;;=2931220
;;^DD(356.4,.05,0)
;;=DAY OR ADMISSION^SI^1:ADMISSION (NON-ACUTE);2:DAY(S) OF CARE (NON ACUTE);^0;5^Q
;;^DD(356.4,.05,21,0)
;;=^^2^2^2930715^
;;^DD(356.4,.05,21,1,0)
;;=Enter whether this classification for not meeting criteria is for
;;^DD(356.4,.05,21,2,0)
;;=admissions or days of care.
;;^DD(356.4,.05,"DT")
;;=2931220
;;^DD(356.4,10,0)
;;=REASON^356.41^^1;0
;;^DD(356.4,10,21,0)
;;=^^1^1^2940213^
;;^DD(356.4,10,21,1,0)
;;=This is the long description of the non-acute classification.
IBINI06J ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(356.4)
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(356.4,0,"GL")
+2 ;;=^IBE(356.4,
+3 ;;^DIC("B","CLAIMS TRACKING NON-ACUTE CLASSIFICATIONS",356.4)
+4 ;;=
+5 ;;^DIC(356.4,"%D",0)
+6 ;;=^^7^7^2940214^^^
+7 ;;^DIC(356.4,"%D",1,0)
+8 ;;=This file contains the list of approved non-acute classifications provided
+9 ;;^DIC(356.4,"%D",2,0)
+10 ;;=by the UM office in VACO. The codes are used in roll up of national data
+11 ;;^DIC(356.4,"%D",3,0)
+12 ;;=
+13 ;;^DIC(356.4,"%D",4,0)
+14 ;;=Do NOT add, edit, or delete entries in this file without instructions
+15 ;;^DIC(356.4,"%D",5,0)
+16 ;;=from your ISC.
+17 ;;^DIC(356.4,"%D",6,0)
+18 ;;=
+19 ;;^DIC(356.4,"%D",7,0)
+20 ;;=Per VHA Directive 10-93-142, this file definition should not be modified.
+21 ;;^DD(356.4,0)
+22 ;;=FIELD^^10^5
+23 ;;^DD(356.4,0,"DT")
+24 ;;=2931029
+25 ;;^DD(356.4,0,"ID",.02)
+26 ;;=W " ",$P(^(0),U,2)
+27 ;;^DD(356.4,0,"ID",.04)
+28 ;;=W " ",@("$P($P($C(59)_$S($D(^DD(356.4,.04,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,4)_"":"",2),$C(59),1)")
+29 ;;^DD(356.4,0,"IX","B",356.4,.01)
+30 ;;=
+31 ;;^DD(356.4,0,"IX","C",356.4,.02)
+32 ;;=
+33 ;;^DD(356.4,0,"IX","D",356.4,.04)
+34 ;;=
+35 ;;^DD(356.4,0,"NM","CLAIMS TRACKING NON-ACUTE CLASSIFICATIONS")
+36 ;;=
+37 ;;^DD(356.4,0,"PT",356.112,.01)
+38 ;;=
+39 ;;^DD(356.4,0,"PT",356.113,.01)
+40 ;;=
+41 ;;^DD(356.4,.01,0)
+42 ;;=SHORT NAME^RF^^0;1^K:$L(X)>80!($L(X)<3) X
+43 ;;^DD(356.4,.01,1,0)
+44 ;;=^.1
+45 ;;^DD(356.4,.01,1,1,0)
+46 ;;=356.4^B
+47 ;;^DD(356.4,.01,1,1,1)
+48 ;;=S ^IBE(356.4,"B",$E(X,1,30),DA)=""
+49 ;;^DD(356.4,.01,1,1,2)
+50 ;;=K ^IBE(356.4,"B",$E(X,1,30),DA)
+51 ;;^DD(356.4,.01,3)
+52 ;;=Answer must be 3-80 characters in length.
+53 ;;^DD(356.4,.01,21,0)
+54 ;;=^^2^2^2930715^^^
+55 ;;^DD(356.4,.01,21,1,0)
+56 ;;=This is the first 30-60 characters of the description of the non-acute
+57 ;;^DD(356.4,.01,21,2,0)
+58 ;;=classification.
+59 ;;^DD(356.4,.01,"DT")
+60 ;;=2940201
+61 ;;^DD(356.4,.02,0)
+62 ;;=CODE^RFI^^0;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<4)!'(X?1.2N1"."2N) X
+63 ;;^DD(356.4,.02,1,0)
+64 ;;=^.1
+65 ;;^DD(356.4,.02,1,1,0)
+66 ;;=356.4^C
+67 ;;^DD(356.4,.02,1,1,1)
+68 ;;=S ^IBE(356.4,"C",$E(X,1,30),DA)=""
+69 ;;^DD(356.4,.02,1,1,2)
+70 ;;=K ^IBE(356.4,"C",$E(X,1,30),DA)
+71 ;;^DD(356.4,.02,1,1,"DT")
+72 ;;=2930715
+73 ;;^DD(356.4,.02,3)
+74 ;;=Enter the unique code for this factor in the format of nn.nn or n.nn where n is any number.
+75 ;;^DD(356.4,.02,21,0)
+76 ;;=^^3^3^2940213^^^^
+77 ;;^DD(356.4,.02,21,1,0)
+78 ;;=This is the external reference number by which this data is
+79 ;;^DD(356.4,.02,21,2,0)
+80 ;;=uniquely known. This is the value that will be transmitted
+81 ;;^DD(356.4,.02,21,3,0)
+82 ;;=in the national roll up.
+83 ;;^DD(356.4,.02,"DT")
+84 ;;=2931014
+85 ;;^DD(356.4,.04,0)
+86 ;;=FACTOR^SI^1:SOCIAL FACTORS;2:ENVIRONMENTAL FACTORS;3:SCHEDULING;4:BED/SERVICE AVAILIBILITY;5:PRACTITIONER FACTOR;6:ADMINISTRATIVE;7:COMMUNICATION PROBLEMS;8:OTHER;^0;4^Q
+87 ;;^DD(356.4,.04,1,0)
+88 ;;=^.1
+89 ;;^DD(356.4,.04,1,1,0)
+90 ;;=356.4^D
+91 ;;^DD(356.4,.04,1,1,1)
+92 ;;=S ^IBE(356.4,"D",$E(X,1,30),DA)=""
+93 ;;^DD(356.4,.04,1,1,2)
+94 ;;=K ^IBE(356.4,"D",$E(X,1,30),DA)
+95 ;;^DD(356.4,.04,1,1,"DT")
+96 ;;=2930715
+97 ;;^DD(356.4,.04,21,0)
+98 ;;=^^1^1^2931029^^
+99 ;;^DD(356.4,.04,21,1,0)
+100 ;;=Enter the name of the factor that best describes this classification.
+101 ;;^DD(356.4,.04,"DT")
+102 ;;=2931220
+103 ;;^DD(356.4,.05,0)
+104 ;;=DAY OR ADMISSION^SI^1:ADMISSION (NON-ACUTE);2:DAY(S) OF CARE (NON ACUTE);^0;5^Q
+105 ;;^DD(356.4,.05,21,0)
+106 ;;=^^2^2^2930715^
+107 ;;^DD(356.4,.05,21,1,0)
+108 ;;=Enter whether this classification for not meeting criteria is for
+109 ;;^DD(356.4,.05,21,2,0)
+110 ;;=admissions or days of care.
+111 ;;^DD(356.4,.05,"DT")
+112 ;;=2931220
+113 ;;^DD(356.4,10,0)
+114 ;;=REASON^356.41^^1;0
+115 ;;^DD(356.4,10,21,0)
+116 ;;=^^1^1^2940213^
+117 ;;^DD(356.4,10,21,1,0)
+118 ;;=This is the long description of the non-acute classification.
