Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ECX356PT

ECX356PT.m

Go to the documentation of this file. 
  1. ECX356PT ;ALB/JAM - PATCH ECX*3.0*48 Post-Init Rtn ; 03/24/03
  1.  ;;3.0;DSS EXTRACTS;**56**;Sept 19, 2003
  1.  ;
  1.  ;Post-init routine to add new entries to:
  1.  ;           NATIONAL CLINIC file (#728.441)
  1. EN ;
  1.  ;- Add new entry to file 728.441
  1.  ;      ECXREC is in format: code^short description
  1.  N ECXFDA,ECXERR,ECXCODE,ECXREC,I,CNT0,CNT1
  1.  D BMES^XPDUTL(">>> Adding entry to the NATIONAL CLINIC (#728.441) file...")
  1.  D MES^XPDUTL(" ")
  1.  S (CNT0,CNT1,CNT2)=0 K ^UTILITY("NATLCODE",$J)
  1.  ;
  1.  D LOADDATA   ;B/C of the large number of new codes, they are stored in numerous routines. Load all codes into
  1.  ;             a utility global before adding to database
  1.  D PROCESS
  1.  D END
  1.  Q  ;End of loading process
  1. LOADDATA        ;Load all new codes into utility global
  1.  ;
  1.  S CNT=1
  1.  F ECX=1:1 S ECXX=$P($T(NATCLIN+ECX),";;",2) Q:ECXX="QUIT"  D
  1.  . S ^UTILITY("NATLCODE",$J,CNT)=ECXX,CNT=CNT+1
  1.  F ECX=1:1 S ECXX=$P($T(NATCLIN+ECX^ECX356D1),";;",2) Q:ECXX="QUIT"  D
  1.  . S ^UTILITY("NATLCODE",$J,CNT)=ECXX,CNT=CNT+1
  1.  F ECX=1:1 S ECXX=$P($T(NATCLIN+ECX^ECX356D2),";;",2) Q:ECXX="QUIT"  D
  1.  . S ^UTILITY("NATLCODE",$J,CNT)=ECXX,CNT=CNT+1
  1.  Q  ;LOADDATA
  1.  ;
  1. PROCESS ; Get NAT'L CLINIC records from UTL global
  1.  S SEQ=""
  1.  F  S SEQ=$O(^UTILITY("NATLCODE",$J,SEQ)) Q:SEQ=""  D
  1.  . S ECXREC=^UTILITY("NATLCODE",$J,SEQ)
  1.  . S ECXCODE=$P(ECXREC,"^")
  1.  .; Quit w/error message if entry already exists
  1.  . I $$FIND1^DIC(728.441,"","X",ECXCODE) D  Q
  1.  . . D BMES^XPDUTL(">>>...."_ECXCODE_"  "_$P(ECXREC,U,2)_"  not added, entry already exists.")
  1.  . . S CNT1=CNT1+1
  1.  .; Setup field values of new entry
  1.  . S ECXFDA(728.441,"+1,",.01)=ECXCODE
  1.  . S ECXFDA(728.441,"+1,",1)=$P(ECXREC,"^",2)
  1.  .; Add new entry
  1.  . D UPDATE^DIE("E","ECXFDA","","ECXERR")
  1.  . I '$D(ECXERR) D  Q
  1.  . . D BMES^XPDUTL(">>>..."_ECXCODE_"  "_$P(ECXREC,U,2)_"  added to file.")
  1.  . . S CNT0=CNT0+1
  1.  . D BMES^XPDUTL(">>>...Unable to add "_ECXCODE_"  "_$P(ECXREC,U,2)_" to file.")
  1.  . S CNT2=CNT2+1
  1.  . K ECXERR  ;clean out error array b4 processing next code
  1.  ;
  1.  Q  ;FILEONE
  1. END D MES^XPDUTL(" ")
  1.  D MES^XPDUTL(" Done... Update to NATIONAL CLINIC File (#728.441).")
  1.  D MES^XPDUTL("            "_$J(CNT0,3)_" new entries added.")
  1.  D MES^XPDUTL("            "_$J(CNT1,3)_" were not added, already exist.")
  1.  D MES^XPDUTL("            "_$J(CNT2,3)_" were not added, unable to add.")
  1.  D MES^XPDUTL(" ")
  1.  K ^UTILITY("NATLCODE",$J)
  1.  Q
  1.  ;
  1. NATCLIN ;NAT'L CLINIC entry to add:
  1.  ;;ICBC^CBC I
  1.  ;;INUR^RN I
  1.  ;;IRED^RED TEAM I
  1.  ;;IBLU^BLUE TEAM I
  1.  ;;IYEL^YELLOW TEAM I
  1.  ;;ICPX^C&P CLINIC PROFILE I
  1.  ;;IOTH^OTHER I
  1.  ;;IPRI^PRIMARY CARE I
  1.  ;;ISAT^SATELLITE I
  1.  ;;ITEM^TEAM I
  1.  ;;JCBC^CBC J
  1.  ;;JNUR^RN J
  1.  ;;JRED^RED TEAM J
  1.  ;;JBLU^BLUE TEAM J
  1.  ;;JYEL^YELLOW TEAM J
  1.  ;;JCPX^C&P CLINIC PROFILE J
  1.  ;;JOTH^OTHER J
  1.  ;;JPRI^PRIMARY CARE J
  1.  ;;JSAT^SATELLITE J
  1.  ;;JTEM^TEAM J
  1.  ;;KCBC^CBC K
  1.  ;;KNUR^RN K
  1.  ;;KRED^RED TEAM K
  1.  ;;KBLU^BLUE TEAM K
  1.  ;;KYEL^YELLOW TEAM K
  1.  ;;KCPX^C&P CLINIC PROFILE K
  1.  ;;KOTH^OTHER K
  1.  ;;KPRI^PRIMARY CARE K
  1.  ;;KSAT^SATELLITE K
  1.  ;;KTEM^TEAM K
  1.  ;;LCBC^CBC L
  1.  ;;LNUR^RN L
  1.  ;;LRED^RED TEAM L
  1.  ;;LBLU^BLUE TEAM L
  1.  ;;LYEL^YELLOW TEAM L
  1.  ;;LCPX^C&P CLINIC PROFILE L
  1.  ;;LOTH^OTHER L
  1.  ;;LPRI^PRIMARY CARE L
  1.  ;;LSAT^SATELLITE L
  1.  ;;LTEM^TEAM L
  1.  ;;MCBC^CBC M
  1.  ;;MNUR^RN M
  1.  ;;MRED^RED TEAM M
  1.  ;;MBLU^BLUE TEAM M
  1.  ;;MYEL^YELLOW TEAM M
  1.  ;;MCPX^C&P CLINIC PROFILE M
  1.  ;;MOTH^OTHER M
  1.  ;;MPRI^PRIMARY CARE M
  1.  ;;MSAT^SATELLITE M
  1.  ;;MTEM^TEAM M
  1.  ;;NCBC^CBC N
  1.  ;;NNUR^RN N
  1.  ;;NRED^RED TEAM N
  1.  ;;NBLU^BLUE TEAM N
  1.  ;;NYEL^YELLOW TEAM N
  1.  ;;NCPX^C&P CLINIC PROFILE N
  1.  ;;NOTH^OTHER N
  1.  ;;NPRI^PRIMARY CARE N
  1.  ;;NSAT^SATELLITE N
  1.  ;;NTEM^TEAM N
  1.  ;;OCBC^CBC O
  1.  ;;ONUR^RN O
  1.  ;;ORED^RED TEAM O
  1.  ;;OBLU^BLUE TEAM O
  1.  ;;OYEL^YELLOW TEAM O
  1.  ;;OCPX^C&P CLINIC PROFILE O
  1.  ;;OOTH^OTHER O
  1.  ;;OPRI^PRIMARY CARE O
  1.  ;;OSAT^SATELLITE O
  1.  ;;OTEM^TEAM O
  1.  ;;PCBC^CBC P
  1.  ;;PNUR^RN P
  1.  ;;PRED^RED TEAM P
  1.  ;;PBLU^BLUE TEAM P
  1.  ;;PYEL^YELLOW TEAM P
  1.  ;;PCPX^C&P CLINIC PROFILE P
  1.  ;;POTH^OTHER P
  1.  ;;PPRI^PRIMARY CARE P
  1.  ;;PSAT^SATELLITE P
  1.  ;;PTEM^TEAM P
  1.  ;;QCBC^CBC Q
  1.  ;;QNUR^RN Q
  1.  ;;QRED^RED TEAM Q
  1.  ;;QBLU^BLUE TEAM Q
  1.  ;;QYEL^YELLOW TEAM Q
  1.  ;;QCPX^C&P CLINIC PROFILE Q
  1.  ;;QOTH^OTHER Q
  1.  ;;QPRI^PRIMARY CARE Q
  1.  ;;QSAT^SATELLITE Q
  1.  ;;QTEM^TEAM Q
  1.  ;;RCBC^CBC R
  1.  ;;RNUR^RN R
  1.  ;;RRED^RED TEAM R
  1.  ;;RBLU^BLUE TEAM R
  1.  ;;RYEL^YELLOW TEAM R
  1.  ;;RCPX^C&P CLINIC PROFILE R
  1.  ;;ROTH^OTHER R
  1.  ;;RPRI^PRIMARY CARE R
  1.  ;;RSAT^SATELLITE R
  1.  ;;RTEM^TEAM R
  1.  ;;SCBC^CBC S
  1.  ;;SNUR^RN S
  1.  ;;SRED^RED TEAM S
  1.  ;;SBLU^BLUE TEAM S
  1.  ;;SYEL^YELLOW TEAM S
  1.  ;;SCPX^C&P CLINIC PROFILE S
  1.  ;;SOTH^OTHER S
  1.  ;;SPRI^PRIMARY CARE S
  1.  ;;SSAT^SATELLITE S
  1.  ;;STEM^TEAM S
  1.  ;;TCBC^CBC T
  1.  ;;TNUR^RN T
  1.  ;;TRED^RED TEAM T
  1.  ;;TBLU^BLUE TEAM T
  1.  ;;TYEL^YELLOW TEAM T
  1.  ;;TCPX^C&P CLINIC PROFILE T
  1.  ;;TOTH^OTHER T
  1.  ;;TPRI^PRIMARY CARE T
  1.  ;;TSAT^SATELLITE T
  1.  ;;TTEM^TEAM T
  1.  ;;UCBC^CBC U
  1.  ;;UNUR^RN U
  1.  ;;URED^RED TEAM U
  1.  ;;UBLU^BLUE TEAM U
  1.  ;;UYEL^YELLOW TEAM U
  1.  ;;UCPX^C&P CLINIC PROFILE U
  1.  ;;UOTH^OTHER U
  1.  ;;UPRI^PRIMARY CARE U
  1.  ;;USAT^SATELLITE U
  1.  ;;UTEM^TEAM U
  1.  ;;VCBC^CBC V
  1.  ;;VNUR^RN V
  1.  ;;VRED^RED TEAM V
  1.  ;;VBLU^BLUE TEAM V
  1.  ;;VYEL^YELLOW TEAM V
  1.  ;;VCPX^C&P CLINIC PROFILE V
  1.  ;;VOTH^OTHER V
  1.  ;;VPRI^PRIMARY CARE V
  1.  ;;VSAT^SATELLITE V
  1.  ;;VTEM^TEAM V
  1.  ;;WCBC^CBC W
  1.  ;;WNUR^RN W
  1.  ;;WRED^RED TEAM W
  1.  ;;WBLU^BLUE TEAM W
  1.  ;;WYEL^YELLOW TEAM W
  1.  ;;WCPX^C&P CLINIC PROFILE W
  1.  ;;WOTH^OTHER W
  1.  ;;WPRI^PRIMARY CARE W
  1.  ;;WSAT^SATELLITE W
  1.  ;;WTEM^TEAM W
  1.  ;;XCBC^CBC X
  1.  ;;XNUR^RN X
  1.  ;;XRED^RED TEAM X
  1.  ;;XBLU^BLUE TEAM X
  1.  ;;XYEL^YELLOW TEAM X
  1.  ;;XCPX^C&P CLINIC PROFILE X
  1.  ;;XOTH^OTHER X
  1.  ;;XPRI^PRIMARY CARE X
  1.  ;;XSAT^SATELLITE X
  1.  ;;XTEM^TEAM X
  1.  ;;YCBC^CBC Y
  1.  ;;YNUR^RN Y
  1.  ;;YRED^RED TEAM Y
  1.  ;;YBLU^BLUE TEAM Y
  1.  ;;YYEL^YELLOW TEAM Y
  1.  ;;YCPX^C&P CLINIC PROFILE Y
  1.  ;;YOTH^OTHER Y
  1.  ;;YPRI^PRIMARY CARE Y
  1.  ;;YSAT^SATELLITE Y
  1.  ;;YTEM^TEAM Y
  1.  ;;ZCBC^CBC Z
  1.  ;;ZNUR^RN Z
  1.  ;;ZRED^RED TEAM Z
  1.  ;;ZBLU^BLUE TEAM Z
  1.  ;;ZYEL^YELLOW TEAM Z
  1.  ;;ZCPX^C&P CLINIC PROFILE Z
  1.  ;;ZOTH^OTHER Z
  1.  ;;ZPRI^PRIMARY CARE Z
  1.  ;;ZSAT^SATELLITE Z
  1.  ;;ZTEM^TEAM Z
  1.  ;;CDSW^Cardiac Disease Social Worker
  1.  ;;CDRN^Cardiac Disease Registered Nurse
  1.  ;;CDNP^Cardiac Disease Nurse Practitioner
  1.  ;;CDRD^Cardiac Disease Registered Dietician
  1.  ;;CDPT^Cardiac Disease Physical Therapist
  1.  ;;CDPA^Cardiac Disease Physician Assistant
  1.  ;;CDPH^Cardiac Disease Pharmacist
  1.  ;;CDCC^Cardiac Disease CC Team
  1.  ;;CGSW^Coag Management Social Worker
  1.  ;;CGRN^Coag Management Registered Nurse
  1.  ;;CGNP^Coag Management Nurse Practitioner
  1.  ;;CGRD^Coag Management Registered Dietician
  1.  ;;CGPT^Coag Management Physical Therapist
  1.  ;;CGPA^Coag Management Physician Assistant
  1.  ;;CGPH^Coag Management Pharmacist
  1.  ;;CGCC^Coag Management CC Team
  1.  ;;DESW^Dementia Social Worker
  1.  ;;DERN^Dementia Registered Nurse
  1.  ;;DENP^Dementia Nurse Practitioner
  1.  ;;DERD^Dementia Registered Dietician
  1.  ;;DEPT^Dementia Physical Therapist
  1.  ;;DEPA^Dementia Physician Assistant
  1.  ;;DEPH^Dementia Pharmacist
  1.  ;;DECC^Dementia CC Team
  1.  ;;DMSW^Diabetes Mellitus Social Worker
  1.  ;;DMRN^Diabetes Mellitus Registered Nurse
  1.  ;;DMNP^Diabetes Mellitus Nurse Practitioner
  1.  ;;DMRD^Diabetes Mellitus Registered Dietician
  1.  ;;DMPT^Diabetes Mellitus Physical Therapist
  1.  ;;DMPA^Diabetes Mellitus Physician Assistant
  1.  ;;DMPH^Diabetes Mellitus Pharmacist
  1.  ;;DMCC^Diabetes Mellitus CC Team
  1.  ;;HTSW^Hypertension Social Worker
  1.  ;;HTRN^Hypertension Registered Nurse
  1.  ;;HTNP^Hypertension Nurse Practitioner
  1.  ;;HTRD^Hypertension Registered Dietician
  1.  ;;HTPT^Hypertension Physical Therapist
  1.  ;;HTPA^Hypertension Physician Assistant
  1.  ;;HTPH^Hypertension Pharmacist
  1.  ;;HTCC^Hypertension CC Team
  1.  ;;IDSW^Infectious Disease Social Worker
  1.  ;;IDRN^Infectious Disease Registered Nurse
  1.  ;;IDNP^Infectious Disease Nurse Practitioner
  1.  ;;IDRD^Infectious Disease Registered Dietician
  1.  ;;IDPT^Infectious Disease Physical Therapist
  1.  ;;IDPA^Infectious Disease Physician Assistant
  1.  ;;IDPH^Infectious Disease Pharmacist
  1.  ;;IDCC^Infectious Disease CC Team
  1.  ;;MHSW^Mental Health Social Worker
  1.  ;;MHRN^Mental Health Registered Nurse
  1.  ;;MHNP^Mental Health Nurse Practitioner
  1.  ;;MHRD^Mental Health Registered Dietician
  1.  ;;MHPT^Mental Health Physical Therapist
  1.  ;;MHPA^Mental Health Physician Assistant
  1.  ;;MHPH^Mental Health Pharmacist
  1.  ;;MHCC^Mental Health CC Team
  1.  ;;MMSW^Multiple Co-Morbidities Social Worker
  1.  ;;MMRN^Multiple Co-Morbidities Registered Nurse
  1.  ;;MMNP^Multiple Co-Morbidities Nurse Practitioner
  1.  ;;MMRD^Multiple Co-Morbidities Registered Dietician
  1.  ;;MMPT^Multiple Co-Morbidities Physical Therapist
  1.  ;;MMPA^Multiple Co-Morbidities Physician Assistant
  1.  ;;MMPH^Multiple Co-Morbidities Pharmacist
  1.  ;;MMCC^Multiple Co-Morbidities CC Team
  1.  ;;PLSW^Palliative Social Worker
  1.  ;;PLRN^Palliative Registered Nurse
  1.  ;;PLNP^Palliative Nurse Practitioner
  1.  ;;PLRD^Palliative Registered Dietician
  1.  ;;PLPT^Palliative Physical Therapist
  1.  ;;PLPA^Palliative Physician Assistant
  1.  ;;PLPH^Palliative Pharmacist
  1.  ;;PLCC^Palliative CC Team
  1.  ;;PNSW^Pain Management Social Worker
  1.  ;;PNRN^Pain Management Registered Nurse
  1.  ;;PNNP^Pain Management Nurse Practitioner
  1.  ;;PNRD^Pain Management Registered Dietician
  1.  ;;PNPT^Pain Management Physical Therapist
  1.  ;;QUIT