BMCTXA.m

BMCTXA ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ; 

 ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006

 ;;BMC 3RD PARTY LIABILITY ALERT

 ;

 ; This routine loads Taxonomy BMC 3RD PARTY LIABILITY ALERT

 ;

START ;

 K:'$G(ATXPGMC) ^TMP("ATX",$J)

 S ATXPGMC=$G(ATXPGMC)+1

 F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X=""  S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y

 D OTHER

 I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2

 I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2

 D KILL^ATXSTX2

 Q

 ;

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;3.6,148,.01)

 ;;BMC RCIS ALERT 3RD PARTY

 ;;3.6,148,2)

 ;;POSSIBLE 3RD PARTY LIABILITY

 ;;3.63,148,1,0)

 ;;^^6^6^2951228^^^^

 ;;3.63,148,1,1,0)

 ;;Patient Name: |1|    Date Referral Initiated:  |2|

 ;;3.63,148,1,2,0)

 ;;Referral #:  |3|  

 ;;3.63,148,1,3,0)

 ;;Requesting Provider:  |4|

 ;;3.63,148,1,4,0)

 ;; 

 ;;3.63,148,1,5,0)

 ;;This referral is for a diagnostic category that may involve third party

 ;;3.63,148,1,6,0)

 ;;liability.

 ;;3.63,148,3,0)

 ;;^^4^4^2951228^^^^

 ;;3.63,148,3,1,0)

 ;;This bulletin is sent to the CHS supervisor if the referral is a type

 ;;3.63,148,3,2,0)

 ;;CHS.  It is sent to the business office if it is a type IHS.  In either

 ;;3.63,148,3,3,0)

 ;;case it is sent to the RCIS Case Manager.  If it is type OTHER no

 ;;3.63,148,3,4,0)

 ;;bulletin is sent.

 ;;3.64,"148,1",.01)

 ;;1

 ;;3.64,"148,1",1,0)

 ;;^^1^1^2951109^

 ;;3.64,"148,1",1,1,0)

 ;;Name of patient being referred.

 ;;3.64,"148,2",.01)

 ;;2

 ;;3.64,"148,2",1,0)

 ;;^^1^1^2951109^

 ;;3.64,"148,2",1,1,0)

 ;;Date referral initiated.

 ;;3.64,"148,3",.01)

 ;;3

 ;;3.64,"148,3",1,0)

 ;;^^1^1^2951109^

 ;;3.64,"148,3",1,1,0)

 ;;Ten character referral number.

 ;;3.64,"148,4",.01)

 ;;4

 ;;3.64,"148,4",1,0)

 ;;^^1^1^2951228^^^

 ;;3.64,"148,4",1,1,0)

 ;;Name of provider requesting referral.

 ;;21,"800.00 ")

 ;;1

 ;;9002226,116,.01)

 ;;BMC 3RD PARTY LIABILITY ALERT

 ;;9002226,116,.02)

 ;;POSSIBLE THIRD PARTY LIABILITY

 ;;9002226,116,.04)

 ;;n

 ;;9002226,116,.08)

 ;;0

 ;;9002226,116,.09)

 ;;2951201

 ;;9002226,116,.12)

 ;;31

 ;;9002226,116,.13)

 ;;1

 ;;9002226,116,.14)

 ;;BA

 ;;9002226,116,.15)

 ;;80

 ;;9002226,116,.16)

 ;;1

 ;;9002226.02101,"116,800.00 ",.01)

 ;;800.00

 ;;9002226.02101,"116,800.00 ",.02)

 ;;994.9

 ;

OTHER ; OTHER ROUTINES

 Q

BMCTXA    ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ; 

 +1       ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006

 +2       ;;BMC 3RD PARTY LIABILITY ALERT

 +3       ;

 +4       ; This routine loads Taxonomy BMC 3RD PARTY LIABILITY ALERT

 +5       ;

START     ;

 +1        IF '$GET(ATXPGMC)

               KILL ^TMP("ATX",$JOB)

 +2        SET ATXPGMC=$GET(ATXPGMC)+1

 +3        FOR ATXI=1:1

               SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)

               IF X=""

                   QUIT 

               SET X="^TMP(""ATX"",$J,"_X

               SET ATXI=ATXI+1

               SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)

               SET @X=Y

 +4        DO OTHER

 +5        IF $ORDER(^TMP("ATX",$JOB,3.6,0))

               DO BULL^ATXSTX2

 +6        IF $ORDER(^TMP("ATX",$JOB,9002226,0))

               DO TAX^ATXSTX2

 +7        DO KILL^ATXSTX2

 +8        QUIT 

 +9       ;

TMP       ;;TAXONOMY (WITH BULLETIN)

 +1       ;;3.6,148,.01)

 +2       ;;BMC RCIS ALERT 3RD PARTY

 +3       ;;3.6,148,2)

 +4       ;;POSSIBLE 3RD PARTY LIABILITY

 +5       ;;3.63,148,1,0)

 +6       ;;^^6^6^2951228^^^^

 +7       ;;3.63,148,1,1,0)

 +8       ;;Patient Name: |1|    Date Referral Initiated:  |2|

 +9       ;;3.63,148,1,2,0)

 +10      ;;Referral #:  |3|  

 +11      ;;3.63,148,1,3,0)

 +12      ;;Requesting Provider:  |4|

 +13      ;;3.63,148,1,4,0)

 +14      ;; 

 +15      ;;3.63,148,1,5,0)

 +16      ;;This referral is for a diagnostic category that may involve third party

 +17      ;;3.63,148,1,6,0)

 +18      ;;liability.

 +19      ;;3.63,148,3,0)

 +20      ;;^^4^4^2951228^^^^

 +21      ;;3.63,148,3,1,0)

 +22      ;;This bulletin is sent to the CHS supervisor if the referral is a type

 +23      ;;3.63,148,3,2,0)

 +24      ;;CHS.  It is sent to the business office if it is a type IHS.  In either

 +25      ;;3.63,148,3,3,0)

 +26      ;;case it is sent to the RCIS Case Manager.  If it is type OTHER no

 +27      ;;3.63,148,3,4,0)

 +28      ;;bulletin is sent.

 +29      ;;3.64,"148,1",.01)

 +30      ;;1

 +31      ;;3.64,"148,1",1,0)

 +32      ;;^^1^1^2951109^

 +33      ;;3.64,"148,1",1,1,0)

 +34      ;;Name of patient being referred.

 +35      ;;3.64,"148,2",.01)

 +36      ;;2

 +37      ;;3.64,"148,2",1,0)

 +38      ;;^^1^1^2951109^

 +39      ;;3.64,"148,2",1,1,0)

 +40      ;;Date referral initiated.

 +41      ;;3.64,"148,3",.01)

 +42      ;;3

 +43      ;;3.64,"148,3",1,0)

 +44      ;;^^1^1^2951109^

 +45      ;;3.64,"148,3",1,1,0)

 +46      ;;Ten character referral number.

 +47      ;;3.64,"148,4",.01)

 +48      ;;4

 +49      ;;3.64,"148,4",1,0)

 +50      ;;^^1^1^2951228^^^

 +51      ;;3.64,"148,4",1,1,0)

 +52      ;;Name of provider requesting referral.

 +53      ;;21,"800.00 ")

 +54      ;;1

 +55      ;;9002226,116,.01)

 +56      ;;BMC 3RD PARTY LIABILITY ALERT

 +57      ;;9002226,116,.02)

 +58      ;;POSSIBLE THIRD PARTY LIABILITY

 +59      ;;9002226,116,.04)

 +60      ;;n

 +61      ;;9002226,116,.08)

 +62      ;;0

 +63      ;;9002226,116,.09)

 +64      ;;2951201

 +65      ;;9002226,116,.12)

 +66      ;;31

 +67      ;;9002226,116,.13)

 +68      ;;1

 +69      ;;9002226,116,.14)

 +70      ;;BA

 +71      ;;9002226,116,.15)

 +72      ;;80

 +73      ;;9002226,116,.16)

 +74      ;;1

 +75      ;;9002226.02101,"116,800.00 ",.01)

 +76      ;;800.00

 +77      ;;9002226.02101,"116,800.00 ",.02)

 +78      ;;994.9

 +79      ;

OTHER     ; OTHER ROUTINES

 +1        QUIT