ECX356PT ;ALB/JAM - PATCH ECX*3.0*48 Post-Init Rtn ; 03/24/03
;;3.0;DSS EXTRACTS;**56**;Sept 19, 2003
;
;Post-init routine to add new entries to:
; NATIONAL CLINIC file (#728.441)
EN ;
;- Add new entry to file 728.441
; ECXREC is in format: code^short description
N ECXFDA,ECXERR,ECXCODE,ECXREC,I,CNT0,CNT1
D BMES^XPDUTL(">>> Adding entry to the NATIONAL CLINIC (#728.441) file...")
D MES^XPDUTL(" ")
S (CNT0,CNT1,CNT2)=0 K ^UTILITY("NATLCODE",$J)
;
D LOADDATA ;B/C of the large number of new codes, they are stored in numerous routines. Load all codes into
; a utility global before adding to database
D PROCESS
D END
Q ;End of loading process
LOADDATA ;Load all new codes into utility global
;
S CNT=1
F ECX=1:1 S ECXX=$P($T(NATCLIN+ECX),";;",2) Q:ECXX="QUIT" D
. S ^UTILITY("NATLCODE",$J,CNT)=ECXX,CNT=CNT+1
F ECX=1:1 S ECXX=$P($T(NATCLIN+ECX^ECX356D1),";;",2) Q:ECXX="QUIT" D
. S ^UTILITY("NATLCODE",$J,CNT)=ECXX,CNT=CNT+1
F ECX=1:1 S ECXX=$P($T(NATCLIN+ECX^ECX356D2),";;",2) Q:ECXX="QUIT" D
. S ^UTILITY("NATLCODE",$J,CNT)=ECXX,CNT=CNT+1
Q ;LOADDATA
;
PROCESS ; Get NAT'L CLINIC records from UTL global
S SEQ=""
F S SEQ=$O(^UTILITY("NATLCODE",$J,SEQ)) Q:SEQ="" D
. S ECXREC=^UTILITY("NATLCODE",$J,SEQ)
. S ECXCODE=$P(ECXREC,"^")
.; Quit w/error message if entry already exists
. I $$FIND1^DIC(728.441,"","X",ECXCODE) D Q
. . D BMES^XPDUTL(">>>...."_ECXCODE_" "_$P(ECXREC,U,2)_" not added, entry already exists.")
. . S CNT1=CNT1+1
.; Setup field values of new entry
. S ECXFDA(728.441,"+1,",.01)=ECXCODE
. S ECXFDA(728.441,"+1,",1)=$P(ECXREC,"^",2)
.; Add new entry
. D UPDATE^DIE("E","ECXFDA","","ECXERR")
. I '$D(ECXERR) D Q
. . D BMES^XPDUTL(">>>..."_ECXCODE_" "_$P(ECXREC,U,2)_" added to file.")
. . S CNT0=CNT0+1
. D BMES^XPDUTL(">>>...Unable to add "_ECXCODE_" "_$P(ECXREC,U,2)_" to file.")
. S CNT2=CNT2+1
. K ECXERR ;clean out error array b4 processing next code
;
Q ;FILEONE
END D MES^XPDUTL(" ")
D MES^XPDUTL(" Done... Update to NATIONAL CLINIC File (#728.441).")
D MES^XPDUTL(" "_$J(CNT0,3)_" new entries added.")
D MES^XPDUTL(" "_$J(CNT1,3)_" were not added, already exist.")
D MES^XPDUTL(" "_$J(CNT2,3)_" were not added, unable to add.")
D MES^XPDUTL(" ")
K ^UTILITY("NATLCODE",$J)
Q
;
NATCLIN ;NAT'L CLINIC entry to add:
;;ICBC^CBC I
;;INUR^RN I
;;IRED^RED TEAM I
;;IBLU^BLUE TEAM I
;;IYEL^YELLOW TEAM I
;;ICPX^C&P CLINIC PROFILE I
;;IOTH^OTHER I
;;IPRI^PRIMARY CARE I
;;ISAT^SATELLITE I
;;ITEM^TEAM I
;;JCBC^CBC J
;;JNUR^RN J
;;JRED^RED TEAM J
;;JBLU^BLUE TEAM J
;;JYEL^YELLOW TEAM J
;;JCPX^C&P CLINIC PROFILE J
;;JOTH^OTHER J
;;JPRI^PRIMARY CARE J
;;JSAT^SATELLITE J
;;JTEM^TEAM J
;;KCBC^CBC K
;;KNUR^RN K
;;KRED^RED TEAM K
;;KBLU^BLUE TEAM K
;;KYEL^YELLOW TEAM K
;;KCPX^C&P CLINIC PROFILE K
;;KOTH^OTHER K
;;KPRI^PRIMARY CARE K
;;KSAT^SATELLITE K
;;KTEM^TEAM K
;;LCBC^CBC L
;;LNUR^RN L
;;LRED^RED TEAM L
;;LBLU^BLUE TEAM L
;;LYEL^YELLOW TEAM L
;;LCPX^C&P CLINIC PROFILE L
;;LOTH^OTHER L
;;LPRI^PRIMARY CARE L
;;LSAT^SATELLITE L
;;LTEM^TEAM L
;;MCBC^CBC M
;;MNUR^RN M
;;MRED^RED TEAM M
;;MBLU^BLUE TEAM M
;;MYEL^YELLOW TEAM M
;;MCPX^C&P CLINIC PROFILE M
;;MOTH^OTHER M
;;MPRI^PRIMARY CARE M
;;MSAT^SATELLITE M
;;MTEM^TEAM M
;;NCBC^CBC N
;;NNUR^RN N
;;NRED^RED TEAM N
;;NBLU^BLUE TEAM N
;;NYEL^YELLOW TEAM N
;;NCPX^C&P CLINIC PROFILE N
;;NOTH^OTHER N
;;NPRI^PRIMARY CARE N
;;NSAT^SATELLITE N
;;NTEM^TEAM N
;;OCBC^CBC O
;;ONUR^RN O
;;ORED^RED TEAM O
;;OBLU^BLUE TEAM O
;;OYEL^YELLOW TEAM O
;;OCPX^C&P CLINIC PROFILE O
;;OOTH^OTHER O
;;OPRI^PRIMARY CARE O
;;OSAT^SATELLITE O
;;OTEM^TEAM O
;;PCBC^CBC P
;;PNUR^RN P
;;PRED^RED TEAM P
;;PBLU^BLUE TEAM P
;;PYEL^YELLOW TEAM P
;;PCPX^C&P CLINIC PROFILE P
;;POTH^OTHER P
;;PPRI^PRIMARY CARE P
;;PSAT^SATELLITE P
;;PTEM^TEAM P
;;QCBC^CBC Q
;;QNUR^RN Q
;;QRED^RED TEAM Q
;;QBLU^BLUE TEAM Q
;;QYEL^YELLOW TEAM Q
;;QCPX^C&P CLINIC PROFILE Q
;;QOTH^OTHER Q
;;QPRI^PRIMARY CARE Q
;;QSAT^SATELLITE Q
;;QTEM^TEAM Q
;;RCBC^CBC R
;;RNUR^RN R
;;RRED^RED TEAM R
;;RBLU^BLUE TEAM R
;;RYEL^YELLOW TEAM R
;;RCPX^C&P CLINIC PROFILE R
;;ROTH^OTHER R
;;RPRI^PRIMARY CARE R
;;RSAT^SATELLITE R
;;RTEM^TEAM R
;;SCBC^CBC S
;;SNUR^RN S
;;SRED^RED TEAM S
;;SBLU^BLUE TEAM S
;;SYEL^YELLOW TEAM S
;;SCPX^C&P CLINIC PROFILE S
;;SOTH^OTHER S
;;SPRI^PRIMARY CARE S
;;SSAT^SATELLITE S
;;STEM^TEAM S
;;TCBC^CBC T
;;TNUR^RN T
;;TRED^RED TEAM T
;;TBLU^BLUE TEAM T
;;TYEL^YELLOW TEAM T
;;TCPX^C&P CLINIC PROFILE T
;;TOTH^OTHER T
;;TPRI^PRIMARY CARE T
;;TSAT^SATELLITE T
;;TTEM^TEAM T
;;UCBC^CBC U
;;UNUR^RN U
;;URED^RED TEAM U
;;UBLU^BLUE TEAM U
;;UYEL^YELLOW TEAM U
;;UCPX^C&P CLINIC PROFILE U
;;UOTH^OTHER U
;;UPRI^PRIMARY CARE U
;;USAT^SATELLITE U
;;UTEM^TEAM U
;;VCBC^CBC V
;;VNUR^RN V
;;VRED^RED TEAM V
;;VBLU^BLUE TEAM V
;;VYEL^YELLOW TEAM V
;;VCPX^C&P CLINIC PROFILE V
;;VOTH^OTHER V
;;VPRI^PRIMARY CARE V
;;VSAT^SATELLITE V
;;VTEM^TEAM V
;;WCBC^CBC W
;;WNUR^RN W
;;WRED^RED TEAM W
;;WBLU^BLUE TEAM W
;;WYEL^YELLOW TEAM W
;;WCPX^C&P CLINIC PROFILE W
;;WOTH^OTHER W
;;WPRI^PRIMARY CARE W
;;WSAT^SATELLITE W
;;WTEM^TEAM W
;;XCBC^CBC X
;;XNUR^RN X
;;XRED^RED TEAM X
;;XBLU^BLUE TEAM X
;;XYEL^YELLOW TEAM X
;;XCPX^C&P CLINIC PROFILE X
;;XOTH^OTHER X
;;XPRI^PRIMARY CARE X
;;XSAT^SATELLITE X
;;XTEM^TEAM X
;;YCBC^CBC Y
;;YNUR^RN Y
;;YRED^RED TEAM Y
;;YBLU^BLUE TEAM Y
;;YYEL^YELLOW TEAM Y
;;YCPX^C&P CLINIC PROFILE Y
;;YOTH^OTHER Y
;;YPRI^PRIMARY CARE Y
;;YSAT^SATELLITE Y
;;YTEM^TEAM Y
;;ZCBC^CBC Z
;;ZNUR^RN Z
;;ZRED^RED TEAM Z
;;ZBLU^BLUE TEAM Z
;;ZYEL^YELLOW TEAM Z
;;ZCPX^C&P CLINIC PROFILE Z
;;ZOTH^OTHER Z
;;ZPRI^PRIMARY CARE Z
;;ZSAT^SATELLITE Z
;;ZTEM^TEAM Z
;;CDSW^Cardiac Disease Social Worker
;;CDRN^Cardiac Disease Registered Nurse
;;CDNP^Cardiac Disease Nurse Practitioner
;;CDRD^Cardiac Disease Registered Dietician
;;CDPT^Cardiac Disease Physical Therapist
;;CDPA^Cardiac Disease Physician Assistant
;;CDPH^Cardiac Disease Pharmacist
;;CDCC^Cardiac Disease CC Team
;;CGSW^Coag Management Social Worker
;;CGRN^Coag Management Registered Nurse
;;CGNP^Coag Management Nurse Practitioner
;;CGRD^Coag Management Registered Dietician
;;CGPT^Coag Management Physical Therapist
;;CGPA^Coag Management Physician Assistant
;;CGPH^Coag Management Pharmacist
;;CGCC^Coag Management CC Team
;;DESW^Dementia Social Worker
;;DERN^Dementia Registered Nurse
;;DENP^Dementia Nurse Practitioner
;;DERD^Dementia Registered Dietician
;;DEPT^Dementia Physical Therapist
;;DEPA^Dementia Physician Assistant
;;DEPH^Dementia Pharmacist
;;DECC^Dementia CC Team
;;DMSW^Diabetes Mellitus Social Worker
;;DMRN^Diabetes Mellitus Registered Nurse
;;DMNP^Diabetes Mellitus Nurse Practitioner
;;DMRD^Diabetes Mellitus Registered Dietician
;;DMPT^Diabetes Mellitus Physical Therapist
;;DMPA^Diabetes Mellitus Physician Assistant
;;DMPH^Diabetes Mellitus Pharmacist
;;DMCC^Diabetes Mellitus CC Team
;;HTSW^Hypertension Social Worker
;;HTRN^Hypertension Registered Nurse
;;HTNP^Hypertension Nurse Practitioner
;;HTRD^Hypertension Registered Dietician
;;HTPT^Hypertension Physical Therapist
;;HTPA^Hypertension Physician Assistant
;;HTPH^Hypertension Pharmacist
;;HTCC^Hypertension CC Team
;;IDSW^Infectious Disease Social Worker
;;IDRN^Infectious Disease Registered Nurse
;;IDNP^Infectious Disease Nurse Practitioner
;;IDRD^Infectious Disease Registered Dietician
;;IDPT^Infectious Disease Physical Therapist
;;IDPA^Infectious Disease Physician Assistant
;;IDPH^Infectious Disease Pharmacist
;;IDCC^Infectious Disease CC Team
;;MHSW^Mental Health Social Worker
;;MHRN^Mental Health Registered Nurse
;;MHNP^Mental Health Nurse Practitioner
;;MHRD^Mental Health Registered Dietician
;;MHPT^Mental Health Physical Therapist
;;MHPA^Mental Health Physician Assistant
;;MHPH^Mental Health Pharmacist
;;MHCC^Mental Health CC Team
;;MMSW^Multiple Co-Morbidities Social Worker
;;MMRN^Multiple Co-Morbidities Registered Nurse
;;MMNP^Multiple Co-Morbidities Nurse Practitioner
;;MMRD^Multiple Co-Morbidities Registered Dietician
;;MMPT^Multiple Co-Morbidities Physical Therapist
;;MMPA^Multiple Co-Morbidities Physician Assistant
;;MMPH^Multiple Co-Morbidities Pharmacist
;;MMCC^Multiple Co-Morbidities CC Team
;;PLSW^Palliative Social Worker
;;PLRN^Palliative Registered Nurse
;;PLNP^Palliative Nurse Practitioner
;;PLRD^Palliative Registered Dietician
;;PLPT^Palliative Physical Therapist
;;PLPA^Palliative Physician Assistant
;;PLPH^Palliative Pharmacist
;;PLCC^Palliative CC Team
;;PNSW^Pain Management Social Worker
;;PNRN^Pain Management Registered Nurse
;;PNNP^Pain Management Nurse Practitioner
;;PNRD^Pain Management Registered Dietician
;;PNPT^Pain Management Physical Therapist
;;QUIT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX356PT 9212 printed Apr 09, 2024@20:56:08 Page 2
ECX356PT ;ALB/JAM - PATCH ECX*3.0*48 Post-Init Rtn ; 03/24/03
+1 ;;3.0;DSS EXTRACTS;**56**;Sept 19, 2003
+2 ;
+3 ;Post-init routine to add new entries to:
+4 ; NATIONAL CLINIC file (#728.441)
EN ;
+1 ;- Add new entry to file 728.441
+2 ; ECXREC is in format: code^short description
+3 NEW ECXFDA,ECXERR,ECXCODE,ECXREC,I,CNT0,CNT1
+4 DO BMES^XPDUTL(">>> Adding entry to the NATIONAL CLINIC (#728.441) file...")
+5 DO MES^XPDUTL(" ")
+6 SET (CNT0,CNT1,CNT2)=0
KILL ^UTILITY("NATLCODE",$JOB)
+7 ;
+8 ;B/C of the large number of new codes, they are stored in numerous routines. Load all codes into
DO LOADDATA
+9 ; a utility global before adding to database
+10 DO PROCESS
+11 DO END
+12 ;End of loading process
QUIT
LOADDATA ;Load all new codes into utility global
+1 ;
+2 SET CNT=1
+3 FOR ECX=1:1
SET ECXX=$PIECE($TEXT(NATCLIN+ECX),";;",2)
if ECXX="QUIT"
QUIT
Begin DoDot:1
+4 SET ^UTILITY("NATLCODE",$JOB,CNT)=ECXX
SET CNT=CNT+1
End DoDot:1
+5 FOR ECX=1:1
SET ECXX=$PIECE($TEXT(NATCLIN+ECX^ECX356D1),";;",2)
if ECXX="QUIT"
QUIT
Begin DoDot:1
+6 SET ^UTILITY("NATLCODE",$JOB,CNT)=ECXX
SET CNT=CNT+1
End DoDot:1
+7 FOR ECX=1:1
SET ECXX=$PIECE($TEXT(NATCLIN+ECX^ECX356D2),";;",2)
if ECXX="QUIT"
QUIT
Begin DoDot:1
+8 SET ^UTILITY("NATLCODE",$JOB,CNT)=ECXX
SET CNT=CNT+1
End DoDot:1
+9 ;LOADDATA
QUIT
+10 ;
PROCESS ; Get NAT'L CLINIC records from UTL global
+1 SET SEQ=""
+2 FOR
SET SEQ=$ORDER(^UTILITY("NATLCODE",$JOB,SEQ))
if SEQ=""
QUIT
Begin DoDot:1
+3 SET ECXREC=^UTILITY("NATLCODE",$JOB,SEQ)
+4 SET ECXCODE=$PIECE(ECXREC,"^")
+5 ; Quit w/error message if entry already exists
+6 IF $$FIND1^DIC(728.441,"","X",ECXCODE)
Begin DoDot:2
+7 DO BMES^XPDUTL(">>>...."_ECXCODE_" "_$PIECE(ECXREC,U,2)_" not added, entry already exists.")
+8 SET CNT1=CNT1+1
End DoDot:2
QUIT
+9 ; Setup field values of new entry
+10 SET ECXFDA(728.441,"+1,",.01)=ECXCODE
+11 SET ECXFDA(728.441,"+1,",1)=$PIECE(ECXREC,"^",2)
+12 ; Add new entry
+13 DO UPDATE^DIE("E","ECXFDA","","ECXERR")
+14 IF '$DATA(ECXERR)
Begin DoDot:2
+15 DO BMES^XPDUTL(">>>..."_ECXCODE_" "_$PIECE(ECXREC,U,2)_" added to file.")
+16 SET CNT0=CNT0+1
End DoDot:2
QUIT
+17 DO BMES^XPDUTL(">>>...Unable to add "_ECXCODE_" "_$PIECE(ECXREC,U,2)_" to file.")
+18 SET CNT2=CNT2+1
+19 ;clean out error array b4 processing next code
KILL ECXERR
End DoDot:1
+20 ;
+21 ;FILEONE
QUIT
END DO MES^XPDUTL(" ")
+1 DO MES^XPDUTL(" Done... Update to NATIONAL CLINIC File (#728.441).")
+2 DO MES^XPDUTL(" "_$JUSTIFY(CNT0,3)_" new entries added.")
+3 DO MES^XPDUTL(" "_$JUSTIFY(CNT1,3)_" were not added, already exist.")
+4 DO MES^XPDUTL(" "_$JUSTIFY(CNT2,3)_" were not added, unable to add.")
+5 DO MES^XPDUTL(" ")
+6 KILL ^UTILITY("NATLCODE",$JOB)
+7 QUIT
+8 ;
NATCLIN ;NAT'L CLINIC entry to add:
+1 ;;ICBC^CBC I
+2 ;;INUR^RN I
+3 ;;IRED^RED TEAM I
+4 ;;IBLU^BLUE TEAM I
+5 ;;IYEL^YELLOW TEAM I
+6 ;;ICPX^C&P CLINIC PROFILE I
+7 ;;IOTH^OTHER I
+8 ;;IPRI^PRIMARY CARE I
+9 ;;ISAT^SATELLITE I
+10 ;;ITEM^TEAM I
+11 ;;JCBC^CBC J
+12 ;;JNUR^RN J
+13 ;;JRED^RED TEAM J
+14 ;;JBLU^BLUE TEAM J
+15 ;;JYEL^YELLOW TEAM J
+16 ;;JCPX^C&P CLINIC PROFILE J
+17 ;;JOTH^OTHER J
+18 ;;JPRI^PRIMARY CARE J
+19 ;;JSAT^SATELLITE J
+20 ;;JTEM^TEAM J
+21 ;;KCBC^CBC K
+22 ;;KNUR^RN K
+23 ;;KRED^RED TEAM K
+24 ;;KBLU^BLUE TEAM K
+25 ;;KYEL^YELLOW TEAM K
+26 ;;KCPX^C&P CLINIC PROFILE K
+27 ;;KOTH^OTHER K
+28 ;;KPRI^PRIMARY CARE K
+29 ;;KSAT^SATELLITE K
+30 ;;KTEM^TEAM K
+31 ;;LCBC^CBC L
+32 ;;LNUR^RN L
+33 ;;LRED^RED TEAM L
+34 ;;LBLU^BLUE TEAM L
+35 ;;LYEL^YELLOW TEAM L
+36 ;;LCPX^C&P CLINIC PROFILE L
+37 ;;LOTH^OTHER L
+38 ;;LPRI^PRIMARY CARE L
+39 ;;LSAT^SATELLITE L
+40 ;;LTEM^TEAM L
+41 ;;MCBC^CBC M
+42 ;;MNUR^RN M
+43 ;;MRED^RED TEAM M
+44 ;;MBLU^BLUE TEAM M
+45 ;;MYEL^YELLOW TEAM M
+46 ;;MCPX^C&P CLINIC PROFILE M
+47 ;;MOTH^OTHER M
+48 ;;MPRI^PRIMARY CARE M
+49 ;;MSAT^SATELLITE M
+50 ;;MTEM^TEAM M
+51 ;;NCBC^CBC N
+52 ;;NNUR^RN N
+53 ;;NRED^RED TEAM N
+54 ;;NBLU^BLUE TEAM N
+55 ;;NYEL^YELLOW TEAM N
+56 ;;NCPX^C&P CLINIC PROFILE N
+57 ;;NOTH^OTHER N
+58 ;;NPRI^PRIMARY CARE N
+59 ;;NSAT^SATELLITE N
+60 ;;NTEM^TEAM N
+61 ;;OCBC^CBC O
+62 ;;ONUR^RN O
+63 ;;ORED^RED TEAM O
+64 ;;OBLU^BLUE TEAM O
+65 ;;OYEL^YELLOW TEAM O
+66 ;;OCPX^C&P CLINIC PROFILE O
+67 ;;OOTH^OTHER O
+68 ;;OPRI^PRIMARY CARE O
+69 ;;OSAT^SATELLITE O
+70 ;;OTEM^TEAM O
+71 ;;PCBC^CBC P
+72 ;;PNUR^RN P
+73 ;;PRED^RED TEAM P
+74 ;;PBLU^BLUE TEAM P
+75 ;;PYEL^YELLOW TEAM P
+76 ;;PCPX^C&P CLINIC PROFILE P
+77 ;;POTH^OTHER P
+78 ;;PPRI^PRIMARY CARE P
+79 ;;PSAT^SATELLITE P
+80 ;;PTEM^TEAM P
+81 ;;QCBC^CBC Q
+82 ;;QNUR^RN Q
+83 ;;QRED^RED TEAM Q
+84 ;;QBLU^BLUE TEAM Q
+85 ;;QYEL^YELLOW TEAM Q
+86 ;;QCPX^C&P CLINIC PROFILE Q
+87 ;;QOTH^OTHER Q
+88 ;;QPRI^PRIMARY CARE Q
+89 ;;QSAT^SATELLITE Q
+90 ;;QTEM^TEAM Q
+91 ;;RCBC^CBC R
+92 ;;RNUR^RN R
+93 ;;RRED^RED TEAM R
+94 ;;RBLU^BLUE TEAM R
+95 ;;RYEL^YELLOW TEAM R
+96 ;;RCPX^C&P CLINIC PROFILE R
+97 ;;ROTH^OTHER R
+98 ;;RPRI^PRIMARY CARE R
+99 ;;RSAT^SATELLITE R
+100 ;;RTEM^TEAM R
+101 ;;SCBC^CBC S
+102 ;;SNUR^RN S
+103 ;;SRED^RED TEAM S
+104 ;;SBLU^BLUE TEAM S
+105 ;;SYEL^YELLOW TEAM S
+106 ;;SCPX^C&P CLINIC PROFILE S
+107 ;;SOTH^OTHER S
+108 ;;SPRI^PRIMARY CARE S
+109 ;;SSAT^SATELLITE S
+110 ;;STEM^TEAM S
+111 ;;TCBC^CBC T
+112 ;;TNUR^RN T
+113 ;;TRED^RED TEAM T
+114 ;;TBLU^BLUE TEAM T
+115 ;;TYEL^YELLOW TEAM T
+116 ;;TCPX^C&P CLINIC PROFILE T
+117 ;;TOTH^OTHER T
+118 ;;TPRI^PRIMARY CARE T
+119 ;;TSAT^SATELLITE T
+120 ;;TTEM^TEAM T
+121 ;;UCBC^CBC U
+122 ;;UNUR^RN U
+123 ;;URED^RED TEAM U
+124 ;;UBLU^BLUE TEAM U
+125 ;;UYEL^YELLOW TEAM U
+126 ;;UCPX^C&P CLINIC PROFILE U
+127 ;;UOTH^OTHER U
+128 ;;UPRI^PRIMARY CARE U
+129 ;;USAT^SATELLITE U
+130 ;;UTEM^TEAM U
+131 ;;VCBC^CBC V
+132 ;;VNUR^RN V
+133 ;;VRED^RED TEAM V
+134 ;;VBLU^BLUE TEAM V
+135 ;;VYEL^YELLOW TEAM V
+136 ;;VCPX^C&P CLINIC PROFILE V
+137 ;;VOTH^OTHER V
+138 ;;VPRI^PRIMARY CARE V
+139 ;;VSAT^SATELLITE V
+140 ;;VTEM^TEAM V
+141 ;;WCBC^CBC W
+142 ;;WNUR^RN W
+143 ;;WRED^RED TEAM W
+144 ;;WBLU^BLUE TEAM W
+145 ;;WYEL^YELLOW TEAM W
+146 ;;WCPX^C&P CLINIC PROFILE W
+147 ;;WOTH^OTHER W
+148 ;;WPRI^PRIMARY CARE W
+149 ;;WSAT^SATELLITE W
+150 ;;WTEM^TEAM W
+151 ;;XCBC^CBC X
+152 ;;XNUR^RN X
+153 ;;XRED^RED TEAM X
+154 ;;XBLU^BLUE TEAM X
+155 ;;XYEL^YELLOW TEAM X
+156 ;;XCPX^C&P CLINIC PROFILE X
+157 ;;XOTH^OTHER X
+158 ;;XPRI^PRIMARY CARE X
+159 ;;XSAT^SATELLITE X
+160 ;;XTEM^TEAM X
+161 ;;YCBC^CBC Y
+162 ;;YNUR^RN Y
+163 ;;YRED^RED TEAM Y
+164 ;;YBLU^BLUE TEAM Y
+165 ;;YYEL^YELLOW TEAM Y
+166 ;;YCPX^C&P CLINIC PROFILE Y
+167 ;;YOTH^OTHER Y
+168 ;;YPRI^PRIMARY CARE Y
+169 ;;YSAT^SATELLITE Y
+170 ;;YTEM^TEAM Y
+171 ;;ZCBC^CBC Z
+172 ;;ZNUR^RN Z
+173 ;;ZRED^RED TEAM Z
+174 ;;ZBLU^BLUE TEAM Z
+175 ;;ZYEL^YELLOW TEAM Z
+176 ;;ZCPX^C&P CLINIC PROFILE Z
+177 ;;ZOTH^OTHER Z
+178 ;;ZPRI^PRIMARY CARE Z
+179 ;;ZSAT^SATELLITE Z
+180 ;;ZTEM^TEAM Z
+181 ;;CDSW^Cardiac Disease Social Worker
+182 ;;CDRN^Cardiac Disease Registered Nurse
+183 ;;CDNP^Cardiac Disease Nurse Practitioner
+184 ;;CDRD^Cardiac Disease Registered Dietician
+185 ;;CDPT^Cardiac Disease Physical Therapist
+186 ;;CDPA^Cardiac Disease Physician Assistant
+187 ;;CDPH^Cardiac Disease Pharmacist
+188 ;;CDCC^Cardiac Disease CC Team
+189 ;;CGSW^Coag Management Social Worker
+190 ;;CGRN^Coag Management Registered Nurse
+191 ;;CGNP^Coag Management Nurse Practitioner
+192 ;;CGRD^Coag Management Registered Dietician
+193 ;;CGPT^Coag Management Physical Therapist
+194 ;;CGPA^Coag Management Physician Assistant
+195 ;;CGPH^Coag Management Pharmacist
+196 ;;CGCC^Coag Management CC Team
+197 ;;DESW^Dementia Social Worker
+198 ;;DERN^Dementia Registered Nurse
+199 ;;DENP^Dementia Nurse Practitioner
+200 ;;DERD^Dementia Registered Dietician
+201 ;;DEPT^Dementia Physical Therapist
+202 ;;DEPA^Dementia Physician Assistant
+203 ;;DEPH^Dementia Pharmacist
+204 ;;DECC^Dementia CC Team
+205 ;;DMSW^Diabetes Mellitus Social Worker
+206 ;;DMRN^Diabetes Mellitus Registered Nurse
+207 ;;DMNP^Diabetes Mellitus Nurse Practitioner
+208 ;;DMRD^Diabetes Mellitus Registered Dietician
+209 ;;DMPT^Diabetes Mellitus Physical Therapist
+210 ;;DMPA^Diabetes Mellitus Physician Assistant
+211 ;;DMPH^Diabetes Mellitus Pharmacist
+212 ;;DMCC^Diabetes Mellitus CC Team
+213 ;;HTSW^Hypertension Social Worker
+214 ;;HTRN^Hypertension Registered Nurse
+215 ;;HTNP^Hypertension Nurse Practitioner
+216 ;;HTRD^Hypertension Registered Dietician
+217 ;;HTPT^Hypertension Physical Therapist
+218 ;;HTPA^Hypertension Physician Assistant
+219 ;;HTPH^Hypertension Pharmacist
+220 ;;HTCC^Hypertension CC Team
+221 ;;IDSW^Infectious Disease Social Worker
+222 ;;IDRN^Infectious Disease Registered Nurse
+223 ;;IDNP^Infectious Disease Nurse Practitioner
+224 ;;IDRD^Infectious Disease Registered Dietician
+225 ;;IDPT^Infectious Disease Physical Therapist
+226 ;;IDPA^Infectious Disease Physician Assistant
+227 ;;IDPH^Infectious Disease Pharmacist
+228 ;;IDCC^Infectious Disease CC Team
+229 ;;MHSW^Mental Health Social Worker
+230 ;;MHRN^Mental Health Registered Nurse
+231 ;;MHNP^Mental Health Nurse Practitioner
+232 ;;MHRD^Mental Health Registered Dietician
+233 ;;MHPT^Mental Health Physical Therapist
+234 ;;MHPA^Mental Health Physician Assistant
+235 ;;MHPH^Mental Health Pharmacist
+236 ;;MHCC^Mental Health CC Team
+237 ;;MMSW^Multiple Co-Morbidities Social Worker
+238 ;;MMRN^Multiple Co-Morbidities Registered Nurse
+239 ;;MMNP^Multiple Co-Morbidities Nurse Practitioner
+240 ;;MMRD^Multiple Co-Morbidities Registered Dietician
+241 ;;MMPT^Multiple Co-Morbidities Physical Therapist
+242 ;;MMPA^Multiple Co-Morbidities Physician Assistant
+243 ;;MMPH^Multiple Co-Morbidities Pharmacist
+244 ;;MMCC^Multiple Co-Morbidities CC Team
+245 ;;PLSW^Palliative Social Worker
+246 ;;PLRN^Palliative Registered Nurse
+247 ;;PLNP^Palliative Nurse Practitioner
+248 ;;PLRD^Palliative Registered Dietician
+249 ;;PLPT^Palliative Physical Therapist
+250 ;;PLPA^Palliative Physician Assistant
+251 ;;PLPH^Palliative Pharmacist
+252 ;;PLCC^Palliative CC Team
+253 ;;PNSW^Pain Management Social Worker
+254 ;;PNRN^Pain Management Registered Nurse
+255 ;;PNNP^Pain Management Nurse Practitioner
+256 ;;PNRD^Pain Management Registered Dietician
+257 ;;PNPT^Pain Management Physical Therapist
+258 ;;QUIT
