ACHSPOS4 ; IHS/ITSC/PMF - DATA FOR DENIAL FACILITY FILE ; [ 10/19/2001 11:00 AM ]
;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001
;
;CURRENTLY THE NODES THE CHS WORKGROUP WANTS TO BE MANDATED. THE
;CONTENT OF THESE NODES WILL BE AUTHORED BY THE WORKGROUP AND ONCE
;WRITTEN WILL BE INSTALLED AT THE SITES. THESE FIELDS ARE NOT
;EDITABLE FROM THE MENUS.
;THE NODES ARE:
; 2 'MIDDLE TEXT'
; 3 'BOTTOM TEXT'
; 7 'TEXT FOR SIGNATURE'
; 9 'CLOSING TEXT'
;
;WHEN INSTALLING SET THE 'MANDATED' VAR EQUAL TO THE STRING OF NODE
;NUMBERS SEPARATED BY ^ THAT YOU WISH TO BE MANDATED. IF THE NODE
;NUMBER IS IN THIS STRING IT WILL BE OVERWRITTEN AT THE SITE NO MATTER
;WHAT. BEGIN AND END THE STRING WITH ^
;E.G. S U="^"
; S MANDATED=U_2_U_3_U
;
;YOU CAN USE THIS ROUTINE TO MODIFY/UPDATE THE DENIAL LETTERS TO
;REFLECT REGULATORY CHANGES MANDATED BY THE CHS WORKGROUP. IT WILL
;UPDATE ACTIVE FACILITIES FOUND in the facility file
;
S U="^"
S MANDATED=U_2_U_3_U_7_U_9_U ;MANDATED NODES PER CHS WORKGROUP
S $ZT="ERROR^"_$ZN ;AS OF 2/22/01
S %H=$H D YX^%DTC S NOW=Y
S ^ACHSINST(ACHSVERS,$ZN,"ENTERED")=NOW
;
I $D(ACHSINST(ACHSVERS,"ERROR")) S ^ACHSINST(ACHSVERS,"ERROR","PREVIOUS ERRORS HAVE NOT BEEN CLEARED")=NOW S ERROR=1 S XPDABORT=1 Q
;
;
MAIN N A,B,C
F A=1:2 S B=$P($T(TAG+A),";;",2) Q:B="" S @B=$P($T(TAG+(A+1)),";;",2)
;
;FOR EACH ACTIVE FACILITY FOUND SET UP
;INITIAL 'CHS DENIAL FACILITY' ENTRY
S ^ACHSINST(ACHSVERS,$ZN,"SET UP CHS DENIAL FACILITY ENTRIES","STARTED")=NOW
;
S ACHSFAC="" F S ACHSFAC=$O(^ACHSF("B",ACHSFAC)) Q:ACHSFAC="" D ENTER
;
;INDEX THE FILE
S DIK="^ACHSDENR("
D IXALL^DIK
;
S ^ACHSINST(ACHSVERS,$ZN,"SET UP CHS DENIAL FACILITY ENTRIES","FINISHED")=NOW
;
END S %H=$H D YX^%DTC S NOW=Y
S ^ACHSINST(ACHSVERS,$ZN,"FINISHED")=NOW
;
Q
ENTER ;PLACE CODE FOR FORCE ENTRY TO ^ACHSDENR HERE
;
S %H=$H D YX^%DTC S NOW=Y
S ^ACHSINST(ACHSVERS,"ENTER^"_$ZN,"ENTERED")=NOW
;
I $D(^ACHSDENR(ACHSFAC,0)) W !?15,"'CHS DENIAL FACILITY' data for ",ACHSFAC," found! Loading mandatory data!"
E W !?15,"'CHS DENIAL FACILITY' data for ",ACHSFAC," not found! Loading complete data!"
;
;OVERWRITE NODES THAT ARE CONTAINED BY VARIABLE 'MANDATED'
;FIRST WE'LL GET RID OF THOSE NAUGHTY NODES
F PIECE=2:1 S NODE=$P(MANDATED,U,PIECE) Q:NODE="" D
.K ^ACHSDENR(ACHSFAC,NODE)
;
S X="^TMP("_$J_",""FAC"")"
F S X=$Q(@X) Q:X=""!(X'[("""FAC"""))!($P($P(X,","),"(",2)'=$J) D
.S GLOBAL="^ACHSDENR("_ACHSFAC_$P(X,"""FAC""",2)
.I @X[("ACHSFAC") D
..Q:$D(@GLOBAL) ;DO NOT SET IF ALREADY THERE
..S @GLOBAL=ACHSFAC_U_$P(@X,U,2,99)
.E Q:$D(@GLOBAL) S @GLOBAL=@X ;IF ALREADY THERE LEAVE
;
S %H=$H D YX^%DTC S NOW=Y
S ^ACHSINST(ACHSVERS,"ENTER^"_$ZN,"FINISHED")=NOW
Q
;
;****USED INDEPENDENTLY OF A GENERAL INSTALL***
;UPDATE DENIAL LETTERS FOR ACTIVE FACILITIES BASED ON CHS WORKGROUP
;MANDATORY CHANGE IN DENIAL LETTERS
;STEP 1) SET THE VARIABLE MANDATED TO INCLUDE THE NODES WHICH WILL
; BE CHANGED WHETHER SITES WANT IT OR NOT
;STEP 2) CHANGE THE TEXT TO BE CHANGED IN THE LINES PAST TAG 'TAG'
;
UPDATE ;
S U="^",$P(LINE,"*",81)=""
S %H=$H D YX^%DTC S NOW=Y
S ACHSVERS="V"_$P($P($T(+2),";;",2),";")
S ^ACHSINST("UPDATE",ACHSVERS,"UPDATE^"_$ZN,"ENTERED")=NOW
;
S MANDATED=U_2_U_3_U_7_U_9_U ;INCLUDE NODES TO BE OVERWRITTEN
D MAIN ;INSTALL NEW DENIAL LETTER ENTRIES
;
S %H=$H D YX^%DTC S NOW=Y
S ^ACHSINST("UPDATE",ACHSVERS,"UPDATE^"_$ZN,"FINISHED")=NOW
Q
;
ERROR S ^ACHSINST(ACHSVERS,"ERROR",$ZN,"ERROR TRAP CALLED")=NOW
G ^%ET
Q
TAG ;
;;^TMP($J,"FAC",0)
;;ACHSFAC^^1^1^1^N^N
;;^TMP($J,"FAC",2,0)
;;^9002072.03^2^2
;;^TMP($J,"FAC",2,1,0)
;;We have been requested to authorize payment for services received from the above provider(s). Regretfully, we must advise you the Indian Health
;;^TMP($J,"FAC",2,2,0)
;;Service (IHS) will not pay for charges for the following reason(s):
;;^TMP($J,"FAC",3,0)
;;^9002072.04^1^3
;;^TMP($J,"FAC",3,1,0)
;;If you have additional information that may be helpful in reconsidering
;;^TMP($J,"FAC",3,2,0)
;;our decision, please submit, in writing, within 30 days of receipt of this
;;^TMP($J,"FAC",3,3,0)
;;letter to:
;;^TMP($J,"FAC",7,0)
;;^9002072.07^1^1
;;^TMP($J,"FAC",7,1,0)
;;Sincerely,
;;^TMP($J,"FAC",9,0)
;;^9002072.11^1^1
;;^TMP($J,"FAC",9,1,0)
;;If you do not have additional information, you may appeal in writing, within 30 days of receipt of this letter:
;;^TMP($J,"FAC",10,0)
;;^9002072.08^10^10
;;^TMP($J,"FAC",10,1,0)
;;The information provided to the CHS office indicates that you may be
;;^TMP($J,"FAC",10,2,0)
;;qualified for an alternate resource. Pursuant to IHS regulations, 42 CFR
;;^TMP($J,"FAC",10,3,0)
;;Part C, you are required to make a good faith effort to apply for and
;;^TMP($J,"FAC",10,4,0)
;;complete an application for alternate resources. You must provide this
;;^TMP($J,"FAC",10,5,0)
;;facility with a copy of the alternate resource program's eligibility
;;^TMP($J,"FAC",10,6,0)
;;determination.
;;^TMP($J,"FAC",10,7,0)
;;
;;^TMP($J,"FAC",10,8,0)
;;
;;^TMP($J,"FAC",10,9,0)
;;THE APPLICATION PROCESS REQUIRES YOU TO DO THE FOLLOWING:
;;^TMP($J,"FAC",10,10,0)
;;
;;^TMP($J,"FAC",11,0)
;;^9002072.011^6^6
;;^TMP($J,"FAC",11,1,0)
;;IF YOU ARE UNABLE TO APPLY FOR AN ALTERNATE RESOURCE OR ARE HAVING
;;^TMP($J,"FAC",11,2,0)
;;DIFFICULTY APPLYING, THE CHS OFFICE IS AVAILABLE TO ASSIST YOU. PLEASE
;;^TMP($J,"FAC",11,3,0)
;;CONTACT THE OFFICE LISTED BELOW FOR ASSISTANCE. IF AN ALTERNATE RESOURCE
;;^TMP($J,"FAC",11,4,0)
;;APPLICATION IS NOT COMPLETED, OR IF YOU DO NOT CONTACT THE CHS OFFICE FOR
;;^TMP($J,"FAC",11,5,0)
;;ASSISTANCE IN COMPLETING AN APPLICATION, WITHIN 30 DAYS OF THE DATE OF THIS
;;^TMP($J,"FAC",11,6,0)
;;NOTICE, THIS CHS PAYMENT DENIAL LETTER WILL BECOME FINAL.
;;^TMP($J,"FAC",12,0)
;;^9002072.012A^4^4
;;^TMP($J,"FAC",12,1,0)
;;CONTACT ALT RES
;;^TMP($J,"FAC",12,1,1,0)
;;CONTACT ALT RES
;;^TMP($J,"FAC",12,1,1,1,0)
;;You must contact the other resource(s) listed above to make an application,
;;^TMP($J,"FAC",12,1,1,2,0)
;;schedule an appointment, and attend the appointment as scheduled.
;;^TMP($J,"FAC",12,2,0)
;;PROVIDE DOCUMENTATION
;;^TMP($J,"FAC",12,2,1,0)
;;CONTACT ALT RES
;;^TMP($J,"FAC",12,2,1,1,0)
;;You will need to bring the listed documentation to the appointment. You
;;^TMP($J,"FAC",12,2,1,2,0)
;;might also have to provide the alternate resource program with additional
;;^TMP($J,"FAC",12,2,1,3,0)
;;documentation specifically requested prior to or during the appointment.
;;^TMP($J,"FAC",12,3,0)
;;TRANSPORTATION
;;^TMP($J,"FAC",12,3,1,0)
;;CONTACT ALT RES
;;^TMP($J,"FAC",12,3,1,1,0)
;;The CHS office will provide transportation for you to attend your scheduled appointment. Please contact the office listed below for more information.
;;^TMP($J,"FAC",12,4,0)
;;FREE TEXT
;;^TMP($J,"FAC",13,0)
;;^9002072.013^2^2
;;^TMP($J,"FAC",13,1,0)
;;PROGRAM NOT RESPONSIBLE
;;^TMP($J,"FAC",13,1,1,0)
;;^9002072.013^4^4^2940809^^
;;^TMP($J,"FAC",13,1,1,1,0)
;;The IHS appeals this decision denying payment of medical care benefits solely because the program views itself as not responsible for Native American health care because the IHS is the "primary" payor for such care.
;;^TMP($J,"FAC",13,1,1,2,0)
;;Such decisions lack any legal basis and may violate county, state, and/or federal law, including, but not limited to, the equal protection clause of the fourteenth amendment to the United States Constitution and the
;;^TMP($J,"FAC",13,1,1,3,0)
;;"payor of last resort rule" governing allocation of Indian Health Service resources, see 55 F.R. 4606(February 9, 1990); Mcnabb v. Bowen, 829 F.2d 787, 790 (9th Cir, 1987); State of Arizona v. United States, No. 87-2525
;;^TMP($J,"FAC",13,1,1,4,0)
;;(9th Cir. September 12, 1990 - unpublished memorandum); State of Arizona v. United States, No. 86-1105 PHX CLH, (May 18, 1990 - unpublished memorandum decision).
;;^TMP($J,"FAC",13,2,0)
;;FREE TEXT
;;^TMP($J,"FAC",100)
;;SERVICE UNIT DIRECTOR^STREET ADDRESS^CITY^STATE^ZIP^TELEPHONE
;;^TMP($J,"FAC",200)
;;AREA DIRECTOR^STREET ADDRESS^CITY^STATE^ZIP^TELEPHONE
;;
ACHSPOS4 ; IHS/ITSC/PMF - DATA FOR DENIAL FACILITY FILE ; [ 10/19/2001 11:00 AM ]
+1 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001
+2 ;
+3 ;CURRENTLY THE NODES THE CHS WORKGROUP WANTS TO BE MANDATED. THE
+4 ;CONTENT OF THESE NODES WILL BE AUTHORED BY THE WORKGROUP AND ONCE
+5 ;WRITTEN WILL BE INSTALLED AT THE SITES. THESE FIELDS ARE NOT
+6 ;EDITABLE FROM THE MENUS.
+7 ;THE NODES ARE:
+8 ; 2 'MIDDLE TEXT'
+9 ; 3 'BOTTOM TEXT'
+10 ; 7 'TEXT FOR SIGNATURE'
+11 ; 9 'CLOSING TEXT'
+12 ;
+13 ;WHEN INSTALLING SET THE 'MANDATED' VAR EQUAL TO THE STRING OF NODE
+14 ;NUMBERS SEPARATED BY ^ THAT YOU WISH TO BE MANDATED. IF THE NODE
+15 ;NUMBER IS IN THIS STRING IT WILL BE OVERWRITTEN AT THE SITE NO MATTER
+16 ;WHAT. BEGIN AND END THE STRING WITH ^
+17 ;E.G. S U="^"
+18 ; S MANDATED=U_2_U_3_U
+19 ;
+20 ;YOU CAN USE THIS ROUTINE TO MODIFY/UPDATE THE DENIAL LETTERS TO
+21 ;REFLECT REGULATORY CHANGES MANDATED BY THE CHS WORKGROUP. IT WILL
+22 ;UPDATE ACTIVE FACILITIES FOUND in the facility file
+23 ;
+24 SET U="^"
+25 ;MANDATED NODES PER CHS WORKGROUP
SET MANDATED=U_2_U_3_U_7_U_9_U
+26 ;AS OF 2/22/01
SET $ZT="ERROR^"_$ZN
+27 SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
+28 SET ^ACHSINST(ACHSVERS,$ZN,"ENTERED")=NOW
+29 ;
+30 IF $DATA(ACHSINST(ACHSVERS,"ERROR"))
SET ^ACHSINST(ACHSVERS,"ERROR","PREVIOUS ERRORS HAVE NOT BEEN CLEARED")=NOW
SET ERROR=1
SET XPDABORT=1
QUIT
+31 ;
+32 ;
MAIN NEW A,B,C
+1 FOR A=1:2
SET B=$PIECE($TEXT(TAG+A),";;",2)
IF B=""
QUIT
SET @B=$PIECE($TEXT(TAG+(A+1)),";;",2)
+2 ;
+3 ;FOR EACH ACTIVE FACILITY FOUND SET UP
+4 ;INITIAL 'CHS DENIAL FACILITY' ENTRY
+5 SET ^ACHSINST(ACHSVERS,$ZN,"SET UP CHS DENIAL FACILITY ENTRIES","STARTED")=NOW
+6 ;
+7 SET ACHSFAC=""
FOR
SET ACHSFAC=$ORDER(^ACHSF("B",ACHSFAC))
IF ACHSFAC=""
QUIT
DO ENTER
+8 ;
+9 ;INDEX THE FILE
+10 SET DIK="^ACHSDENR("
+11 DO IXALL^DIK
+12 ;
+13 SET ^ACHSINST(ACHSVERS,$ZN,"SET UP CHS DENIAL FACILITY ENTRIES","FINISHED")=NOW
+14 ;
END SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
+1 SET ^ACHSINST(ACHSVERS,$ZN,"FINISHED")=NOW
+2 ;
+3 QUIT
ENTER ;PLACE CODE FOR FORCE ENTRY TO ^ACHSDENR HERE
+1 ;
+2 SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
+3 SET ^ACHSINST(ACHSVERS,"ENTER^"_$ZN,"ENTERED")=NOW
+4 ;
+5 IF $DATA(^ACHSDENR(ACHSFAC,0))
WRITE !?15,"'CHS DENIAL FACILITY' data for ",ACHSFAC," found! Loading mandatory data!"
+6 IF '$TEST
WRITE !?15,"'CHS DENIAL FACILITY' data for ",ACHSFAC," not found! Loading complete data!"
+7 ;
+8 ;OVERWRITE NODES THAT ARE CONTAINED BY VARIABLE 'MANDATED'
+9 ;FIRST WE'LL GET RID OF THOSE NAUGHTY NODES
+10 FOR PIECE=2:1
SET NODE=$PIECE(MANDATED,U,PIECE)
IF NODE=""
QUIT
Begin DoDot:1
+11 KILL ^ACHSDENR(ACHSFAC,NODE)
End DoDot:1
+12 ;
+13 SET X="^TMP("_$JOB_",""FAC"")"
+14 FOR
SET X=$QUERY(@X)
IF X=""!(X'[("""FAC"""))!($PIECE($PIECE(X,","),"(",2)'=$JOB)
QUIT
Begin DoDot:1
+15 SET GLOBAL="^ACHSDENR("_ACHSFAC_$PIECE(X,"""FAC""",2)
+16 IF @X[("ACHSFAC")
Begin DoDot:2
+17 ;DO NOT SET IF ALREADY THERE
IF $DATA(@GLOBAL)
QUIT
+18 SET @GLOBAL=ACHSFAC_U_$PIECE(@X,U,2,99)
End DoDot:2
+19 ;IF ALREADY THERE LEAVE
IF '$TEST
IF $DATA(@GLOBAL)
QUIT
SET @GLOBAL=@X
End DoDot:1
+20 ;
+21 SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
+22 SET ^ACHSINST(ACHSVERS,"ENTER^"_$ZN,"FINISHED")=NOW
+23 QUIT
+24 ;
+25 ;****USED INDEPENDENTLY OF A GENERAL INSTALL***
+26 ;UPDATE DENIAL LETTERS FOR ACTIVE FACILITIES BASED ON CHS WORKGROUP
+27 ;MANDATORY CHANGE IN DENIAL LETTERS
+28 ;STEP 1) SET THE VARIABLE MANDATED TO INCLUDE THE NODES WHICH WILL
+29 ; BE CHANGED WHETHER SITES WANT IT OR NOT
+30 ;STEP 2) CHANGE THE TEXT TO BE CHANGED IN THE LINES PAST TAG 'TAG'
+31 ;
UPDATE ;
+1 SET U="^"
SET $PIECE(LINE,"*",81)=""
+2 SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
+3 SET ACHSVERS="V"_$PIECE($PIECE($TEXT(+2),";;",2),";")
+4 SET ^ACHSINST("UPDATE",ACHSVERS,"UPDATE^"_$ZN,"ENTERED")=NOW
+5 ;
+6 ;INCLUDE NODES TO BE OVERWRITTEN
SET MANDATED=U_2_U_3_U_7_U_9_U
+7 ;INSTALL NEW DENIAL LETTER ENTRIES
DO MAIN
+8 ;
+9 SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
+10 SET ^ACHSINST("UPDATE",ACHSVERS,"UPDATE^"_$ZN,"FINISHED")=NOW
+11 QUIT
+12 ;
ERROR SET ^ACHSINST(ACHSVERS,"ERROR",$ZN,"ERROR TRAP CALLED")=NOW
+1 GOTO ^%ET
+2 QUIT
TAG ;
+1 ;;^TMP($J,"FAC",0)
+2 ;;ACHSFAC^^1^1^1^N^N
+3 ;;^TMP($J,"FAC",2,0)
+4 ;;^9002072.03^2^2
+5 ;;^TMP($J,"FAC",2,1,0)
+6 ;;We have been requested to authorize payment for services received from the above provider(s). Regretfully, we must advise you the Indian Health
+7 ;;^TMP($J,"FAC",2,2,0)
+8 ;;Service (IHS) will not pay for charges for the following reason(s):
+9 ;;^TMP($J,"FAC",3,0)
+10 ;;^9002072.04^1^3
+11 ;;^TMP($J,"FAC",3,1,0)
+12 ;;If you have additional information that may be helpful in reconsidering
+13 ;;^TMP($J,"FAC",3,2,0)
+14 ;;our decision, please submit, in writing, within 30 days of receipt of this
+15 ;;^TMP($J,"FAC",3,3,0)
+16 ;;letter to:
+17 ;;^TMP($J,"FAC",7,0)
+18 ;;^9002072.07^1^1
+19 ;;^TMP($J,"FAC",7,1,0)
+20 ;;Sincerely,
+21 ;;^TMP($J,"FAC",9,0)
+22 ;;^9002072.11^1^1
+23 ;;^TMP($J,"FAC",9,1,0)
+24 ;;If you do not have additional information, you may appeal in writing, within 30 days of receipt of this letter:
+25 ;;^TMP($J,"FAC",10,0)
+26 ;;^9002072.08^10^10
+27 ;;^TMP($J,"FAC",10,1,0)
+28 ;;The information provided to the CHS office indicates that you may be
+29 ;;^TMP($J,"FAC",10,2,0)
+30 ;;qualified for an alternate resource. Pursuant to IHS regulations, 42 CFR
+31 ;;^TMP($J,"FAC",10,3,0)
+32 ;;Part C, you are required to make a good faith effort to apply for and
+33 ;;^TMP($J,"FAC",10,4,0)
+34 ;;complete an application for alternate resources. You must provide this
+35 ;;^TMP($J,"FAC",10,5,0)
+36 ;;facility with a copy of the alternate resource program's eligibility
+37 ;;^TMP($J,"FAC",10,6,0)
+38 ;;determination.
+39 ;;^TMP($J,"FAC",10,7,0)
+40 ;;
+41 ;;^TMP($J,"FAC",10,8,0)
+42 ;;
+43 ;;^TMP($J,"FAC",10,9,0)
+44 ;;THE APPLICATION PROCESS REQUIRES YOU TO DO THE FOLLOWING:
+45 ;;^TMP($J,"FAC",10,10,0)
+46 ;;
+47 ;;^TMP($J,"FAC",11,0)
+48 ;;^9002072.011^6^6
+49 ;;^TMP($J,"FAC",11,1,0)
+50 ;;IF YOU ARE UNABLE TO APPLY FOR AN ALTERNATE RESOURCE OR ARE HAVING
+51 ;;^TMP($J,"FAC",11,2,0)
+52 ;;DIFFICULTY APPLYING, THE CHS OFFICE IS AVAILABLE TO ASSIST YOU. PLEASE
+53 ;;^TMP($J,"FAC",11,3,0)
+54 ;;CONTACT THE OFFICE LISTED BELOW FOR ASSISTANCE. IF AN ALTERNATE RESOURCE
+55 ;;^TMP($J,"FAC",11,4,0)
+56 ;;APPLICATION IS NOT COMPLETED, OR IF YOU DO NOT CONTACT THE CHS OFFICE FOR
+57 ;;^TMP($J,"FAC",11,5,0)
+58 ;;ASSISTANCE IN COMPLETING AN APPLICATION, WITHIN 30 DAYS OF THE DATE OF THIS
+59 ;;^TMP($J,"FAC",11,6,0)
+60 ;;NOTICE, THIS CHS PAYMENT DENIAL LETTER WILL BECOME FINAL.
+61 ;;^TMP($J,"FAC",12,0)
+62 ;;^9002072.012A^4^4
+63 ;;^TMP($J,"FAC",12,1,0)
+64 ;;CONTACT ALT RES
+65 ;;^TMP($J,"FAC",12,1,1,0)
+66 ;;CONTACT ALT RES
+67 ;;^TMP($J,"FAC",12,1,1,1,0)
+68 ;;You must contact the other resource(s) listed above to make an application,
+69 ;;^TMP($J,"FAC",12,1,1,2,0)
+70 ;;schedule an appointment, and attend the appointment as scheduled.
+71 ;;^TMP($J,"FAC",12,2,0)
+72 ;;PROVIDE DOCUMENTATION
+73 ;;^TMP($J,"FAC",12,2,1,0)
+74 ;;CONTACT ALT RES
+75 ;;^TMP($J,"FAC",12,2,1,1,0)
+76 ;;You will need to bring the listed documentation to the appointment. You
+77 ;;^TMP($J,"FAC",12,2,1,2,0)
+78 ;;might also have to provide the alternate resource program with additional
+79 ;;^TMP($J,"FAC",12,2,1,3,0)
+80 ;;documentation specifically requested prior to or during the appointment.
+81 ;;^TMP($J,"FAC",12,3,0)
+82 ;;TRANSPORTATION
+83 ;;^TMP($J,"FAC",12,3,1,0)
+84 ;;CONTACT ALT RES
+85 ;;^TMP($J,"FAC",12,3,1,1,0)
+86 ;;The CHS office will provide transportation for you to attend your scheduled appointment. Please contact the office listed below for more information.
+87 ;;^TMP($J,"FAC",12,4,0)
+88 ;;FREE TEXT
+89 ;;^TMP($J,"FAC",13,0)
+90 ;;^9002072.013^2^2
+91 ;;^TMP($J,"FAC",13,1,0)
+92 ;;PROGRAM NOT RESPONSIBLE
+93 ;;^TMP($J,"FAC",13,1,1,0)
+94 ;;^9002072.013^4^4^2940809^^
+95 ;;^TMP($J,"FAC",13,1,1,1,0)
+96 ;;The IHS appeals this decision denying payment of medical care benefits solely because the program views itself as not responsible for Native American health care because the IHS is the "primary" payor for such care.
+97 ;;^TMP($J,"FAC",13,1,1,2,0)
+98 ;;Such decisions lack any legal basis and may violate county, state, and/or federal law, including, but not limited to, the equal protection clause of the fourteenth amendment to the United States Constitution and the
+99 ;;^TMP($J,"FAC",13,1,1,3,0)
+100 ;;"payor of last resort rule" governing allocation of Indian Health Service resources, see 55 F.R. 4606(February 9, 1990); Mcnabb v. Bowen, 829 F.2d 787, 790 (9th Cir, 1987); State of Arizona v. United States, No. 87-2525
+101 ;;^TMP($J,"FAC",13,1,1,4,0)
+102 ;;(9th Cir. September 12, 1990 - unpublished memorandum); State of Arizona v. United States, No. 86-1105 PHX CLH, (May 18, 1990 - unpublished memorandum decision).
+103 ;;^TMP($J,"FAC",13,2,0)
+104 ;;FREE TEXT
+105 ;;^TMP($J,"FAC",100)
+106 ;;SERVICE UNIT DIRECTOR^STREET ADDRESS^CITY^STATE^ZIP^TELEPHONE
+107 ;;^TMP($J,"FAC",200)
+108 ;;AREA DIRECTOR^STREET ADDRESS^CITY^STATE^ZIP^TELEPHONE
+109 ;;
