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

ECX348PT.m

Go to the documentation of this file.
  1. ECX348PT ;ALB/JAM - PATCH ECX*3.0*48 Post-Init Rtn ; 03/24/03
  1. ;;3.0;DSS EXTRACTS;**48**;Dec 22, 1997
  1. ;
  1. ;Post-init routine to add new entries to:
  1. ; NATIONAL CLINIC file (#728.441)
  1. ;
  1. EN ;
  1. ;- Add new entry to file 728.441
  1. ; ECXREC is in format: code^short description
  1. ;
  1. ;
  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)=0
  1. ;
  1. ;- Get NATIONAL CLINIC record
  1. F I=1:1 S ECXREC=$P($T(NATCLIN+I),";;",2) Q:ECXREC="QUIT" D
  1. .;
  1. .;- National Clinic code
  1. .S ECXCODE=$P(ECXREC,"^")
  1. .;
  1. .;- Quit w/error message if entry already exists in file #728.441
  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. .;
  1. .;- Add new entry to file #728.441
  1. .D UPDATE^DIE("E","ECXFDA","","ECXERR")
  1. .;
  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 CNT1=CNT1+1
  1. 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(" ")
  1. ;
  1. Q
  1. ;
  1. NATCLIN ;- Contains the NATIONAL CLINIC entry to be added
  1. ;;CDAC^Cardiac Disease V1 CCS
  1. ;;CGAC^Coagulation Management V1 CCS
  1. ;;DEAC^Dementia V1 CCS
  1. ;;DMAC^Diabetes Mellitus V1 CCS
  1. ;;HTAC^Hypertension V1 CCS
  1. ;;IDAC^Infectious Disease V1 CCS
  1. ;;MHAC^Mental Health V1 CCS
  1. ;;PNAC^Pain Management V1 CCS
  1. ;;PDAC^Pulmonary Disease V1 CCS
  1. ;;RHAC^Rehabilitation V1 CCS
  1. ;;SCAC^Spinal Cord Injured V1 CCS
  1. ;;WCAC^Wound Care V1 CCS
  1. ;;CDBC^Cardiac Disease V2 CCS
  1. ;;CGBC^Coagulation Management V2 CCS
  1. ;;DEBC^Dementia V2 CCS
  1. ;;DMBC^Diabetes Mellitus V2 CCS
  1. ;;HTBC^Hypertension V2 CCS
  1. ;;IDBC^Infectious Disease V2 CCS
  1. ;;MHBC^Mental Health V2 CCS
  1. ;;PNBC^Pain Management V2 CCS
  1. ;;PDBC^Pulmonary Disease V2 CCS
  1. ;;RHBC^Rehabilitation V2 CCS
  1. ;;SCBC^Spinal Cord Injured V2 CCS
  1. ;;WCBC^Wound Care V2 CCS
  1. ;;CDCC^Cardiac Disease V3 CCS
  1. ;;CGCC^Coagulation Management V3 CCS
  1. ;;DECC^Dementia V3 CCS
  1. ;;DMCC^Diabetes Mellitus V3 CCS
  1. ;;HTCC^Hypertension V3 CCS
  1. ;;IDCC^Infectious Disease V3 CCS
  1. ;;MHCC^Mental Health V3 CCS
  1. ;;PNCC^Pain Management V3 CCS
  1. ;;PDCC^Pulmonary Disease V3 CCS
  1. ;;RHCC^Rehabilitation V3 CCS
  1. ;;SCCC^Spinal Cord Injured V3 CCS
  1. ;;WCCC^Wound Care V3 CCS
  1. ;;CDDC^Cardiac Disease V4 CCS
  1. ;;CGDC^Coagulation Management V4 CCS
  1. ;;DEDC^Dementia V4 CCS
  1. ;;DMDC^Diabetes Mellitus V4 CCS
  1. ;;HDDC^Hypertension V4 CCS
  1. ;;IDDC^Infectious Disease V4 CCS
  1. ;;MHDC^Mental Health V4 CCS
  1. ;;PNDC^Pain Management V4 CCS
  1. ;;PDDC^Pulmonary Disease V4 CCS
  1. ;;RHDC^Rehabilitation V4 CCS
  1. ;;SCDC^Spinal Cord Injured V4 CCS
  1. ;;WCDC^Wound Care V4 CCS
  1. ;;CDEC^Cardiac Disease V5 CCS
  1. ;;CGEC^Coagulation Management V5 CCS
  1. ;;DEEC^Dementia V5 CCS
  1. ;;DMEC^Diabetes Mellitus V5 CCS
  1. ;;HDEC^Hypertension V5 CCS
  1. ;;IDEC^Infectious Disease V5 CCS
  1. ;;MHEC^Mental Health V5 CCS
  1. ;;PNEC^Pain Management V5 CCS
  1. ;;PDEC^Pulmonary Disease V5 CCS
  1. ;;RHEC^Rehabilitation V5 CCS
  1. ;;SCEC^Spinal Cord Injured V5 CCS
  1. ;;WCEC^Wound Care V5 CCS
  1. ;;CDFC^Cardiac Disease V6 CCS
  1. ;;CGFC^Coagulation Management V6 CCCS
  1. ;;DEFC^Dementia V6 CCS
  1. ;;DMFC^Diabetes Mellitus V6 CCS
  1. ;;HTFC^Hypertension V6 CCS
  1. ;;IDFC^Infectious Disease V6 CCS
  1. ;;MHFC^Mental Health V6 CCS
  1. ;;PNFC^Pain Management V6 CCS
  1. ;;PDFC^Pulmonary Disease V6 CCS
  1. ;;RHFC^Rehabilitation V6 CCS
  1. ;;SCFC^Spinal Cord Injured V6 CCS
  1. ;;WCFC^Wound Care V6 CCS
  1. ;;CDGC^Cardiac Disease V7 CCS
  1. ;;CGGC^Coagulation Management V7 CCS
  1. ;;DEGC^Dementia V7 CCS
  1. ;;DMGC^Diabetes Mellitus V7 CCS
  1. ;;HDGC^Hypertension V7 CCS
  1. ;;IDGC^Infectious Disease V7 CCS
  1. ;;MHGC^Mental Health V7 CCS
  1. ;;PNGC^Pain Management V7 CCS
  1. ;;PDGC^Pulmonary Disease V7 CCS
  1. ;;RHGC^Rehabilitation V7 CCS
  1. ;;SCGC^Spinal Cord Injured V7 CCS
  1. ;;WCGC^Wound Care V7 CCS
  1. ;;CDHC^Cardiac Disease V8 CCS
  1. ;;CGHC^Coagulation Management V8 CCS
  1. ;;DEHC^Dementia V8 CCS
  1. ;;DMHC^Diabetes Mellitus V8 CCS
  1. ;;HDHC^Hypertension V8 CCS
  1. ;;IDHC^Infectious Disease V8 CCS
  1. ;;MHHC^Mental Health V8 CCS
  1. ;;PNHC^Pain Management V8 CCS
  1. ;;PDHC^Pulmonary Disease V8 CCS
  1. ;;RHHC^Rehabilitation V8 CCS
  1. ;;SCHC^Spinal Cord Injured V8 CCS
  1. ;;WCHC^Wound Care V8 CCS
  1. ;;CDJC^Cardiac Disease V9 CCS
  1. ;;CGJC^Coagulation Management V9 CCS
  1. ;;DEJC^Dementia V9 CCS
  1. ;;DMJC^Diabetes Mellitus V9 CCS
  1. ;;HDJC^Hypertension V9 CCS
  1. ;;IDJC^Infectious Disease V9 CCS
  1. ;;MHJC^Mental Health V9 CCS
  1. ;;PNJC^Pain Management V9 CCS
  1. ;;PDJC^Pulmonary Disease V9 CCS
  1. ;;RHJC^Rehabilitation V9 CCS
  1. ;;SCJC^Spinal Cord Injured V9 CCS
  1. ;;WCJC^Wound Care V9 CCS
  1. ;;CDKC^Cardiac Disease V10 CCS
  1. ;;CGKC^Coagulation Management V10 CCS
  1. ;;DEKC^Dementia V10 CCS
  1. ;;DMKC^Diabetes Mellitus V10 CCS
  1. ;;HDKC^Hypertension V10 CCS
  1. ;;IDKC^Infectious Disease V10 CCS
  1. ;;MHKC^Mental Health V10 CCS
  1. ;;PNKC^Pain Management V10 CCS
  1. ;;PDKC^Pulmonary Disease V10 CCS
  1. ;;RHKC^Rehabilitation V10 CCS
  1. ;;SCKC^Spinal Cord Injured V10 CCS
  1. ;;WCKC^Wound Care V10 CCS
  1. ;;CDLC^Cardiac Disease V11 CCS
  1. ;;CGLC^Coagulation Management V11 CCS
  1. ;;DELC^Dementia V11 CCS
  1. ;;DMLC^Diabetes Mellitus V11 CCS
  1. ;;HDLC^Hypertension V11 CCS
  1. ;;IDLC^Infectious Disease V11 CCS
  1. ;;MHLC^Mental Health V11 CCS
  1. ;;PNLC^Pain Management V11 CCS
  1. ;;PDLC^Pulmonary Disease V11 CCS
  1. ;;RHLC^Rehabilitation V11 CCS
  1. ;;SCLC^Spinal Cord Injured V11 CCS
  1. ;;WCLC^Wound Care V11 CCS
  1. ;;CDMC^Cardiac Disease V12 CCS
  1. ;;CGMC^Coagulation Management V12 CCS
  1. ;;DEMC^Dementia V12 CCS
  1. ;;DMMC^Diabetes Mellitus V12 CCS
  1. ;;HDMC^Hypertension V12 CCS
  1. ;;IDMC^Infectious Disease V12 CCS
  1. ;;MHMC^Mental Health V12 CCS
  1. ;;PNMC^Pain Management V12 CCS
  1. ;;PDMC^Pulmonary Disease V12 CCS
  1. ;;RHMC^Rehabilitation V12 CCS
  1. ;;SCMC^Spinal Cord Injured V12 CCS
  1. ;;WCMC^Wound Care V12 CCS
  1. ;;CDNC^Cardiac Disease V23 CCS
  1. ;;CGNC^Coagulation Management V23 CCS
  1. ;;DENC^Dementia V23 CCS
  1. ;;DMNC^Diabetes Mellitus V23 CCS
  1. ;;HDNC^Hypertension V23 CCS
  1. ;;IDNC^Infectious Disease V23 CCS
  1. ;;MHNC^Mental Health V23 CCS
  1. ;;PNNC^Pain Management V23 CCS
  1. ;;PDNC^Pulmonary Disease V23 CCS
  1. ;;RHNC^Rehabilitation V23 CCS
  1. ;;SCNC^Spinal Cord Injured V23 CCS
  1. ;;WCNC^Wound Care V23 CCS
  1. ;;CDPC^Cardiac Disease V15 CCS
  1. ;;CGPC^Coagulation Management V15 CCS
  1. ;;DEPC^Dementia V15 CCS
  1. ;;DMPC^Diabetes Mellitus V15 CCS
  1. ;;HDPC^Hypertension V15 CCS
  1. ;;IDPC^Infectious Disease V15 CCS
  1. ;;MHPC^Mental Health V15 CCS
  1. ;;PNPC^Pain Management V15 CCS
  1. ;;PDPC^Pulmonary Disease V15 CCS
  1. ;;RHPC^Rehabilitation V15 CCS
  1. ;;SCPC^Spinal Cord Injured V15 CCS
  1. ;;WCPC^Wound Care V15 CCS
  1. ;;CDQC^Cardiac Disease V16 CCS
  1. ;;CGQC^Coagulation Management V16 CCS
  1. ;;DEQC^Dementia V16 CCS
  1. ;;DMQC^Diabetes Mellitus V16 CCS
  1. ;;HDQC^Hypertension V16 CCS
  1. ;;IDQC^Infectious Disease V16 CCS
  1. ;;MHQC^Mental Health V16 CCS
  1. ;;PNQC^Pain Management V16 CCS
  1. ;;PDQC^Pulmonary Disease V16 CCS
  1. ;;RHQC^Rehabilitation V16 CCS
  1. ;;SCQC^Spinal Cord Injured V16 CCS
  1. ;;WCQC^Wound Care V16 CCS
  1. ;;CDRC^Cardiac Disease V17 CCS
  1. ;;CGRC^Coagulation Management V17 CCS
  1. ;;DERC^Dementia V17 CCS
  1. ;;DMRC^Diabetes Mellitus V17 CCS
  1. ;;HDRC^Hypertension V17 CCS
  1. ;;IDRC^Infectious Disease V17 CCS
  1. ;;MHRC^Mental Health V17 CCS
  1. ;;PNRC^Pain Management V17 CCS
  1. ;;PDRC^Pulmonary Disease V17 CCS
  1. ;;RHRC^Rehabilitation V17 CCS
  1. ;;SNRC^Spinal Cord Injured V17 CCS
  1. ;;WCRC^Wound Care V17 CCS
  1. ;;CDSC^Cardiac Disease V18 CCS
  1. ;;CGSC^Coagulation Management V18 CCS
  1. ;;DESC^Dementia V18 CCS
  1. ;;DMSC^Diabetes Mellitus V18 CCS
  1. ;;HTSC^Hypertension V18 CCS
  1. ;;IDSC^Infectious Disease V18 CCS
  1. ;;MHSC^Mental Health V18 CCS
  1. ;;PNSC^Pain Management V18 CCS
  1. ;;PDSC^Pulmonary Disease V18 CCS
  1. ;;RHSC^Rehabilitation V18 CCS
  1. ;;SCSC^Spinal Cord Injured V18 CCS
  1. ;;WCSC^Wound Care V18 CCS
  1. ;;CDTC^Cardiac Disease V19 CCS
  1. ;;CGTC^Coagulation Management V19 CCS
  1. ;;DETC^Dementia V19 CCS
  1. ;;DMTC^Diabetes Mellitus V19 CCS
  1. ;;HTTC^Hypertension V19 CCS
  1. ;;IDTC^Infectious Disease V19 CCS
  1. ;;MHTC^Mental Health V19 CCS
  1. ;;PNTC^Pain Management V19 CCS
  1. ;;PDTC^Pulmonary Disease V19 CCS
  1. ;;RHTC^Rehabilitation V19 CCS
  1. ;;SCTC^Spinal Cord Injured V19 CCS
  1. ;;WCTC^Wound Care V19 CCS
  1. ;;CDUC^Cardiac Disease V20 CCS
  1. ;;CGUC^Coagulation Management V20 CCS
  1. ;;DEUC^Dementia V20 CCS
  1. ;;DMUC^Diabetes Mellitus V20 CCS
  1. ;;HTUC^Hypertension V20 CCS
  1. ;;IDUC^Infectious Disease V20 CCS
  1. ;;MHUC^Mental Health V20 CCS
  1. ;;PNUC^Pain Management V20 CCS
  1. ;;PDUC^Pulmonary Disease V20 CCS
  1. ;;RHUC^Rehabilitation V20 CCS
  1. ;;SCUC^Spinal Cord Injured V20 CCS
  1. ;;WCUC^Wound Care V20 CCS
  1. ;;CDVC^Cardiac Disease V21 CCS
  1. ;;CGVC^Coagulation Management V21 CCS
  1. ;;DEVC^Dementia V21 CCS
  1. ;;DMVC^Diabetes Mellitus V21 CCS
  1. ;;HTVC^Hypertension V21 CCS
  1. ;;IDVC^Infectious Disease V21 CCS
  1. ;;MHVC^Mental Health V21 CCS
  1. ;;PNVC^Pain Management V21 CCS
  1. ;;PDVC^Pulmonary Disease V21 CCS
  1. ;;RHVC^Rehabilitation V21 CCS
  1. ;;SNVC^Spinal Cord Injured V21 CCS
  1. ;;WCVC^Wound Care V21 CCS
  1. ;;CDWC^Cardiac Disease V22 CCS
  1. ;;CGWC^Coagulation Management V22 CCS
  1. ;;DEWC^Dementia V22 CCS
  1. ;;DMWC^Diabetes Mellitus V22 CCS
  1. ;;HTWC^Hypertension V22 CCS
  1. ;;IDWC^Infectious Disease V22 CCS
  1. ;;MHWC^Mental Health V22 CCS
  1. ;;PNWC^Pain Management V22 CCS
  1. ;;PDWC^Pulmonary Disease V22 CCS
  1. ;;RHWC^Rehabilitation V22 CCS
  1. ;;SCWC^Spinal Cord Injured V22 CCS
  1. ;;WCWC^Wound Care V22 CCS
  1. ;;QUIT