ABMPT258 ; IHS/ASDST/SDR - 3P BILLING 2.5 Patch 8 POST INIT ;
;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
;
Q
PREINST ;reset entries in 3P Page 3 Questions file
S DIK="^ABMQUES("
F ABMQ=25,26,29,30 D
.S DA=ABMQ
.D ^DIK
S ABMDEL="^ABMPSTAT"
K @ABMDEL
S ABMDEL="^ABMCCLMR"
K @ABMDEL
Q
EN ; EP
D QUES ;add questions 32 and 33; 34/35
D EXP25 ;add export mode 25 ADA-2002
D EXP26 ;add export mode 26 ADA-99 v2000
D EXP23 ;edit name of 837D to say ADA
D ECODES ; add new error codes
D DXLAG ;put default in uncoded Dx lag time of 45 days
D PCCST ;new billing status (59)/uncoded Dxs and (60)Visit in Review Status
D EXPUPDT ;update export modes with new questions
D VTYP ;add ambulance VT
D TPCODES ;add codes to 3P Codes file
D TURNON^DIAUTL(9999999.06,.14,"y") ;turn on audit for LOCATION field .14
D TURNON^DIAUTL(9999999.06,.15,"y") ;turn on audit for LOCATION field .15
D TURNON^DIAUTL(9999999.06,.16,"y") ;turn on audit for LOCATION field .16
D TURNON^DIAUTL(9999999.06,.17,"y") ;turn on audit for LOCATION field .17
Q
;
EXP25 ;
K DIC,DR,DINUM,DLAYGO,DIE
S DIC="^ABMDEXP("
S DIC(0)="LM"
S DLAYGO=9002274
S X="ADA-2002",DINUM=25
K DD,DO
D ^DIC
Q:Y<0
S DA=+Y
S DIE="^ABMDEXP("
S DR=".04////ABMDF25;.05////ABMDF25X;.06///C;.07///Dental Claim Form Dated 2002;.08///1,2,3,4,9,16,17,18,34,35;.11////ABMDES4;.15///H"
D ^DIE
Q
EXP26 ;
K DIC,DR,DINUM,DLAYGO,DIE
S DIC="^ABMDEXP("
S DIC(0)="LM"
S DLAYGO=9002274
S X="ADA-99 v2000",DINUM=26
K DD,DO
D ^DIC
Q:Y<0
S DA=+Y
S DIE="^ABMDEXP("
S DR=".04////ABMDF26;.05////ABMDF26X;.06///C;.07///Dental Claim Form Dated 2000;.08///1,2,3,4,9,16,17,18;.11////ABMDES4;.15///H"
D ^DIE
Q
QUES ;
K DIC,X,DINUM,DR,DLAYGO
S DIC="^ABMQUES("
S DIC(0)="LM"
S DLAYGO=9002274
S DINUM=32,X="NUMBER OF ENCLOSURES"
S DIC("DR")=".02////W32;.03////ABMDE30;.04////32;1////ABMDE3C"
K DD,DO
D ^DIC
;
K DIC,X,DINUM,DR,DLAYGO
S DIC="^ABMQUES("
S DIC(0)="LM"
S DLAYGO=9002274
S DINUM=33,X="OTHER DENTAL CHARGES"
S DIC("DR")=".02////W33;.03////ABMDE30;.04////33;1////ABMDE3C"
K DD,DO
D ^DIC
;
K DIC,X,DINUM,DR,DLAYGO
S DIC="^ABMQUES("
S DIC(0)="LM"
S DLAYGO=9002274
S DINUM=34,X="REFERENCE LAB CLIA#"
S DIC("DR")=".02////W34;.03////ABMDE30;.04////34;1////ABMDE3C"
K DD,DO
D ^DIC
;
K DIC,X,DINUM,DR,DLAYGO
S DIC="^ABMQUES("
S DIC(0)="LM"
S DLAYGO=9002274
S DINUM=35,X="IN-HOUSE CLIA#"
S DIC("DR")=".02////W35;.03////ABMDE30;.04////35;1////ABMDE3C"
K DD,DO
D ^DIC
Q
EXP23 ;
S DIE="^ABMDEXP("
S DA=23
S DR=".01///837 DENT (ADA)"
D ^DIE
Q
ECODES ;
; 194-197 for IM15307/IM14092 - MSP on page 2
;194
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=194
S X="NO MSP FORM FOR INPATIENT CLAIM"
S DIC("DR")=".02///The system indicates that there is no MSP Form on file. Please verify that an MSP Form has been obtained and is on file."
S DIC("DR")=DIC("DR")_";.03///W"
K DD,DO
D FILE^DICN
;195
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=195
S X="MSP STATUS GREATER THAN 90 DAYS"
S DIC("DR")=".02///The MSP Form on file in Pat Reg indicates the last form obtained exceeds the 90-day time period set by CMS. Please verify an MSP form has been obtained and is on file."
S DIC("DR")=DIC("DR")_";.03///W"
K DD,DO
D FILE^DICN
;196
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=196
S X="MSP UNSPECIFIED - VERIFY YOUR ELIGIBILITY IN REGISTRATION"
S DIC("DR")=".02///MSP entries do not exist on the Medicare page in Pat Reg but the sequencing in the claim editor indicates Medicare is secondary payer."
S DIC("DR")=DIC("DR")_";.03///W"
K DD,DO
D FILE^DICN
;197
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=197
S X="PATIENT IS AN MSP PATIENT"
S DIC("DR")=".02///An MSP entry exists in Pat Reg but the claim editor sequencing does not indicate Mediacre is secondary. Please verify the accuracy of the Medicare entries in Pat Reg."
S DIC("DR")=DIC("DR")_";.03///W"
K DD,DO
D FILE^DICN
;199
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=199
S X="LAB CHARGES WITH NO REFERRING PROVIDER ON PAGE 3"
S DIC("DR")=".02///Enter Referring Provider on page 3"
S DIC("DR")=DIC("DR")_";.03///W"
K DD,DO
D FILE^DICN
;200
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=200
S X="CLIA NUMBER MISSING"
S DIC("DR")=".03///E"
K DD,DO
D FILE^DICN
D SITE(200)
;203 IM15111
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=203
S X="FORMAT OF MEDICARE/MEDICAID NAME INCORRECT"
S DIC("DR")=".02///CORRECT NAME FORMAT IN PAT REG."
S DIC("DR")=DIC("DR")_";.03///E"
K DD,DO
D FILE^DICN
D SITE(203)
;204 - ambulance billing
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=204
S X="POINT OF PICKUP FOR PATIENT IS MISSING"
S DIC("DR")=".02///ENTER POINT OF PICKUP"
S DIC("DR")=DIC("DR")_";.03///E"
K DD,DO
D FILE^DICN
D SITE(204)
;205 - ambulance billing
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=205
S X="ORIGINATING ZIP CODE MISSING"
S DIC("DR")=".02///ENTER ORIGINATING ZIP CODE"
S DIC("DR")=DIC("DR")_";.03///E"
K DD,DO
D FILE^DICN
D SITE(205)
;206 - ambulance billing
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=206
S X="DESTINATION FOR THE PATIENT IS MISSING OR INCOMPLETE"
S DIC("DR")=".02///POPULATE DESTINATION FIELDS ON PAGE 3A"
S DIC("DR")=DIC("DR")_";.03///E"
K DD,DO
D FILE^DICN
D SITE(206)
;207 - ambulance billing
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=207
S X="MEDICAL NECESSITY INDICATOR BLANK"
S DIC("DR")=".02///ANSWER MEDICAL NECESSITY QUESTION ON PAGE 3A"
S DIC("DR")=DIC("DR")_";.03///E"
K DD,DO
D FILE^DICN
D SITE(207)
;208 - ambulance billing
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=208
S X="PATIENT WEIGHT REQUIRED"
S DIC("DR")=".02///ANSWER PATIENT WEIGHT QUESTION ON PAGE 3A"
S DIC("DR")=DIC("DR")_";.03///E"
K DD,DO
D FILE^DICN
D SITE(208)
;209 - ambulance billing
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=209
S X="AMBULANCE PROCEDURE REQUIRES MODIFIER"
S DIC("DR")=".02///ENTER MODIFIER FOR AMBULANCE PROCEDURE"
S DIC("DR")=DIC("DR")_";.03///E"
K DD,DO
D FILE^DICN
D SITE(209)
;210 - ambulance billing
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=210
S X="DRUG NAME/DOSAGE REQUIRED FOR NOC DRUG"
S DIC("DR")=".02///ENTER DRUG NAME/DOSAGE ON PAGE 3"
S DIC("DR")=DIC("DR")_";.03///E"
K DD,DO
D FILE^DICN
D SITE(210)
;211 - ambulance billing
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=211
S X="MILEAGE DATA MISSING"
S DIC("DR")=".02///ENTER A0425 OR A0888 ON PAGE 8H OR 8K"
S DIC("DR")=DIC("DR")_";.03///W"
K DD,DO
D FILE^DICN
;212 - ambulance billing
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=212
S X="QL modifier is used - other modifiers will be skipped"
S DIC("DR")=".02///Remove QL if other modifiers are necessary"
S DIC("DR")=DIC("DR")_";.03///W"
K DD,DO
D FILE^DICN
;213 - Rx billing
K DIC,X
S DIC="^ABMDERR("
S DIC(0)="LM"
S DINUM=213
S X="PHARMACY DATA EXISTS IN PCC THAT IS NOT ON CLAIM"
S DIC("DR")=".03///W"
K DD,DO
D FILE^DICN
Q
SITE(ABMX) ;Add SITE multiple
S DUZHOLD=DUZ(2)
S DUZ(2)=0
F S DUZ(2)=$O(^ABMDCLM(DUZ(2))) Q:'+DUZ(2) D
.S DIC(0)="LX"
.S DA(1)=ABMX
.S DIC="^ABMDERR("_DA(1)_",31,"
.S DIC("P")=$P(^DD(9002274.04,31,0),U,2)
.S DINUM=DUZ(2)
.S X=$P($G(^DIC(4,DUZ(2),0)),U)
.S DIC("DR")=".03////E"
.D ^DIC
.K DA,DIC,DINUM
S DUZ(2)=DUZHOLD
K DUZHOLD,DLAYGO,ABMX
Q
DXLAG ; default lag time to 45 days
S DIE="^ABMDPARM(DUZ(2),"
S DA=1
S DR=".52///45"
D ^DIE
Q
PCCST ;
K DIC,X,DINUM
S DIC="^ABMDCS("
S DINUM=59
S X="UNCODED DX EXISTS ON VISIT"
S DIC(0)="ML"
K DD,DO
D FILE^DICN
;
K DIC,X,DINUM
S DIC="^ABMDCS("
S DINUM=60
S X="VISIT IN REVIEW STATUS"
S DIC(0)="ML"
K DD,DO
D FILE^DICN
;
K DIC,X,DINUM
S DIC="^ABMDCS("
S DINUM=61
S X="INPATIENT CODING INCOMPLETE"
S DIC(0)="ML"
K DD,DO
D FILE^DICN
Q
EXPUPDT ;
F ABMEXPM=3,14,22,23 D
.S ABMQUES=$P($G(^ABMDEXP(ABMEXPM,0)),U,8)
.Q:ABMQUES["34,35"
.S ABMQUES=ABMQUES_",34,35"
.S DIE="^ABMDEXP("
.S DA=ABMEXPM
.S DR=".08////"_ABMQUES
.D ^DIE
;
S ABMQUES=$P($G(^ABMDEXP(14,0)),U,8)
Q:ABMQUES["19"
S ABMQUES=ABMQUES_",19"
S DIE="^ABMDEXP("
S DA=14
S DR=".08///"_ABMQUES
D ^DIE
Q
VTYP ; new visit type 902-ambulance
K DIC,X,DINUM
S DIC="^ABMDVTYP("
S X="AMBULANCE"
S DIC(0)="EML"
S DINUM=902
K DD,DO
D FILE^DICN
Q
TPCODES ;
K DIC,X,DINUM,DR,DLAYGO
S DIC="^ABMDCODE("
S DIC(0)="LM"
S DLAYGO=9002274.03
S ABMCNT=0
S ABMTAG="CODES"
F D Q:$P($T(@ABMTAG+ABMCNT),";;",2)="END"
.S ABMCREC=$P($T(@ABMTAG+ABMCNT),";;",2)
.S ABMCNT=ABMCNT+1
.S X=$P(ABMCREC,";",1)
.Q:$D(^ABMDCODE("AC",$P(ABMCREC,";",2),X))=10
.S DIC("DR")=".02////"_$P(ABMCREC,";",2)
.S DIC("DR")=DIC("DR")_";.03////"_$P(ABMCREC,";",3)
.S DIC("DR")=DIC("DR")_";.04////"_$P(ABMCREC,";",4)
.K DD,DO
.D FILE^DICN
Q
CODES ;;A0;V;Originating zip code-ambulance only;0
;;32;V;Multiple patient ambulance transport;0
;;B2;C;CAH Attestation;0
;;END
Q
ABMPT258 ; IHS/ASDST/SDR - 3P BILLING 2.5 Patch 8 POST INIT ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
+2 ;
+3 QUIT
PREINST ;reset entries in 3P Page 3 Questions file
+1 SET DIK="^ABMQUES("
+2 FOR ABMQ=25,26,29,30
Begin DoDot:1
+3 SET DA=ABMQ
+4 DO ^DIK
End DoDot:1
+5 SET ABMDEL="^ABMPSTAT"
+6 KILL @ABMDEL
+7 SET ABMDEL="^ABMCCLMR"
+8 KILL @ABMDEL
+9 QUIT
EN ; EP
+1 ;add questions 32 and 33; 34/35
DO QUES
+2 ;add export mode 25 ADA-2002
DO EXP25
+3 ;add export mode 26 ADA-99 v2000
DO EXP26
+4 ;edit name of 837D to say ADA
DO EXP23
+5 ; add new error codes
DO ECODES
+6 ;put default in uncoded Dx lag time of 45 days
DO DXLAG
+7 ;new billing status (59)/uncoded Dxs and (60)Visit in Review Status
DO PCCST
+8 ;update export modes with new questions
DO EXPUPDT
+9 ;add ambulance VT
DO VTYP
+10 ;add codes to 3P Codes file
DO TPCODES
+11 ;turn on audit for LOCATION field .14
DO TURNON^DIAUTL(9999999.06,.14,"y")
+12 ;turn on audit for LOCATION field .15
DO TURNON^DIAUTL(9999999.06,.15,"y")
+13 ;turn on audit for LOCATION field .16
DO TURNON^DIAUTL(9999999.06,.16,"y")
+14 ;turn on audit for LOCATION field .17
DO TURNON^DIAUTL(9999999.06,.17,"y")
+15 QUIT
+16 ;
EXP25 ;
+1 KILL DIC,DR,DINUM,DLAYGO,DIE
+2 SET DIC="^ABMDEXP("
+3 SET DIC(0)="LM"
+4 SET DLAYGO=9002274
+5 SET X="ADA-2002"
SET DINUM=25
+6 KILL DD,DO
+7 DO ^DIC
+8 IF Y<0
QUIT
+9 SET DA=+Y
+10 SET DIE="^ABMDEXP("
+11 SET DR=".04////ABMDF25;.05////ABMDF25X;.06///C;.07///Dental Claim Form Dated 2002;.08///1,2,3,4,9,16,17,18,34,35;.11////ABMDES4;.15///H"
+12 DO ^DIE
+13 QUIT
EXP26 ;
+1 KILL DIC,DR,DINUM,DLAYGO,DIE
+2 SET DIC="^ABMDEXP("
+3 SET DIC(0)="LM"
+4 SET DLAYGO=9002274
+5 SET X="ADA-99 v2000"
SET DINUM=26
+6 KILL DD,DO
+7 DO ^DIC
+8 IF Y<0
QUIT
+9 SET DA=+Y
+10 SET DIE="^ABMDEXP("
+11 SET DR=".04////ABMDF26;.05////ABMDF26X;.06///C;.07///Dental Claim Form Dated 2000;.08///1,2,3,4,9,16,17,18;.11////ABMDES4;.15///H"
+12 DO ^DIE
+13 QUIT
QUES ;
+1 KILL DIC,X,DINUM,DR,DLAYGO
+2 SET DIC="^ABMQUES("
+3 SET DIC(0)="LM"
+4 SET DLAYGO=9002274
+5 SET DINUM=32
SET X="NUMBER OF ENCLOSURES"
+6 SET DIC("DR")=".02////W32;.03////ABMDE30;.04////32;1////ABMDE3C"
+7 KILL DD,DO
+8 DO ^DIC
+9 ;
+10 KILL DIC,X,DINUM,DR,DLAYGO
+11 SET DIC="^ABMQUES("
+12 SET DIC(0)="LM"
+13 SET DLAYGO=9002274
+14 SET DINUM=33
SET X="OTHER DENTAL CHARGES"
+15 SET DIC("DR")=".02////W33;.03////ABMDE30;.04////33;1////ABMDE3C"
+16 KILL DD,DO
+17 DO ^DIC
+18 ;
+19 KILL DIC,X,DINUM,DR,DLAYGO
+20 SET DIC="^ABMQUES("
+21 SET DIC(0)="LM"
+22 SET DLAYGO=9002274
+23 SET DINUM=34
SET X="REFERENCE LAB CLIA#"
+24 SET DIC("DR")=".02////W34;.03////ABMDE30;.04////34;1////ABMDE3C"
+25 KILL DD,DO
+26 DO ^DIC
+27 ;
+28 KILL DIC,X,DINUM,DR,DLAYGO
+29 SET DIC="^ABMQUES("
+30 SET DIC(0)="LM"
+31 SET DLAYGO=9002274
+32 SET DINUM=35
SET X="IN-HOUSE CLIA#"
+33 SET DIC("DR")=".02////W35;.03////ABMDE30;.04////35;1////ABMDE3C"
+34 KILL DD,DO
+35 DO ^DIC
+36 QUIT
EXP23 ;
+1 SET DIE="^ABMDEXP("
+2 SET DA=23
+3 SET DR=".01///837 DENT (ADA)"
+4 DO ^DIE
+5 QUIT
ECODES ;
+1 ; 194-197 for IM15307/IM14092 - MSP on page 2
+2 ;194
+3 KILL DIC,X
+4 SET DIC="^ABMDERR("
+5 SET DIC(0)="LM"
+6 SET DINUM=194
+7 SET X="NO MSP FORM FOR INPATIENT CLAIM"
+8 SET DIC("DR")=".02///The system indicates that there is no MSP Form on file. Please verify that an MSP Form has been obtained and is on file."
+9 SET DIC("DR")=DIC("DR")_";.03///W"
+10 KILL DD,DO
+11 DO FILE^DICN
+12 ;195
+13 KILL DIC,X
+14 SET DIC="^ABMDERR("
+15 SET DIC(0)="LM"
+16 SET DINUM=195
+17 SET X="MSP STATUS GREATER THAN 90 DAYS"
+18 SET DIC("DR")=".02///The MSP Form on file in Pat Reg indicates the last form obtained exceeds the 90-day time period set by CMS. Please verify an MSP form has been obtained and is on file."
+19 SET DIC("DR")=DIC("DR")_";.03///W"
+20 KILL DD,DO
+21 DO FILE^DICN
+22 ;196
+23 KILL DIC,X
+24 SET DIC="^ABMDERR("
+25 SET DIC(0)="LM"
+26 SET DINUM=196
+27 SET X="MSP UNSPECIFIED - VERIFY YOUR ELIGIBILITY IN REGISTRATION"
+28 SET DIC("DR")=".02///MSP entries do not exist on the Medicare page in Pat Reg but the sequencing in the claim editor indicates Medicare is secondary payer."
+29 SET DIC("DR")=DIC("DR")_";.03///W"
+30 KILL DD,DO
+31 DO FILE^DICN
+32 ;197
+33 KILL DIC,X
+34 SET DIC="^ABMDERR("
+35 SET DIC(0)="LM"
+36 SET DINUM=197
+37 SET X="PATIENT IS AN MSP PATIENT"
+38 SET DIC("DR")=".02///An MSP entry exists in Pat Reg but the claim editor sequencing does not indicate Mediacre is secondary. Please verify the accuracy of the Medicare entries in Pat Reg."
+39 SET DIC("DR")=DIC("DR")_";.03///W"
+40 KILL DD,DO
+41 DO FILE^DICN
+42 ;199
+43 KILL DIC,X
+44 SET DIC="^ABMDERR("
+45 SET DIC(0)="LM"
+46 SET DINUM=199
+47 SET X="LAB CHARGES WITH NO REFERRING PROVIDER ON PAGE 3"
+48 SET DIC("DR")=".02///Enter Referring Provider on page 3"
+49 SET DIC("DR")=DIC("DR")_";.03///W"
+50 KILL DD,DO
+51 DO FILE^DICN
+52 ;200
+53 KILL DIC,X
+54 SET DIC="^ABMDERR("
+55 SET DIC(0)="LM"
+56 SET DINUM=200
+57 SET X="CLIA NUMBER MISSING"
+58 SET DIC("DR")=".03///E"
+59 KILL DD,DO
+60 DO FILE^DICN
+61 DO SITE(200)
+62 ;203 IM15111
+63 KILL DIC,X
+64 SET DIC="^ABMDERR("
+65 SET DIC(0)="LM"
+66 SET DINUM=203
+67 SET X="FORMAT OF MEDICARE/MEDICAID NAME INCORRECT"
+68 SET DIC("DR")=".02///CORRECT NAME FORMAT IN PAT REG."
+69 SET DIC("DR")=DIC("DR")_";.03///E"
+70 KILL DD,DO
+71 DO FILE^DICN
+72 DO SITE(203)
+73 ;204 - ambulance billing
+74 KILL DIC,X
+75 SET DIC="^ABMDERR("
+76 SET DIC(0)="LM"
+77 SET DINUM=204
+78 SET X="POINT OF PICKUP FOR PATIENT IS MISSING"
+79 SET DIC("DR")=".02///ENTER POINT OF PICKUP"
+80 SET DIC("DR")=DIC("DR")_";.03///E"
+81 KILL DD,DO
+82 DO FILE^DICN
+83 DO SITE(204)
+84 ;205 - ambulance billing
+85 KILL DIC,X
+86 SET DIC="^ABMDERR("
+87 SET DIC(0)="LM"
+88 SET DINUM=205
+89 SET X="ORIGINATING ZIP CODE MISSING"
+90 SET DIC("DR")=".02///ENTER ORIGINATING ZIP CODE"
+91 SET DIC("DR")=DIC("DR")_";.03///E"
+92 KILL DD,DO
+93 DO FILE^DICN
+94 DO SITE(205)
+95 ;206 - ambulance billing
+96 KILL DIC,X
+97 SET DIC="^ABMDERR("
+98 SET DIC(0)="LM"
+99 SET DINUM=206
+100 SET X="DESTINATION FOR THE PATIENT IS MISSING OR INCOMPLETE"
+101 SET DIC("DR")=".02///POPULATE DESTINATION FIELDS ON PAGE 3A"
+102 SET DIC("DR")=DIC("DR")_";.03///E"
+103 KILL DD,DO
+104 DO FILE^DICN
+105 DO SITE(206)
+106 ;207 - ambulance billing
+107 KILL DIC,X
+108 SET DIC="^ABMDERR("
+109 SET DIC(0)="LM"
+110 SET DINUM=207
+111 SET X="MEDICAL NECESSITY INDICATOR BLANK"
+112 SET DIC("DR")=".02///ANSWER MEDICAL NECESSITY QUESTION ON PAGE 3A"
+113 SET DIC("DR")=DIC("DR")_";.03///E"
+114 KILL DD,DO
+115 DO FILE^DICN
+116 DO SITE(207)
+117 ;208 - ambulance billing
+118 KILL DIC,X
+119 SET DIC="^ABMDERR("
+120 SET DIC(0)="LM"
+121 SET DINUM=208
+122 SET X="PATIENT WEIGHT REQUIRED"
+123 SET DIC("DR")=".02///ANSWER PATIENT WEIGHT QUESTION ON PAGE 3A"
+124 SET DIC("DR")=DIC("DR")_";.03///E"
+125 KILL DD,DO
+126 DO FILE^DICN
+127 DO SITE(208)
+128 ;209 - ambulance billing
+129 KILL DIC,X
+130 SET DIC="^ABMDERR("
+131 SET DIC(0)="LM"
+132 SET DINUM=209
+133 SET X="AMBULANCE PROCEDURE REQUIRES MODIFIER"
+134 SET DIC("DR")=".02///ENTER MODIFIER FOR AMBULANCE PROCEDURE"
+135 SET DIC("DR")=DIC("DR")_";.03///E"
+136 KILL DD,DO
+137 DO FILE^DICN
+138 DO SITE(209)
+139 ;210 - ambulance billing
+140 KILL DIC,X
+141 SET DIC="^ABMDERR("
+142 SET DIC(0)="LM"
+143 SET DINUM=210
+144 SET X="DRUG NAME/DOSAGE REQUIRED FOR NOC DRUG"
+145 SET DIC("DR")=".02///ENTER DRUG NAME/DOSAGE ON PAGE 3"
+146 SET DIC("DR")=DIC("DR")_";.03///E"
+147 KILL DD,DO
+148 DO FILE^DICN
+149 DO SITE(210)
+150 ;211 - ambulance billing
+151 KILL DIC,X
+152 SET DIC="^ABMDERR("
+153 SET DIC(0)="LM"
+154 SET DINUM=211
+155 SET X="MILEAGE DATA MISSING"
+156 SET DIC("DR")=".02///ENTER A0425 OR A0888 ON PAGE 8H OR 8K"
+157 SET DIC("DR")=DIC("DR")_";.03///W"
+158 KILL DD,DO
+159 DO FILE^DICN
+160 ;212 - ambulance billing
+161 KILL DIC,X
+162 SET DIC="^ABMDERR("
+163 SET DIC(0)="LM"
+164 SET DINUM=212
+165 SET X="QL modifier is used - other modifiers will be skipped"
+166 SET DIC("DR")=".02///Remove QL if other modifiers are necessary"
+167 SET DIC("DR")=DIC("DR")_";.03///W"
+168 KILL DD,DO
+169 DO FILE^DICN
+170 ;213 - Rx billing
+171 KILL DIC,X
+172 SET DIC="^ABMDERR("
+173 SET DIC(0)="LM"
+174 SET DINUM=213
+175 SET X="PHARMACY DATA EXISTS IN PCC THAT IS NOT ON CLAIM"
+176 SET DIC("DR")=".03///W"
+177 KILL DD,DO
+178 DO FILE^DICN
+179 QUIT
SITE(ABMX) ;Add SITE multiple
+1 SET DUZHOLD=DUZ(2)
+2 SET DUZ(2)=0
+3 FOR
SET DUZ(2)=$ORDER(^ABMDCLM(DUZ(2)))
IF '+DUZ(2)
QUIT
Begin DoDot:1
+4 SET DIC(0)="LX"
+5 SET DA(1)=ABMX
+6 SET DIC="^ABMDERR("_DA(1)_",31,"
+7 SET DIC("P")=$PIECE(^DD(9002274.04,31,0),U,2)
+8 SET DINUM=DUZ(2)
+9 SET X=$PIECE($GET(^DIC(4,DUZ(2),0)),U)
+10 SET DIC("DR")=".03////E"
+11 DO ^DIC
+12 KILL DA,DIC,DINUM
End DoDot:1
+13 SET DUZ(2)=DUZHOLD
+14 KILL DUZHOLD,DLAYGO,ABMX
+15 QUIT
DXLAG ; default lag time to 45 days
+1 SET DIE="^ABMDPARM(DUZ(2),"
+2 SET DA=1
+3 SET DR=".52///45"
+4 DO ^DIE
+5 QUIT
PCCST ;
+1 KILL DIC,X,DINUM
+2 SET DIC="^ABMDCS("
+3 SET DINUM=59
+4 SET X="UNCODED DX EXISTS ON VISIT"
+5 SET DIC(0)="ML"
+6 KILL DD,DO
+7 DO FILE^DICN
+8 ;
+9 KILL DIC,X,DINUM
+10 SET DIC="^ABMDCS("
+11 SET DINUM=60
+12 SET X="VISIT IN REVIEW STATUS"
+13 SET DIC(0)="ML"
+14 KILL DD,DO
+15 DO FILE^DICN
+16 ;
+17 KILL DIC,X,DINUM
+18 SET DIC="^ABMDCS("
+19 SET DINUM=61
+20 SET X="INPATIENT CODING INCOMPLETE"
+21 SET DIC(0)="ML"
+22 KILL DD,DO
+23 DO FILE^DICN
+24 QUIT
EXPUPDT ;
+1 FOR ABMEXPM=3,14,22,23
Begin DoDot:1
+2 SET ABMQUES=$PIECE($GET(^ABMDEXP(ABMEXPM,0)),U,8)
+3 IF ABMQUES["34,35"
QUIT
+4 SET ABMQUES=ABMQUES_",34,35"
+5 SET DIE="^ABMDEXP("
+6 SET DA=ABMEXPM
+7 SET DR=".08////"_ABMQUES
+8 DO ^DIE
End DoDot:1
+9 ;
+10 SET ABMQUES=$PIECE($GET(^ABMDEXP(14,0)),U,8)
+11 IF ABMQUES["19"
QUIT
+12 SET ABMQUES=ABMQUES_",19"
+13 SET DIE="^ABMDEXP("
+14 SET DA=14
+15 SET DR=".08///"_ABMQUES
+16 DO ^DIE
+17 QUIT
VTYP ; new visit type 902-ambulance
+1 KILL DIC,X,DINUM
+2 SET DIC="^ABMDVTYP("
+3 SET X="AMBULANCE"
+4 SET DIC(0)="EML"
+5 SET DINUM=902
+6 KILL DD,DO
+7 DO FILE^DICN
+8 QUIT
TPCODES ;
+1 KILL DIC,X,DINUM,DR,DLAYGO
+2 SET DIC="^ABMDCODE("
+3 SET DIC(0)="LM"
+4 SET DLAYGO=9002274.03
+5 SET ABMCNT=0
+6 SET ABMTAG="CODES"
+7 FOR
Begin DoDot:1
+8 SET ABMCREC=$PIECE($TEXT(@ABMTAG+ABMCNT),";;",2)
+9 SET ABMCNT=ABMCNT+1
+10 SET X=$PIECE(ABMCREC,";",1)
+11 IF $DATA(^ABMDCODE("AC",$PIECE(ABMCREC,";",2),X))=10
QUIT
+12 SET DIC("DR")=".02////"_$PIECE(ABMCREC,";",2)
+13 SET DIC("DR")=DIC("DR")_";.03////"_$PIECE(ABMCREC,";",3)
+14 SET DIC("DR")=DIC("DR")_";.04////"_$PIECE(ABMCREC,";",4)
+15 KILL DD,DO
+16 DO FILE^DICN
End DoDot:1
IF $PIECE($TEXT(@ABMTAG+ABMCNT),";;",2)="END"
QUIT
+17 QUIT
CODES ;;A0;V;Originating zip code-ambulance only;0
+1 ;;32;V;Multiple patient ambulance transport;0
+2 ;;B2;C;CAH Attestation;0
+3 ;;END
+4 QUIT
