EC725U02 ;ALB/GTS/JAP/JAM - EC National Procedure Update;08/10/99
;;2.0; EVENT CAPTURE ;**20**;8 May 96
;
;this routine is used as a post-init in a KIDS build
;to modify the EC National Procedure file #725
;
NAMECHG ;* change national procedure names
;
; ECXX is in format:
; NATIONAL NUMBER^NEW NAME
;
N ECX,ECXX,ECDA,DA,DR,DIC,DIE,X,Y
D MES^XPDUTL(" ")
D BMES^XPDUTL("Changing names in EC NATIONAL PROCEDURE File (#725)...")
D MES^XPDUTL(" ")
F ECX=1:1 S ECXX=$P($T(CHNG+ECX),";;",2) Q:ECXX="QUIT" D
.I $D(^EC(725,"D",$P(ECXX,U,1))) D
..S ECDA=+$O(^EC(725,"D",$P(ECXX,U,1),0))
..I $D(^EC(725,ECDA,0)) D
...S DA=ECDA,DR=".01////^S X=$P(ECXX,U,2)",DIE="^EC(725," D ^DIE
...D MES^XPDUTL(" ")
...D BMES^XPDUTL(" Entry #"_ECDA_" for "_$P(ECXX,U,1))
...D BMES^XPDUTL(" ...field (#.01) updated to "_$P(ECXX,U,2)_".")
.I '$D(^EC(725,"D",$P(ECXX,U,1))) D
..D MES^XPDUTL(" ")
..D BMES^XPDUTL("Can't find entry for "_$P(ECXX,U,1))
..D BMES^XPDUTL("...field (#.01) not updated.")
Q
;
CHNG ;name changes
;;SW006^HEALTH ED/REFER IND NEW PT 15 MIN
;;SW015^PSYCHSOC TX OPT 75-80 MIN
;;SW002^CONSULTATION INPT 10 MIN
;;SW003^DISCH PLANNING <30MIN
;;SW013^OFFICE VISIT OPT 5 MIN
;;SW014^PSYCHSOC ASSES INPT @ 30 MIN
;;SW019^HEALTHED/REFER GP (1-5) @30MIN
;;SW025^HEAKTHED/REFER GP (6-8) @30MIN
;;SW026^HEALTHED/REFER GP (9+) @30MIN
;;SW033^CONSULTATION INPT 20 MIN
;;SW034^CONSULTATION INPT 30 MIN
;;SW056^OFFICE VISIT OPT 10 MIN
;;SW057^OFFICE VISIT OPT 15 MIN
;;SW058^OFFICE VISIT OPT 25 MIN
;;SW059^OFFICE VISIT OPT 40 MIN
;;SW037^HEALTH ED/REFER IND NEW PT 30 MIN
;;SW038^HEALTH ED/REFER IND NEW PT 45 MIN
;;SW039^HEALTH ED/REFER IND NEW PT 60 MIN
;;SW060^COMP & PEN EXAM
;;SW061^PSYCHSOC TX OPT 20-30 MIN
;;SW062^PSYCHSOC TX OPT 45-50 MIN
;;QUIT
;
ADDPROC ;* add national procedures
;
; ECXX is in format:
; NAME^NATIONAL NUMBER^CPT CODE^FIRST NATIONAL NUMBER SEQUENCE
; LAST NATIONAL NUMBER SEQUENCE
;
N ECX,ECXX,ECDINUM,NAME,CODE,CPT,COUNT,X,Y,DIC,DIE,DA,DR,DLAYGO,DINUM
N ECADD,ECBEG,ECEND,CODX,NAMX,ECSEQ,LIEN
D MES^XPDUTL(" ")
D BMES^XPDUTL("Adding new procedures to EC NATIONAL PROCEDURE File (#725)...")
D MES^XPDUTL(" ")
S ECDINUM=$O(^EC(725,9999),-1),COUNT=$P(^EC(725,0),U,4)
F ECX=1:1 S ECXX=$P($T(NEW+ECX),";;",2) Q:ECXX="QUIT" D
.S NAME=$P(ECXX,U,1),CODE=$P(ECXX,U,2),CPT=$P(ECXX,U,3),CODX=CODE
.S ECBEG=$P(ECXX,U,4),ECEND=$P(ECXX,U,5),NAMX=NAME
.I ECBEG="" S X=NAME D FILPROC Q
.F ECSEQ=ECBEG:1:ECEND D
..S ECADD="000"_ECSEQ,ECADD=$E(ECADD,$L(ECADD)-2,$L(ECADD))
..S NAME=NAMX_" "_ECADD,X=NAME,CODE=CODX_ECADD
..D FILPROC
S $P(^EC(725,0),U,4)=COUNT,X=$O(^EC(725,999999),-1),$P(^EC(725,0),U,3)=X
Q
;
FILPROC ;File national procedures
;
I '$D(^EC(725,"D",CODE)) D
.S ECDINUM=ECDINUM+1,DINUM=ECDINUM,DIC(0)="L",DLAYGO=725,DIC="^EC(725,"
.S DIC("DR")="1////^S X=CODE;4////^S X=CPT"
.D FILE^DICN
.I +Y>0 D
..S COUNT=COUNT+1
..D MES^XPDUTL(" ")
..D BMES^XPDUTL(" Entry #"_+Y_" for "_$P(Y,U,2)_$S(CPT:" [CPT: "_CPT_"]",1:"")_" ("_CODE_")")
..D BMES^XPDUTL(" ...successfully added.")
.I Y=-1 D
..D MES^XPDUTL(" ")
..D BMES^XPDUTL("ERROR when attempting to add "_NAME_" ("_CODE_")")
I $D(^EC(725,"DL",CODE)) D
.S LIEN=$O(^EC(725,"DL",CODE,""))
.D MES^XPDUTL(" ")
.D BMES^XPDUTL(" Your site has a local procedure (entry #"_LIEN_") in File #725")
.D BMES^XPDUTL(" which uses "_CODE_" as its National Number.")
.D BMES^XPDUTL(" Please inactivate this local procedure.")
.K Y
Q
NEW ;national procedures to add
;;BEDDAY STATE HOSPITAL^SH^^1^20
;;BEDDAY STATE DOM^SD^^1^42
;;BEDDAY STATE NURS HOME^SN^^1^100
;;SN 0-25 CARE LEVEL ADDON^SN101
;;SN 26-50 CARE LEVEL ADDON^SN102
;;SN 51-75 CARE LEVEL ADDON^SN103
;;SN 76-100 CARE LEVEL ADDON^SN104
;;SN 101-199 CARE LEVEL ADDON^SN105
;;SN 200-299 CARE LEVEL ADDON^SN106
;;SN 300-499 CARE LEVEL ADDON^SN107
;;SN 500-599 CARE LEVEL ADDON^SN108
;;SN >600 CARE LEVEL ADDON^SN109
;;SN RUGS II^SN110
;;SN RUGS III^SN111
;;BEDDAY COMM NUR HOME^CN^^1^100
;;CN 0-25 CARE LEVEL ADDON^CN101
;;CN 26-50 CARE LEVEL ADDON^CN102
;;CN 51-75 CARE LEVEL ADDON^CN103
;;CN 76-100 CARE LEVEL ADDON^CN104
;;CN 101-199 CARE LEVEL ADDON^CN105
;;CN 200-299 CARE LEVEL ADDON^CN106
;;CN 300-499 CARE LEVEL ADDON^CN107
;;CN 500-599 CARE LEVEL ADDON^CN108
;;CN >600 CARE LEVEL ADDON^CN109
;;CN RUGS II^CN110
;;CN RUGS III^CN111
;;HH VIST, NEW^HH001^99211
;;HH VIST-NEW-MOD SEVERITY^HH002^99211
;;HH VIST-NEW-HI SEVERITY^HH003^99211
;;HH VIST, ESTAB 15 MIN^HH004^99211
;;HH VIST, ESTAB 25 MIN^HH005^99211
;;HH VIST, ESTAB 40 MIN^HH006^99211
;;HH VIST, ESTAB 60 MIN^HH007^99211
;;HH COMPLAINT RESOLVE^HH008^99499
;;HH COLLATERAL VISIT^HH009^99499
;;HH PAT ADVOCACY^HH010^99499
;;HH HAA HOME VISIT^HH011^99211
;;HH CNH PAT VISIT^HH012^99211
;;HH OUTPT CONSULT^HH013^99499
;;HH INPT FOLLOW VISIT^HH014^99499
;;HH INPT CONSULT^HH015^99499
;;HH PATIENT EDUCATION^HH016^99499
;;HH COLLATERAL EDUCATION^HH017^99499
;;HH PHONE CONTACT WITH PATIENT^HH025^99371
;;HH REFER-VA PURCH SKILLED^HH030
;;HH END-VA PURCH SKILLED^HH031
;;HH REFER-VA PURCH AIDE^HH032
;;HH END-VA PURCH AIDE^HH033
;;HH REFER VA PURCH HOME MAKER^HH034
;;HH END-VA PURCH HOME MAKER^HH035
;;HH REFER-VA PURCH INFUSION^HH036
;;HH END-VA PURCH INFUSION^HH037
;;HH REFER-VA PURCH HOSPICE^HH038
;;HH END-VA PURCH HOSPICE^HH039
;;HH REFER-VA PD RESPIR CONTRCT^HH040
;;HH END VA PURCH RESPIRATORY^HH041
;;HH REFER-VA PURCH MNTL HLTH^HH042
;;HH END VA PURCH MNTL HLTH^HH043
;;HH REFER TO MEDICARE^HH044
;;HH REFER TO VA PD PHYSICAL THPY^HH045
;;HH REFER TO HOMHLH END VA PD PT^HH046
;;HH REFER TO VA PD OCCUP THPY^HH047
;;HH REFER TO END VA PD OT^HH048
;;HH REFER TO VA PD SPEECH THPY^HH049
;;HH REFER TO END VA PD SPECH^HH050
;;HH REFER TO VA PD SOCIAL WK^HH051
;;HH REFER TO END VA PD SOC WK^HH052
;;HH REFER TO VA PD HOME HOSPICE^HH053
;;HH REFER TO END VA PD HOMHSPC^HH054
;;HH REFER TO VA PD BOWEL AND BLADDER^HH055
;;HH REFER TO END VA PD BOWEL AND BLADDER^HH056
;;HH REFER TO VA PD LAB SERVICES^HH057
;;HH REFER TO END VA PD LAB^HH058
;;HH REFER - HOME HSPICE MEDICARE^HH059
;;HH REFER - HOME HSPICE MEDICAID^HH060
;;HH REFER - HOME HSPICE THIRD PARTY^HH061
;;HH REFER - HOME HSPICE GRATUS^HH062
;;HH REFER TO MEDICAID^HH063
;;HH REFER PUBLIC HEALTH (COUNTY)^HH064
;;HH REFER THIRD PARTY^HH065
;;HH REFER TO HMO^HH066
;;HH REFER TO PRIVATE PAY^HH067
;;HH REFER RESPITE MEDICARE^HH068
;;HH REFER RESPITE OTHER^HH069
;;HH CARE PLAN OVERSIGHT^HH070
;;HH MEDICAL RECORDS REVIEW^HH071
;;HH FAMILY SUPPORT ACTIVITIES^HH072
;;HH MONITORING LAB RESULTS^HH073
;;HH DISCHARGE DAY MANAGEMENT^HH074
;;HH ADMIN DETAILS OF REFER COORDIN^HH075
;;HH REFER TO VA PURCH. PALLIATIVE CARE^HH076
;;HH END VA PURCH. PALLIATIVE CARE^HH077
;;HH PURCH VISITS/MO-SKILLED^HH091
;;HH PURCH VISITS/MO-AIDE^HH092
;;HH PURCH VISITS/MO-INFUSION^HH093
;;HH PURCH VISITS/MO-HOSPICE^HH094
;;HH PURCH VISITS/MO-RESPIRATORY^HH095
;;HH PURCH VISITS/MO-MENT HLTH^HH096
;;HH PURCH VISITS/MO-PHYS THPY^HH097
;;HH PURCH VISITS/MO-OCCUP THPY^HH098
;;HH PURCH VISITS/MO-SPECH THPY^HH099
;;HH PURCH VISITS/MO-SOCIAL WK^HH100
;;HH PURCH VISITS/MO-HOM HOSPIC^HH101
;;HH PURCH VISITS/MO-BOWEL-BLADDER^HH102
;;HH PURCH VISITS/MO-LAB SERVICES^HH103
;;HH PURCH VISITS/MO-HOMEMAKER^HH104
;;HH PURCH VISITS/MO-RESPITE^HH105
;;HH PURCH VISITS/MO-PALLIATIVE CRE^HH106
;;HH PURCH VISITS/MO-ADULT DAY CARE^HH107
;;DISCH PLANNING >30MIN^SW007^99239
;;INDIV FUNCTIONAL IMPVMT @ 15 MIN^SW072^97530
;;SELF CARE/HOME MGMT @ 15 MIN^SW073^97535
;;COMM/WORK REINTEGRATE @15 MIN^SW074^97537
;;HIGH RISK ASSESSMENT^SW075^99420
;;HOME VISIT 60 MIN^SW076^99350
;;PSYCHSOCASSES OPT @ 60 MIN^SW077^99244
;;PSYCHSOC TX INPT 75-80 MIN^SW080^90821
;;PSYCHSOC TX INPT 20-30 MIN^SW081^90816
;;PSYCHSOC TX INPT 45-50 MIN^SW082^90818
;;HEALTHED/REFER GP (1-5) @60MIN^SW083^99412
;;HEAKTHED/REFER GP (6-8) @60MIN^SW084^99412
;;HEALTHED/REFER GP (9+) @60MIN^SW085^99412
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEC725U02 8226 printed Apr 09, 2024@21:02:48 Page 2
EC725U02 ;ALB/GTS/JAP/JAM - EC National Procedure Update;08/10/99
+1 ;;2.0; EVENT CAPTURE ;**20**;8 May 96
+2 ;
+3 ;this routine is used as a post-init in a KIDS build
+4 ;to modify the EC National Procedure file #725
+5 ;
NAMECHG ;* change national procedure names
+1 ;
+2 ; ECXX is in format:
+3 ; NATIONAL NUMBER^NEW NAME
+4 ;
+5 NEW ECX,ECXX,ECDA,DA,DR,DIC,DIE,X,Y
+6 DO MES^XPDUTL(" ")
+7 DO BMES^XPDUTL("Changing names in EC NATIONAL PROCEDURE File (#725)...")
+8 DO MES^XPDUTL(" ")
+9 FOR ECX=1:1
SET ECXX=$PIECE($TEXT(CHNG+ECX),";;",2)
if ECXX="QUIT"
QUIT
Begin DoDot:1
+10 IF $DATA(^EC(725,"D",$PIECE(ECXX,U,1)))
Begin DoDot:2
+11 SET ECDA=+$ORDER(^EC(725,"D",$PIECE(ECXX,U,1),0))
+12 IF $DATA(^EC(725,ECDA,0))
Begin DoDot:3
+13 SET DA=ECDA
SET DR=".01////^S X=$P(ECXX,U,2)"
SET DIE="^EC(725,"
DO ^DIE
+14 DO MES^XPDUTL(" ")
+15 DO BMES^XPDUTL(" Entry #"_ECDA_" for "_$PIECE(ECXX,U,1))
+16 DO BMES^XPDUTL(" ...field (#.01) updated to "_$PIECE(ECXX,U,2)_".")
End DoDot:3
End DoDot:2
+17 IF '$DATA(^EC(725,"D",$PIECE(ECXX,U,1)))
Begin DoDot:2
+18 DO MES^XPDUTL(" ")
+19 DO BMES^XPDUTL("Can't find entry for "_$PIECE(ECXX,U,1))
+20 DO BMES^XPDUTL("...field (#.01) not updated.")
End DoDot:2
End DoDot:1
+21 QUIT
+22 ;
CHNG ;name changes
+1 ;;SW006^HEALTH ED/REFER IND NEW PT 15 MIN
+2 ;;SW015^PSYCHSOC TX OPT 75-80 MIN
+3 ;;SW002^CONSULTATION INPT 10 MIN
+4 ;;SW003^DISCH PLANNING <30MIN
+5 ;;SW013^OFFICE VISIT OPT 5 MIN
+6 ;;SW014^PSYCHSOC ASSES INPT @ 30 MIN
+7 ;;SW019^HEALTHED/REFER GP (1-5) @30MIN
+8 ;;SW025^HEAKTHED/REFER GP (6-8) @30MIN
+9 ;;SW026^HEALTHED/REFER GP (9+) @30MIN
+10 ;;SW033^CONSULTATION INPT 20 MIN
+11 ;;SW034^CONSULTATION INPT 30 MIN
+12 ;;SW056^OFFICE VISIT OPT 10 MIN
+13 ;;SW057^OFFICE VISIT OPT 15 MIN
+14 ;;SW058^OFFICE VISIT OPT 25 MIN
+15 ;;SW059^OFFICE VISIT OPT 40 MIN
+16 ;;SW037^HEALTH ED/REFER IND NEW PT 30 MIN
+17 ;;SW038^HEALTH ED/REFER IND NEW PT 45 MIN
+18 ;;SW039^HEALTH ED/REFER IND NEW PT 60 MIN
+19 ;;SW060^COMP & PEN EXAM
+20 ;;SW061^PSYCHSOC TX OPT 20-30 MIN
+21 ;;SW062^PSYCHSOC TX OPT 45-50 MIN
+22 ;;QUIT
+23 ;
ADDPROC ;* add national procedures
+1 ;
+2 ; ECXX is in format:
+3 ; NAME^NATIONAL NUMBER^CPT CODE^FIRST NATIONAL NUMBER SEQUENCE
+4 ; LAST NATIONAL NUMBER SEQUENCE
+5 ;
+6 NEW ECX,ECXX,ECDINUM,NAME,CODE,CPT,COUNT,X,Y,DIC,DIE,DA,DR,DLAYGO,DINUM
+7 NEW ECADD,ECBEG,ECEND,CODX,NAMX,ECSEQ,LIEN
+8 DO MES^XPDUTL(" ")
+9 DO BMES^XPDUTL("Adding new procedures to EC NATIONAL PROCEDURE File (#725)...")
+10 DO MES^XPDUTL(" ")
+11 SET ECDINUM=$ORDER(^EC(725,9999),-1)
SET COUNT=$PIECE(^EC(725,0),U,4)
+12 FOR ECX=1:1
SET ECXX=$PIECE($TEXT(NEW+ECX),";;",2)
if ECXX="QUIT"
QUIT
Begin DoDot:1
+13 SET NAME=$PIECE(ECXX,U,1)
SET CODE=$PIECE(ECXX,U,2)
SET CPT=$PIECE(ECXX,U,3)
SET CODX=CODE
+14 SET ECBEG=$PIECE(ECXX,U,4)
SET ECEND=$PIECE(ECXX,U,5)
SET NAMX=NAME
+15 IF ECBEG=""
SET X=NAME
DO FILPROC
QUIT
+16 FOR ECSEQ=ECBEG:1:ECEND
Begin DoDot:2
+17 SET ECADD="000"_ECSEQ
SET ECADD=$EXTRACT(ECADD,$LENGTH(ECADD)-2,$LENGTH(ECADD))
+18 SET NAME=NAMX_" "_ECADD
SET X=NAME
SET CODE=CODX_ECADD
+19 DO FILPROC
End DoDot:2
End DoDot:1
+20 SET $PIECE(^EC(725,0),U,4)=COUNT
SET X=$ORDER(^EC(725,999999),-1)
SET $PIECE(^EC(725,0),U,3)=X
+21 QUIT
+22 ;
FILPROC ;File national procedures
+1 ;
+2 IF '$DATA(^EC(725,"D",CODE))
Begin DoDot:1
+3 SET ECDINUM=ECDINUM+1
SET DINUM=ECDINUM
SET DIC(0)="L"
SET DLAYGO=725
SET DIC="^EC(725,"
+4 SET DIC("DR")="1////^S X=CODE;4////^S X=CPT"
+5 DO FILE^DICN
+6 IF +Y>0
Begin DoDot:2
+7 SET COUNT=COUNT+1
+8 DO MES^XPDUTL(" ")
+9 DO BMES^XPDUTL(" Entry #"_+Y_" for "_$PIECE(Y,U,2)_$SELECT(CPT:" [CPT: "_CPT_"]",1:"")_" ("_CODE_")")
+10 DO BMES^XPDUTL(" ...successfully added.")
End DoDot:2
+11 IF Y=-1
Begin DoDot:2
+12 DO MES^XPDUTL(" ")
+13 DO BMES^XPDUTL("ERROR when attempting to add "_NAME_" ("_CODE_")")
End DoDot:2
End DoDot:1
+14 IF $DATA(^EC(725,"DL",CODE))
Begin DoDot:1
+15 SET LIEN=$ORDER(^EC(725,"DL",CODE,""))
+16 DO MES^XPDUTL(" ")
+17 DO BMES^XPDUTL(" Your site has a local procedure (entry #"_LIEN_") in File #725")
+18 DO BMES^XPDUTL(" which uses "_CODE_" as its National Number.")
+19 DO BMES^XPDUTL(" Please inactivate this local procedure.")
+20 KILL Y
End DoDot:1
+21 QUIT
NEW ;national procedures to add
+1 ;;BEDDAY STATE HOSPITAL^SH^^1^20
+2 ;;BEDDAY STATE DOM^SD^^1^42
+3 ;;BEDDAY STATE NURS HOME^SN^^1^100
+4 ;;SN 0-25 CARE LEVEL ADDON^SN101
+5 ;;SN 26-50 CARE LEVEL ADDON^SN102
+6 ;;SN 51-75 CARE LEVEL ADDON^SN103
+7 ;;SN 76-100 CARE LEVEL ADDON^SN104
+8 ;;SN 101-199 CARE LEVEL ADDON^SN105
+9 ;;SN 200-299 CARE LEVEL ADDON^SN106
+10 ;;SN 300-499 CARE LEVEL ADDON^SN107
+11 ;;SN 500-599 CARE LEVEL ADDON^SN108
+12 ;;SN >600 CARE LEVEL ADDON^SN109
+13 ;;SN RUGS II^SN110
+14 ;;SN RUGS III^SN111
+15 ;;BEDDAY COMM NUR HOME^CN^^1^100
+16 ;;CN 0-25 CARE LEVEL ADDON^CN101
+17 ;;CN 26-50 CARE LEVEL ADDON^CN102
+18 ;;CN 51-75 CARE LEVEL ADDON^CN103
+19 ;;CN 76-100 CARE LEVEL ADDON^CN104
+20 ;;CN 101-199 CARE LEVEL ADDON^CN105
+21 ;;CN 200-299 CARE LEVEL ADDON^CN106
+22 ;;CN 300-499 CARE LEVEL ADDON^CN107
+23 ;;CN 500-599 CARE LEVEL ADDON^CN108
+24 ;;CN >600 CARE LEVEL ADDON^CN109
+25 ;;CN RUGS II^CN110
+26 ;;CN RUGS III^CN111
+27 ;;HH VIST, NEW^HH001^99211
+28 ;;HH VIST-NEW-MOD SEVERITY^HH002^99211
+29 ;;HH VIST-NEW-HI SEVERITY^HH003^99211
+30 ;;HH VIST, ESTAB 15 MIN^HH004^99211
+31 ;;HH VIST, ESTAB 25 MIN^HH005^99211
+32 ;;HH VIST, ESTAB 40 MIN^HH006^99211
+33 ;;HH VIST, ESTAB 60 MIN^HH007^99211
+34 ;;HH COMPLAINT RESOLVE^HH008^99499
+35 ;;HH COLLATERAL VISIT^HH009^99499
+36 ;;HH PAT ADVOCACY^HH010^99499
+37 ;;HH HAA HOME VISIT^HH011^99211
+38 ;;HH CNH PAT VISIT^HH012^99211
+39 ;;HH OUTPT CONSULT^HH013^99499
+40 ;;HH INPT FOLLOW VISIT^HH014^99499
+41 ;;HH INPT CONSULT^HH015^99499
+42 ;;HH PATIENT EDUCATION^HH016^99499
+43 ;;HH COLLATERAL EDUCATION^HH017^99499
+44 ;;HH PHONE CONTACT WITH PATIENT^HH025^99371
+45 ;;HH REFER-VA PURCH SKILLED^HH030
+46 ;;HH END-VA PURCH SKILLED^HH031
+47 ;;HH REFER-VA PURCH AIDE^HH032
+48 ;;HH END-VA PURCH AIDE^HH033
+49 ;;HH REFER VA PURCH HOME MAKER^HH034
+50 ;;HH END-VA PURCH HOME MAKER^HH035
+51 ;;HH REFER-VA PURCH INFUSION^HH036
+52 ;;HH END-VA PURCH INFUSION^HH037
+53 ;;HH REFER-VA PURCH HOSPICE^HH038
+54 ;;HH END-VA PURCH HOSPICE^HH039
+55 ;;HH REFER-VA PD RESPIR CONTRCT^HH040
+56 ;;HH END VA PURCH RESPIRATORY^HH041
+57 ;;HH REFER-VA PURCH MNTL HLTH^HH042
+58 ;;HH END VA PURCH MNTL HLTH^HH043
+59 ;;HH REFER TO MEDICARE^HH044
+60 ;;HH REFER TO VA PD PHYSICAL THPY^HH045
+61 ;;HH REFER TO HOMHLH END VA PD PT^HH046
+62 ;;HH REFER TO VA PD OCCUP THPY^HH047
+63 ;;HH REFER TO END VA PD OT^HH048
+64 ;;HH REFER TO VA PD SPEECH THPY^HH049
+65 ;;HH REFER TO END VA PD SPECH^HH050
+66 ;;HH REFER TO VA PD SOCIAL WK^HH051
+67 ;;HH REFER TO END VA PD SOC WK^HH052
+68 ;;HH REFER TO VA PD HOME HOSPICE^HH053
+69 ;;HH REFER TO END VA PD HOMHSPC^HH054
+70 ;;HH REFER TO VA PD BOWEL AND BLADDER^HH055
+71 ;;HH REFER TO END VA PD BOWEL AND BLADDER^HH056
+72 ;;HH REFER TO VA PD LAB SERVICES^HH057
+73 ;;HH REFER TO END VA PD LAB^HH058
+74 ;;HH REFER - HOME HSPICE MEDICARE^HH059
+75 ;;HH REFER - HOME HSPICE MEDICAID^HH060
+76 ;;HH REFER - HOME HSPICE THIRD PARTY^HH061
+77 ;;HH REFER - HOME HSPICE GRATUS^HH062
+78 ;;HH REFER TO MEDICAID^HH063
+79 ;;HH REFER PUBLIC HEALTH (COUNTY)^HH064
+80 ;;HH REFER THIRD PARTY^HH065
+81 ;;HH REFER TO HMO^HH066
+82 ;;HH REFER TO PRIVATE PAY^HH067
+83 ;;HH REFER RESPITE MEDICARE^HH068
+84 ;;HH REFER RESPITE OTHER^HH069
+85 ;;HH CARE PLAN OVERSIGHT^HH070
+86 ;;HH MEDICAL RECORDS REVIEW^HH071
+87 ;;HH FAMILY SUPPORT ACTIVITIES^HH072
+88 ;;HH MONITORING LAB RESULTS^HH073
+89 ;;HH DISCHARGE DAY MANAGEMENT^HH074
+90 ;;HH ADMIN DETAILS OF REFER COORDIN^HH075
+91 ;;HH REFER TO VA PURCH. PALLIATIVE CARE^HH076
+92 ;;HH END VA PURCH. PALLIATIVE CARE^HH077
+93 ;;HH PURCH VISITS/MO-SKILLED^HH091
+94 ;;HH PURCH VISITS/MO-AIDE^HH092
+95 ;;HH PURCH VISITS/MO-INFUSION^HH093
+96 ;;HH PURCH VISITS/MO-HOSPICE^HH094
+97 ;;HH PURCH VISITS/MO-RESPIRATORY^HH095
+98 ;;HH PURCH VISITS/MO-MENT HLTH^HH096
+99 ;;HH PURCH VISITS/MO-PHYS THPY^HH097
+100 ;;HH PURCH VISITS/MO-OCCUP THPY^HH098
+101 ;;HH PURCH VISITS/MO-SPECH THPY^HH099
+102 ;;HH PURCH VISITS/MO-SOCIAL WK^HH100
+103 ;;HH PURCH VISITS/MO-HOM HOSPIC^HH101
+104 ;;HH PURCH VISITS/MO-BOWEL-BLADDER^HH102
+105 ;;HH PURCH VISITS/MO-LAB SERVICES^HH103
+106 ;;HH PURCH VISITS/MO-HOMEMAKER^HH104
+107 ;;HH PURCH VISITS/MO-RESPITE^HH105
+108 ;;HH PURCH VISITS/MO-PALLIATIVE CRE^HH106
+109 ;;HH PURCH VISITS/MO-ADULT DAY CARE^HH107
+110 ;;DISCH PLANNING >30MIN^SW007^99239
+111 ;;INDIV FUNCTIONAL IMPVMT @ 15 MIN^SW072^97530
+112 ;;SELF CARE/HOME MGMT @ 15 MIN^SW073^97535
+113 ;;COMM/WORK REINTEGRATE @15 MIN^SW074^97537
+114 ;;HIGH RISK ASSESSMENT^SW075^99420
+115 ;;HOME VISIT 60 MIN^SW076^99350
+116 ;;PSYCHSOCASSES OPT @ 60 MIN^SW077^99244
+117 ;;PSYCHSOC TX INPT 75-80 MIN^SW080^90821
+118 ;;PSYCHSOC TX INPT 20-30 MIN^SW081^90816
+119 ;;PSYCHSOC TX INPT 45-50 MIN^SW082^90818
+120 ;;HEALTHED/REFER GP (1-5) @60MIN^SW083^99412
+121 ;;HEAKTHED/REFER GP (6-8) @60MIN^SW084^99412
+122 ;;HEALTHED/REFER GP (9+) @60MIN^SW085^99412
+123 ;;QUIT
