ABMPT267.m

ABMPT267 ; IHS/SD/SDR - 3P BILLING 2.6 Patch 7 POST INIT ;^

 ;;2.6;IHS Third Party Billing;**7**;NOV 12, 2009

 ;

 Q

POST ;

 S DIE="^ABMMUPRM("

 S DA=1

 S DR=".02////@"

 D ^DIE

 ;

 F ABMI=1:1 S ABMLN=$P($T(PCLASS+ABMI),";;",2) Q:ABMLN="END"  D

 .S DA(1)=1

 .S DIC="^ABMMUPRM("_DA(1)_",2,"

 .S DIC(0)="QLM"

 .S X=$P(ABMLN,U)

 .D ^DIC

 Q

PCLASS ;

 ;;PHYSICIAN^00

 ;;PHYSICIAN ASSISTANT^11

 ;;PEDIATRIC NURSE PRACT.^16

 ;;NURSE MIDWIFE^17

 ;;PHYSICIAN (CONTRACT)^18

 ;;NURSE PRACTICIONER^21

 ;;OB/GYN (CONTRACT)^41

 ;;PHYSICIAN (TRIBAL)^44

 ;;OSTEOPATH^45

 ;;CONTRACT PSYCHIATRIST^49

 ;;DENTIST^52

 ;;NEPHROLOGIST^64

 ;;EMERGENCY ROOM PHYSICIAN^68

 ;;CARDIOLOGIST^70

 ;;INTERNAL MEDICINE^71

 ;;OB/GYN^^72

 ;;ORTHOPEDIST^73

 ;;OTOLARYNGOLOGIST^74

 ;;PEDIATRICIAN^75

 ;;RADIOLOGIST^76

 ;;SURGEON^77

 ;;UROLOGIST^78

 ;;OPHTHALMOLOGIST^79

 ;;FAMILY PRACTICE^80

 ;;PSYCHIATRIST^81

 ;;ANESTHESIOLOGIST^82

 ;;PATHOLOGIST^83

 ;;NEUROLOGIST^85

 ;;DERMATOLOGIST^86

 ;;SPORTS MEDICINE PHYSICIAN^A1

 ;;HEPATOLOGIST^A9

 ;;GASTROENTEROLOGIST^B1

 ;;ENDOCRINOLOGIST^B2

 ;;RHEUMATOLOGIST^B3

 ;;ONCOLOGIST-HEMATOLOGIST^B4

 ;;PULMONOLOGIST^B5

 ;;NEUROSURGEON^B6

 ;;END

ABMPT267  ; IHS/SD/SDR - 3P BILLING 2.6 Patch 7 POST INIT ;^

 +1       ;;2.6;IHS Third Party Billing;**7**;NOV 12, 2009

 +2       ;

 +3        QUIT 

POST      ;

 +1        SET DIE="^ABMMUPRM("

 +2        SET DA=1

 +3        SET DR=".02////@"

 +4        DO ^DIE

 +5       ;

 +6        FOR ABMI=1:1

               SET ABMLN=$PIECE($TEXT(PCLASS+ABMI),";;",2)

               IF ABMLN="END"

                   QUIT 

               Begin DoDot:1

 +7                SET DA(1)=1

 +8                SET DIC="^ABMMUPRM("_DA(1)_",2,"

 +9                SET DIC(0)="QLM"

 +10               SET X=$PIECE(ABMLN,U)

 +11               DO ^DIC

               End DoDot:1

 +12       QUIT 

PCLASS    ;

 +1       ;;PHYSICIAN^00

 +2       ;;PHYSICIAN ASSISTANT^11

 +3       ;;PEDIATRIC NURSE PRACT.^16

 +4       ;;NURSE MIDWIFE^17

 +5       ;;PHYSICIAN (CONTRACT)^18

 +6       ;;NURSE PRACTICIONER^21

 +7       ;;OB/GYN (CONTRACT)^41

 +8       ;;PHYSICIAN (TRIBAL)^44

 +9       ;;OSTEOPATH^45

 +10      ;;CONTRACT PSYCHIATRIST^49

 +11      ;;DENTIST^52

 +12      ;;NEPHROLOGIST^64

 +13      ;;EMERGENCY ROOM PHYSICIAN^68

 +14      ;;CARDIOLOGIST^70

 +15      ;;INTERNAL MEDICINE^71

 +16      ;;OB/GYN^^72

 +17      ;;ORTHOPEDIST^73

 +18      ;;OTOLARYNGOLOGIST^74

 +19      ;;PEDIATRICIAN^75

 +20      ;;RADIOLOGIST^76

 +21      ;;SURGEON^77

 +22      ;;UROLOGIST^78

 +23      ;;OPHTHALMOLOGIST^79

 +24      ;;FAMILY PRACTICE^80

 +25      ;;PSYCHIATRIST^81

 +26      ;;ANESTHESIOLOGIST^82

 +27      ;;PATHOLOGIST^83

 +28      ;;NEUROLOGIST^85

 +29      ;;DERMATOLOGIST^86

 +30      ;;SPORTS MEDICINE PHYSICIAN^A1

 +31      ;;HEPATOLOGIST^A9

 +32      ;;GASTROENTEROLOGIST^B1

 +33      ;;ENDOCRINOLOGIST^B2

 +34      ;;RHEUMATOLOGIST^B3

 +35      ;;ONCOLOGIST-HEMATOLOGIST^B4

 +36      ;;PULMONOLOGIST^B5

 +37      ;;NEUROSURGEON^B6

 +38      ;;END