ABMPT258.m

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