IBINI03W ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(354.2) 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(354.2,0,"GL")
;;=^IBE(354.2,
;;^DIC("B","EXEMPTION REASON",354.2)
;;=
;;^DIC(354.2,"%D",0)
;;=^^14^14^2940214^^^^
;;^DIC(354.2,"%D",1,0)
;;=Warning: DO NOT EDIT ENTRIES IN THIS FILE without instructions from
;;^DIC(354.2,"%D",2,0)
;;=your ISC.
;;^DIC(354.2,"%D",3,0)
;;=
;;^DIC(354.2,"%D",4,0)
;;=This file contains the reasons for exemptions to a particular billing
;;^DIC(354.2,"%D",5,0)
;;=process. Initially it will contain reasons only for the Pharmacy Copay
;;^DIC(354.2,"%D",6,0)
;;=Income exemption process. This may be expanded in a later release
;;^DIC(354.2,"%D",7,0)
;;=to allow other exemptions to other processes. The current software
;;^DIC(354.2,"%D",8,0)
;;=expects certain entries in this file to exist. Changing the data in
;;^DIC(354.2,"%D",9,0)
;;=this file can have major impact on the Pharmacy Copay process. It
;;^DIC(354.2,"%D",10,0)
;;=should not be edited except on instruction from your ISC. Generally
;;^DIC(354.2,"%D",11,0)
;;=instructions to modify this file will be released through the National
;;^DIC(354.2,"%D",12,0)
;;=Patch Module on FORUM.
;;^DIC(354.2,"%D",13,0)
;;=
;;^DIC(354.2,"%D",14,0)
;;=Per VHA Directive 10-93-142, this file definition should not be modified.
;;^DD(354.2,0)
;;=FIELD^^.1^6
;;^DD(354.2,0,"DDA")
;;=N
;;^DD(354.2,0,"DT")
;;=2921216
;;^DD(354.2,0,"ID",.03)
;;=W " ",@("$P($P($C(59)_$S($D(^DD(354.2,.03,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,3)_"":"",2),$C(59),1)")
;;^DD(354.2,0,"ID",.04)
;;=W " ",@("$P($P($C(59)_$S($D(^DD(354.2,.04,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,4)_"":"",2),$C(59),1)")
;;^DD(354.2,0,"ID",.05)
;;=W " ",$P(^(0),U,5)
;;^DD(354.2,0,"ID",.1)
;;=W:$D(^(10)) " ",@("$P($P($C(59)_$S($D(^DD(354.2,.1,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(10),U,1)_"":"",2),$C(59),1)")
;;^DD(354.2,0,"IX","AA",354.2,.1)
;;=
;;^DD(354.2,0,"IX","ACODE",354.2,.05)
;;=
;;^DD(354.2,0,"IX","AS",354.2,.04)
;;=
;;^DD(354.2,0,"IX","B",354.2,.01)
;;=
;;^DD(354.2,0,"IX","C",354.2,.05)
;;=
;;^DD(354.2,0,"NM","EXEMPTION REASON")
;;=
;;^DD(354.2,0,"PT",354,.05)
;;=
;;^DD(354.2,0,"PT",354.1,.05)
;;=
;;^DD(354.2,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
;;^DD(354.2,.01,1,0)
;;=^.1
;;^DD(354.2,.01,1,1,0)
;;=354.2^B
;;^DD(354.2,.01,1,1,1)
;;=S ^IBE(354.2,"B",$E(X,1,30),DA)=""
;;^DD(354.2,.01,1,1,2)
;;=K ^IBE(354.2,"B",$E(X,1,30),DA)
;;^DD(354.2,.01,3)
;;=Answer must be 3-30 characters in length.
;;^DD(354.2,.01,21,0)
;;=^^3^3^2921208^^
;;^DD(354.2,.01,21,1,0)
;;=This is the name of the exemption reason. Do not edit this field.
;;^DD(354.2,.01,21,2,0)
;;=
;;^DD(354.2,.01,21,3,0)
;;=This field can be printed as the short name of the exemption reason.
;;^DD(354.2,.01,"DT")
;;=2921208
;;^DD(354.2,.02,0)
;;=LONG NAME^F^^0;2^K:$L(X)>80!($L(X)<3) X
;;^DD(354.2,.02,.1)
;;=DESCRIPTION
;;^DD(354.2,.02,3)
;;=Enter the long description of this exemption reason. Answer must be 3-80 characters in length.
;;^DD(354.2,.02,21,0)
;;=^^3^3^2921208^^^
;;^DD(354.2,.02,21,1,0)
;;=Enter a long description to explain this exemption
;;^DD(354.2,.02,21,2,0)
;;=reason. This field will generally be displayed to users
;;^DD(354.2,.02,21,3,0)
;;=along with the Exemption Status to explain the status of an exemption.
;;^DD(354.2,.02,"DT")
;;=2921208
;;^DD(354.2,.03,0)
;;=TYPE^S^1:COPAY INCOME EXEMPTION;^0;3^Q
;;^DD(354.2,.03,21,0)
;;=^^6^6^2930430^^^
;;^DD(354.2,.03,21,1,0)
;;=This is the type of exemption this reason is for. When creating an
IBINI03W ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(354.2)
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(354.2,0,"GL")
+2 ;;=^IBE(354.2,
+3 ;;^DIC("B","EXEMPTION REASON",354.2)
+4 ;;=
+5 ;;^DIC(354.2,"%D",0)
+6 ;;=^^14^14^2940214^^^^
+7 ;;^DIC(354.2,"%D",1,0)
+8 ;;=Warning: DO NOT EDIT ENTRIES IN THIS FILE without instructions from
+9 ;;^DIC(354.2,"%D",2,0)
+10 ;;=your ISC.
+11 ;;^DIC(354.2,"%D",3,0)
+12 ;;=
+13 ;;^DIC(354.2,"%D",4,0)
+14 ;;=This file contains the reasons for exemptions to a particular billing
+15 ;;^DIC(354.2,"%D",5,0)
+16 ;;=process. Initially it will contain reasons only for the Pharmacy Copay
+17 ;;^DIC(354.2,"%D",6,0)
+18 ;;=Income exemption process. This may be expanded in a later release
+19 ;;^DIC(354.2,"%D",7,0)
+20 ;;=to allow other exemptions to other processes. The current software
+21 ;;^DIC(354.2,"%D",8,0)
+22 ;;=expects certain entries in this file to exist. Changing the data in
+23 ;;^DIC(354.2,"%D",9,0)
+24 ;;=this file can have major impact on the Pharmacy Copay process. It
+25 ;;^DIC(354.2,"%D",10,0)
+26 ;;=should not be edited except on instruction from your ISC. Generally
+27 ;;^DIC(354.2,"%D",11,0)
+28 ;;=instructions to modify this file will be released through the National
+29 ;;^DIC(354.2,"%D",12,0)
+30 ;;=Patch Module on FORUM.
+31 ;;^DIC(354.2,"%D",13,0)
+32 ;;=
+33 ;;^DIC(354.2,"%D",14,0)
+34 ;;=Per VHA Directive 10-93-142, this file definition should not be modified.
+35 ;;^DD(354.2,0)
+36 ;;=FIELD^^.1^6
+37 ;;^DD(354.2,0,"DDA")
+38 ;;=N
+39 ;;^DD(354.2,0,"DT")
+40 ;;=2921216
+41 ;;^DD(354.2,0,"ID",.03)
+42 ;;=W " ",@("$P($P($C(59)_$S($D(^DD(354.2,.03,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,3)_"":"",2),$C(59),1)")
+43 ;;^DD(354.2,0,"ID",.04)
+44 ;;=W " ",@("$P($P($C(59)_$S($D(^DD(354.2,.04,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,4)_"":"",2),$C(59),1)")
+45 ;;^DD(354.2,0,"ID",.05)
+46 ;;=W " ",$P(^(0),U,5)
+47 ;;^DD(354.2,0,"ID",.1)
+48 ;;=W:$D(^(10)) " ",@("$P($P($C(59)_$S($D(^DD(354.2,.1,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(10),U,1)_"":"",2),$C(59),1)")
+49 ;;^DD(354.2,0,"IX","AA",354.2,.1)
+50 ;;=
+51 ;;^DD(354.2,0,"IX","ACODE",354.2,.05)
+52 ;;=
+53 ;;^DD(354.2,0,"IX","AS",354.2,.04)
+54 ;;=
+55 ;;^DD(354.2,0,"IX","B",354.2,.01)
+56 ;;=
+57 ;;^DD(354.2,0,"IX","C",354.2,.05)
+58 ;;=
+59 ;;^DD(354.2,0,"NM","EXEMPTION REASON")
+60 ;;=
+61 ;;^DD(354.2,0,"PT",354,.05)
+62 ;;=
+63 ;;^DD(354.2,0,"PT",354.1,.05)
+64 ;;=
+65 ;;^DD(354.2,.01,0)
+66 ;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
+67 ;;^DD(354.2,.01,1,0)
+68 ;;=^.1
+69 ;;^DD(354.2,.01,1,1,0)
+70 ;;=354.2^B
+71 ;;^DD(354.2,.01,1,1,1)
+72 ;;=S ^IBE(354.2,"B",$E(X,1,30),DA)=""
+73 ;;^DD(354.2,.01,1,1,2)
+74 ;;=K ^IBE(354.2,"B",$E(X,1,30),DA)
+75 ;;^DD(354.2,.01,3)
+76 ;;=Answer must be 3-30 characters in length.
+77 ;;^DD(354.2,.01,21,0)
+78 ;;=^^3^3^2921208^^
+79 ;;^DD(354.2,.01,21,1,0)
+80 ;;=This is the name of the exemption reason. Do not edit this field.
+81 ;;^DD(354.2,.01,21,2,0)
+82 ;;=
+83 ;;^DD(354.2,.01,21,3,0)
+84 ;;=This field can be printed as the short name of the exemption reason.
+85 ;;^DD(354.2,.01,"DT")
+86 ;;=2921208
+87 ;;^DD(354.2,.02,0)
+88 ;;=LONG NAME^F^^0;2^K:$L(X)>80!($L(X)<3) X
+89 ;;^DD(354.2,.02,.1)
+90 ;;=DESCRIPTION
+91 ;;^DD(354.2,.02,3)
+92 ;;=Enter the long description of this exemption reason. Answer must be 3-80 characters in length.
+93 ;;^DD(354.2,.02,21,0)
+94 ;;=^^3^3^2921208^^^
+95 ;;^DD(354.2,.02,21,1,0)
+96 ;;=Enter a long description to explain this exemption
+97 ;;^DD(354.2,.02,21,2,0)
+98 ;;=reason. This field will generally be displayed to users
+99 ;;^DD(354.2,.02,21,3,0)
+100 ;;=along with the Exemption Status to explain the status of an exemption.
+101 ;;^DD(354.2,.02,"DT")
+102 ;;=2921208
+103 ;;^DD(354.2,.03,0)
+104 ;;=TYPE^S^1:COPAY INCOME EXEMPTION;^0;3^Q
+105 ;;^DD(354.2,.03,21,0)
+106 ;;=^^6^6^2930430^^^
+107 ;;^DD(354.2,.03,21,1,0)
+108 ;;=This is the type of exemption this reason is for. When creating an
