ACHSPOS5 ; IHS/ITSC/PMF - DATA FOR MEDICAL PRIORITY FILE FORCE ENTRY ; [ 10/19/2001 11:00 AM ]
;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001
;
S $ZT="ERROR^"_$ZN
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,XPDABORT=1 D START^ACHSPOSM(ERROR) Q
;
;IF FILE CHECKSOK THEN FILE HAS ENTRIES DON'T OVERWRITE
I $$CHECKSOK("") S %H=$H D YX^%DTC S NOW=Y S ^ACHSINST(ACHSVERS,$ZN,"CHS MEDICAL PRIORITY DATA FOUND")=NOW W !?15,"'MEDICAL PRIORITY' data found! Not overwriting!" D END Q
;
;
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)
D ENTER
;
END S %H=$H D YX^%DTC S NOW=Y
S ^ACHSINST(ACHSVERS,$ZN,"FINISHED")=NOW
;
Q
;
;PLACE CODE FOR FORCE ENTRY INTO ^ACHSMPRI HERE
ENTER ;
;
S %H=$H D YX^%DTC S NOW=Y
S ^ACHSINST(ACHSVERS,"ENTER^"_$ZN,"ENTERED")=NOW
;
W !?15,"Cannot find 'CHS MEDICAL PRIORITY' data not found....."
W !?15,"Adding now........"
S X="^TMP("_$J_",""MPRI"")"
F S X=$Q(@X) Q:X=""!(X'[("""MPRI""")) D
.S GLOBAL="^ACHSMPRI("_$P(X,",",3,99)
.S @GLOBAL=@X
S DIK="^ACHSMPRI(" D IXALL^DIK
W !,"Done."
;
S %H=$H D YX^%DTC S NOW=Y
S ^ACHSINST(ACHSVERS,"ENTER^"_$ZN,"FINISHED")=NOW
Q
;
;RESET O NODE AND RETURN NUMBER OF ENTRIES
CHECKSOK(X) ;
I '$D(^ACHSMPRI(0)) S ACHSMPRI(0)="CHS MEDICAL PRIORITY^9002073.1^0^0"
S XBCFIXFL=9002073.1
D XBCFIXFL^XBCFIX
Q $G(XBCFIXC)
;
ERROR S ^ACHSINST(ACHSVERS,"ERROR",$ZN,"ERROR TRAP CALLED")=NOW
G ^%ET
Q
TAG ;
;;^TMP($J,"MPRI",1,0)
;;I EMERGENT/ACUTELY URGENT CARE^EMERGENT/ACUTELY URGENT CARE
;;^TMP($J,"MPRI",1,1,0)
;;^9002073.12^7^7^
;;^TMP($J,"MPRI",1,1,1,0)
;;I - EMERGENT/ACUTELY URGENT CARE: Diagnostic or therapeutic services
;;^TMP($J,"MPRI",1,1,2,0)
;;which are necessary to prevent the immediate death or serious impairment
;;^TMP($J,"MPRI",1,1,3,0)
;;of the health of the individual, and which, because of the threat to the
;;^TMP($J,"MPRI",1,1,4,0)
;;life or health of the individual, necessitate the use of the most
;;^TMP($J,"MPRI",1,1,5,0)
;;accessible health care available and capable of furnishing such services.
;;^TMP($J,"MPRI",1,1,6,0)
;;Diagnosis and treatment of injuries or medical conditions that, if left
;;^TMP($J,"MPRI",1,1,7,0)
;;untreated, would result in uncertain but potentially grave outcomes.
;;^TMP($J,"MPRI",2,0)
;;II PREVENTIVE CARE^PREVENTIVE CARE
;;^TMP($J,"MPRI",2,1,0)
;;^9002073.12^6^6^
;;^TMP($J,"MPRI",2,1,1,0)
;;II - PREVENTIVE CARE: Primary health care that is aimed at the prevention
;;^TMP($J,"MPRI",2,1,2,0)
;;of long term disability. This includes services proven effective in
;;^TMP($J,"MPRI",2,1,3,0)
;;avoiding the occurrence of a disease (primary prevention) and services
;;^TMP($J,"MPRI",2,1,4,0)
;;proven effective in mitigating the consequences of an illness or condition
;;^TMP($J,"MPRI",2,1,5,0)
;;(secondary prevention). Level II services are available at most IHS
;;^TMP($J,"MPRI",2,1,6,0)
;;facilities.
;;^TMP($J,"MPRI",3,0)
;;III PRIMARY AND SECONDARY CARE^PRIMARY AND SECONDARY CARE
;;^TMP($J,"MPRI",3,1,0)
;;^9002073.12^8^8^
;;^TMP($J,"MPRI",3,1,1,0)
;;III - PRIMARY AND SECONDARY CARE: Inpatient and outpatient care services
;;^TMP($J,"MPRI",3,1,2,0)
;;that involve the treatment of prevalent illnesses or conditions that have
;;^TMP($J,"MPRI",3,1,3,0)
;;a significant impact on morbidity and mortality. This involves treatment
;;^TMP($J,"MPRI",3,1,4,0)
;;for conditions that may be delayed without progressive loss of function or
;;^TMP($J,"MPRI",3,1,5,0)
;;risk of life, limb or senses. It includes services that may not be
;;^TMP($J,"MPRI",3,1,6,0)
;;available at many IHS facilities and/or may require specialty
;;^TMP($J,"MPRI",3,1,7,0)
;;consultation. Level III referrals should be approved by the local CHS
;;^TMP($J,"MPRI",3,1,8,0)
;;committee or clinical director before the services are rendered.
;;^TMP($J,"MPRI",4,0)
;;IV CHRONIC TERTIARY AND EXTENDED CARE^CHRONIC TERTIARY AND EXTENDED CARE
;;^TMP($J,"MPRI",4,1,0)
;;^9002073.12^14^14^
;;^TMP($J,"MPRI",4,1,1,0)
;;IV - CHRONIC TERTIARY AND EXTENDED CARE: Inpatient and outpatient care
;;^TMP($J,"MPRI",4,1,2,0)
;;services
;;^TMP($J,"MPRI",4,1,3,0)
;;(1) that require sophisticated specialists or equipment and
;;^TMP($J,"MPRI",4,1,4,0)
;;tertiary care facilities,
;;^TMP($J,"MPRI",4,1,5,0)
;;(2) that are not essential for initial/emergent diagnosis or
;;^TMP($J,"MPRI",4,1,6,0)
;;therapy, or
;;^TMP($J,"MPRI",4,1,7,0)
;;(3) that are high cost, are elective, and have less impact on
;;^TMP($J,"MPRI",4,1,8,0)
;;mortality than morbidity.
;;^TMP($J,"MPRI",4,1,9,0)
;;
;;^TMP($J,"MPRI",4,1,10,0)
;;These services are not readily available from direct care IHS
;;^TMP($J,"MPRI",4,1,11,0)
;;facilities. Careful case management by the service unit CHS committee is
;;^TMP($J,"MPRI",4,1,12,0)
;;a requirement, as is monitoring by the Area Chief Medical Officer, or
;;^TMP($J,"MPRI",4,1,13,0)
;;his/her designee. Depending on cost, the referral may require concurrence
;;^TMP($J,"MPRI",4,1,14,0)
;;by the Chief Medical Officer.
;;^TMP($J,"MPRI",5,0)
;;V EXCLUDED^EXCLUDED
;;^TMP($J,"MPRI",5,1,0)
;;^9002073.12^2^2
;;^TMP($J,"MPRI",5,1,1,0)
;;V - EXCLUDED CARE: Services and procedures that are considered purely cosmetic
;;^TMP($J,"MPRI",5,1,2,0)
;;in nature, experimental or investigational, or have no proven medical benefit.
ACHSPOS5 ; IHS/ITSC/PMF - DATA FOR MEDICAL PRIORITY FILE FORCE ENTRY ; [ 10/19/2001 11:00 AM ]
+1 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001
+2 ;
+3 SET $ZT="ERROR^"_$ZN
+4 SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
+5 SET ^ACHSINST(ACHSVERS,$ZN,"ENTERED")=NOW
+6 ;
+7 IF $DATA(ACHSINST(ACHSVERS,"ERROR"))
SET ^ACHSINST(ACHSVERS,"ERROR","PREVIOUS ERRORS HAVE NOT BEEN CLEARED")=NOW
SET ERROR=1
SET XPDABORT=1
DO START^ACHSPOSM(ERROR)
QUIT
+8 ;
+9 ;IF FILE CHECKSOK THEN FILE HAS ENTRIES DON'T OVERWRITE
+10 IF $$CHECKSOK("")
SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
SET ^ACHSINST(ACHSVERS,$ZN,"CHS MEDICAL PRIORITY DATA FOUND")=NOW
WRITE !?15,"'MEDICAL PRIORITY' data found! Not overwriting!"
DO END
QUIT
+11 ;
+12 ;
+13 NEW A,B,C
+14 FOR A=1:2
SET B=$PIECE($TEXT(TAG+A),";;",2)
IF B=""
QUIT
SET @B=$PIECE($TEXT(TAG+(A+1)),";;",2)
+15 DO ENTER
+16 ;
END SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
+1 SET ^ACHSINST(ACHSVERS,$ZN,"FINISHED")=NOW
+2 ;
+3 QUIT
+4 ;
+5 ;PLACE CODE FOR FORCE ENTRY INTO ^ACHSMPRI HERE
ENTER ;
+1 ;
+2 SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
+3 SET ^ACHSINST(ACHSVERS,"ENTER^"_$ZN,"ENTERED")=NOW
+4 ;
+5 WRITE !?15,"Cannot find 'CHS MEDICAL PRIORITY' data not found....."
+6 WRITE !?15,"Adding now........"
+7 SET X="^TMP("_$JOB_",""MPRI"")"
+8 FOR
SET X=$QUERY(@X)
IF X=""!(X'[("""MPRI"""))
QUIT
Begin DoDot:1
+9 SET GLOBAL="^ACHSMPRI("_$PIECE(X,",",3,99)
+10 SET @GLOBAL=@X
End DoDot:1
+11 SET DIK="^ACHSMPRI("
DO IXALL^DIK
+12 WRITE !,"Done."
+13 ;
+14 SET %H=$HOROLOG
DO YX^%DTC
SET NOW=Y
+15 SET ^ACHSINST(ACHSVERS,"ENTER^"_$ZN,"FINISHED")=NOW
+16 QUIT
+17 ;
+18 ;RESET O NODE AND RETURN NUMBER OF ENTRIES
CHECKSOK(X) ;
+1 IF '$DATA(^ACHSMPRI(0))
SET ACHSMPRI(0)="CHS MEDICAL PRIORITY^9002073.1^0^0"
+2 SET XBCFIXFL=9002073.1
+3 DO XBCFIXFL^XBCFIX
+4 QUIT $GET(XBCFIXC)
+5 ;
ERROR SET ^ACHSINST(ACHSVERS,"ERROR",$ZN,"ERROR TRAP CALLED")=NOW
+1 GOTO ^%ET
+2 QUIT
TAG ;
+1 ;;^TMP($J,"MPRI",1,0)
+2 ;;I EMERGENT/ACUTELY URGENT CARE^EMERGENT/ACUTELY URGENT CARE
+3 ;;^TMP($J,"MPRI",1,1,0)
+4 ;;^9002073.12^7^7^
+5 ;;^TMP($J,"MPRI",1,1,1,0)
+6 ;;I - EMERGENT/ACUTELY URGENT CARE: Diagnostic or therapeutic services
+7 ;;^TMP($J,"MPRI",1,1,2,0)
+8 ;;which are necessary to prevent the immediate death or serious impairment
+9 ;;^TMP($J,"MPRI",1,1,3,0)
+10 ;;of the health of the individual, and which, because of the threat to the
+11 ;;^TMP($J,"MPRI",1,1,4,0)
+12 ;;life or health of the individual, necessitate the use of the most
+13 ;;^TMP($J,"MPRI",1,1,5,0)
+14 ;;accessible health care available and capable of furnishing such services.
+15 ;;^TMP($J,"MPRI",1,1,6,0)
+16 ;;Diagnosis and treatment of injuries or medical conditions that, if left
+17 ;;^TMP($J,"MPRI",1,1,7,0)
+18 ;;untreated, would result in uncertain but potentially grave outcomes.
+19 ;;^TMP($J,"MPRI",2,0)
+20 ;;II PREVENTIVE CARE^PREVENTIVE CARE
+21 ;;^TMP($J,"MPRI",2,1,0)
+22 ;;^9002073.12^6^6^
+23 ;;^TMP($J,"MPRI",2,1,1,0)
+24 ;;II - PREVENTIVE CARE: Primary health care that is aimed at the prevention
+25 ;;^TMP($J,"MPRI",2,1,2,0)
+26 ;;of long term disability. This includes services proven effective in
+27 ;;^TMP($J,"MPRI",2,1,3,0)
+28 ;;avoiding the occurrence of a disease (primary prevention) and services
+29 ;;^TMP($J,"MPRI",2,1,4,0)
+30 ;;proven effective in mitigating the consequences of an illness or condition
+31 ;;^TMP($J,"MPRI",2,1,5,0)
+32 ;;(secondary prevention). Level II services are available at most IHS
+33 ;;^TMP($J,"MPRI",2,1,6,0)
+34 ;;facilities.
+35 ;;^TMP($J,"MPRI",3,0)
+36 ;;III PRIMARY AND SECONDARY CARE^PRIMARY AND SECONDARY CARE
+37 ;;^TMP($J,"MPRI",3,1,0)
+38 ;;^9002073.12^8^8^
+39 ;;^TMP($J,"MPRI",3,1,1,0)
+40 ;;III - PRIMARY AND SECONDARY CARE: Inpatient and outpatient care services
+41 ;;^TMP($J,"MPRI",3,1,2,0)
+42 ;;that involve the treatment of prevalent illnesses or conditions that have
+43 ;;^TMP($J,"MPRI",3,1,3,0)
+44 ;;a significant impact on morbidity and mortality. This involves treatment
+45 ;;^TMP($J,"MPRI",3,1,4,0)
+46 ;;for conditions that may be delayed without progressive loss of function or
+47 ;;^TMP($J,"MPRI",3,1,5,0)
+48 ;;risk of life, limb or senses. It includes services that may not be
+49 ;;^TMP($J,"MPRI",3,1,6,0)
+50 ;;available at many IHS facilities and/or may require specialty
+51 ;;^TMP($J,"MPRI",3,1,7,0)
+52 ;;consultation. Level III referrals should be approved by the local CHS
+53 ;;^TMP($J,"MPRI",3,1,8,0)
+54 ;;committee or clinical director before the services are rendered.
+55 ;;^TMP($J,"MPRI",4,0)
+56 ;;IV CHRONIC TERTIARY AND EXTENDED CARE^CHRONIC TERTIARY AND EXTENDED CARE
+57 ;;^TMP($J,"MPRI",4,1,0)
+58 ;;^9002073.12^14^14^
+59 ;;^TMP($J,"MPRI",4,1,1,0)
+60 ;;IV - CHRONIC TERTIARY AND EXTENDED CARE: Inpatient and outpatient care
+61 ;;^TMP($J,"MPRI",4,1,2,0)
+62 ;;services
+63 ;;^TMP($J,"MPRI",4,1,3,0)
+64 ;;(1) that require sophisticated specialists or equipment and
+65 ;;^TMP($J,"MPRI",4,1,4,0)
+66 ;;tertiary care facilities,
+67 ;;^TMP($J,"MPRI",4,1,5,0)
+68 ;;(2) that are not essential for initial/emergent diagnosis or
+69 ;;^TMP($J,"MPRI",4,1,6,0)
+70 ;;therapy, or
+71 ;;^TMP($J,"MPRI",4,1,7,0)
+72 ;;(3) that are high cost, are elective, and have less impact on
+73 ;;^TMP($J,"MPRI",4,1,8,0)
+74 ;;mortality than morbidity.
+75 ;;^TMP($J,"MPRI",4,1,9,0)
+76 ;;
+77 ;;^TMP($J,"MPRI",4,1,10,0)
+78 ;;These services are not readily available from direct care IHS
+79 ;;^TMP($J,"MPRI",4,1,11,0)
+80 ;;facilities. Careful case management by the service unit CHS committee is
+81 ;;^TMP($J,"MPRI",4,1,12,0)
+82 ;;a requirement, as is monitoring by the Area Chief Medical Officer, or
+83 ;;^TMP($J,"MPRI",4,1,13,0)
+84 ;;his/her designee. Depending on cost, the referral may require concurrence
+85 ;;^TMP($J,"MPRI",4,1,14,0)
+86 ;;by the Chief Medical Officer.
+87 ;;^TMP($J,"MPRI",5,0)
+88 ;;V EXCLUDED^EXCLUDED
+89 ;;^TMP($J,"MPRI",5,1,0)
+90 ;;^9002073.12^2^2
+91 ;;^TMP($J,"MPRI",5,1,1,0)
+92 ;;V - EXCLUDED CARE: Services and procedures that are considered purely cosmetic
+93 ;;^TMP($J,"MPRI",5,1,2,0)
+94 ;;in nature, experimental or investigational, or have no proven medical benefit.
