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

BGOIN013.m

Go to the documentation of this file. 
  1. BGOIN013 ; IHS/MSC/PLS - BGO*1.1*13 ;11-Sep-2014 14:35;PLS
  1.  ;;1.1;BGO COMPONENTS;**13**;Mar 20, 2007
  1. EC Q
  1.  ; Preinit
  1. PRE ;
  1.  Q
  1.  ; Postinit
  1. POST ;
  1.  ; Clean up menu items
  1.  ;D CLNMNU
  1.  ; Register RPCs
  1.  D REGNMSP^CIAURPC("BGO","CIAV VUECENTRIC")
  1.  ; Update BGO component versions
  1.  N VER,FDA,PID,IEN,X
  1.  D BMES^XPDUTL("Updating version numbers...")
  1.  F VER=0:1 S X=$P($T(VER+VER),";;",2) Q:'$L(X)  D
  1.  .S PID=$$PRGID^CIAVMCFG($P(X,";"))
  1.  .S:PID FDA(19930.2,PID_",",2)=$P(X,";",2),FDA(19930.2,PID_",",7)=$P(X,";",3)
  1.  D:$D(FDA) FILE^DIE(,"FDA")
  1.  D UPDCHM
  1.  D PARS
  1.  ;D PICK
  1.  D DISABLED("IHSBGOICDPICKLIST.ICDPICKLIST",1)
  1.  D DISABLED("IHSBGOPROBLEM.BGOPROBLEM",1)
  1.  Q
  1.  ;
  1. UPDCHM ;EP-
  1.  N CHM,PID
  1.  F CHM=0:1 S X=$P($T(CHM+CHM),";;",2) Q:'$L(X)  D
  1.  .S PID=$$PRGID^CIAVMCFG($P(X,";"))
  1.  .D AECHM(PID,$P(X,";",2,99))
  1.  W !!
  1.  Q
  1. PARS ;Store system levels of new parameter
  1.  D EN^XPAR("SYS","BGO PROBLEM EDUCATION",1,"DISEASE PROCESS")
  1.  D EN^XPAR("SYS","BGO PROBLEM EDUCATION",2,"NUTRITION")
  1.  D EN^XPAR("SYS","BGO PROBLEM EDUCATION",3,"EXERCISE")
  1.  D EN^XPAR("SYS","BGO PROBLEM EDUCATION",4,"LIFESTYLE ADAPTATION")
  1.  D EN^XPAR("SYS","BGO PROBLEM EDUCATION",5,"MEDICATIONS")
  1.  D EN^XPAR("SYS","BGO PROBLEM EDUCATION",6,"PREVENTION")
  1.  Q
  1.  ; Set DISABLED field of OBJ to VAL
  1. DISABLED(OBJ,VAL) ;
  1.  N PID,FDA
  1.  S VAL=$G(VAL,0)
  1.  S PID=$$PRGID^CIAVMCFG($G(OBJ))
  1.  Q:'PID
  1.  S FDA(19930.2,PID_",",13)=VAL
  1.  D FILE^DIE(,"FDA")
  1.  Q
  1. PICK ;Install the national pick lists
  1.  D UPDATE^BGOSNLK
  1.  Q
  1.  N LP,NAME,SNO,BSTS,RET
  1.  F LP=0:1 S NAME=$P($T(LIST+LP),";;",2) Q:'$L(NAME)  D
  1.  .S BSTS=$P(NAME,"^",1)
  1.  .S SNO=$P(NAME,"^",2)
  1.  .D IMPORT^BGOSNLK(.RET,BSTS,SNO)
  1.  Q
  1.  ;National pick lists
  1. LIST ;;PICK ABNORMAL FINDINGS^ABNORMAL FINDINGS
  1.  ;;PICK CQM Problems^CQM PROBLEMS
  1.  ;;PICK Case Management^CASE MANAGEMENT
  1.  ;;PICK Diabetic Retinopathy^DIABETIC RETINOPATHY
  1.  ;;PICK Eye General^EYE GENERAL
  1.  ;;PICK Immunizations^IMMUNIZATIONS
  1.  ;;PICK NIST Problems^NIST PROBLEMS
  1.  ;;PICK Nutrition^NUTRITION
  1.  ;;PICK Prenatal - Care^PRENATAL CARE
  1.  ;;PICK Prenatal - Problem Fetus^PRENATAL PROBLEM FETUS
  1.  ;;PICK Prenatal - Problem Pregnancy^PRENATAL PROBLEM PREGNANCY
  1.  ;;PICK Prenatal - Risk^PRENATAL RISK
  1.  ;;PICK Public Health Nursing^PUBLIC HEALTH NURSING
  1.  ;;PICK Womens Health^WOMENS HEALTH
  1.  ;;
  1. AECHM(PID,VAL) ;EP-
  1.  N LN,FN,IDX,TXT,ARY,CNT,IENS
  1.  S FN=$P(VAL,";"),CNT=0
  1.  S LN=0 F  S LN=$O(^CIAVOBJ(19930.2,PID,6,LN)) Q:'LN  D  Q:$G(IDX)
  1.  .S TXT=^CIAVOBJ(19930.2,PID,6,LN,0)
  1.  .S ARY(LN,0)=TXT,CNT=CNT+1
  1.  .I $$UP^XLFSTR(TXT)[$$UP^XLFSTR($P(VAL,";")) S IDX=LN
  1.  I $G(IDX) D
  1.  .S ^CIAVOBJ(19930.2,PID,6,IDX,0)=VAL
  1.  E  D
  1.  .S ARY($S('CNT:1,1:CNT+1),0)=VAL
  1.  .S IENS=PID_","
  1.  .S FDA(19930.2,IENS,10)="ARY"
  1.  .D FILE^DIE(,"FDA")
  1.  Q
  1.  ;
  1. CLNMNU ;
  1.  ; Remove option from menu
  1.  N OPTION,MENU,DA,DIK,PAR,ERR,X
  1.  S (OPTION,MENU)=""
  1.  S OPTION="BGO IMM STOP ADDING CPT CODES"
  1.  S MENU="BGOIMM MAIN"
  1.  S X=$$DELETE^XPDMENU(MENU,OPTION)
  1.  Q:'+X
  1.  ;Inactivate the option
  1.  D OUT^XPDMENU(OPTION,"No longer used")
  1.  ;Clean out the parameter
  1.  S PAR=""
  1.  S PAR=$O(^XTV(8989.51,"B","BGO IMM STOP ADDING CPT CODES",PAR))
  1.  Q:'+PAR
  1.  S ERR=0
  1.  D NDEL^XPAR("USR",PAR,.ERR)
  1.  Q:ERR>0
  1.  D NDEL^XPAR("DIV",PAR,.ERR)
  1.  Q:ERR>0
  1.  D NDEL^XPAR("PKG",PAR,.ERR)
  1.  Q:ERR>0
  1.  ;Delete the parameter
  1.  S DA=PAR,DIK="^XTV(8989.51," D ^DIK
  1.  Q
  1. VER ;;IHSBGOVPOV.BGOVPOV;1.2.0.51;D9DE38C51ADD00906ED4A712C37C6B7E
  1.  ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;1.2.0.50;ABC8135B600B4ABA79D43ED52D334E99
  1.  ;;IHSBGOFAMHX.BGOFAMHX;1.0.0.684;5286CC5DD0E9438CCA152B03BC08931D
  1.  ;;IHSBGOINFANTFEED.IHSBGOINFANTFEEDCTRL;1.2.0.218;0C13F7AFF3AA9DF355B7AAF53280CCA2
  1.  ;;IHSBGOIMMUNIZATION.BGOIMM;1.2.0.193;3DE766E5F0BA0C0F5B696285CBDF6F6E
  1.  ;;IHSBGOEXAMS.BGOEXAMS;1.1.0.376;8059564758DA048EB15715A453B0C411
  1.  ;;IHSBGOPATIENTED.BGOPATED;1.2.0.256;A746A8DD1A439F55AD6C4AF4BA7E46F0
  1.  ;;BEHANTICOAG.BEHANTICOAG;1.1.4955.23154;071A4D6C7FCADB2166DEE2EAFD928474
  1.  ;;IHSBGOSKINTEST.IHSBGOSK;1.2.0.140;2A7B0F7D878074DFB2FE5E414DA2E5FB
  1.  ;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL;1.2.0.83;F3B8149F2CF2D056A44FC8A37D0569FA
  1.  ;;IHSBGOVCPT.BGOVCPT;1.2.0.73;1C2C9E56C07F298C2B6D90FF90FEAF18
  1.  ;;
  1. CHM ;;IHSBGOEXAMS.BGOEXAMS;IhsBgoExams.chm;2014.4.9.143926;98722792DA449372E772F61E41F21972
  1.  ;;IHSBGOSKINTEST.IHSBGOSK;IhsBgoSkinTest.chm;2013.8.13.150038;9C6915D22D846B9BF2D1F9EE33BAEB6B
  1.  ;;IHSBGOINFANTFEED.IHSBGOINFANTFEEDCTRL;IhsBgoInfantFeed.chm;2013.8.16.121312;D85018E3711D36CB8B3B849AB670D2B0
  1.  ;;IHSBGOIMMUNIZATION.BGOIMM;IhsBgoImmunization.chm;2014.3.27.132512;C16E2A7498B2F5B3152E95AD7E8FEE32
  1.  ;;IHSBGOFAMHX.BGOFAMHX;IhsBgoFamHX.chm;2014.4.9.170406;A46A9C25CDC09FA30BDB8BE6E0396D1F
  1.  ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;IhsBgoPovHistory.chm;2014.3.19.154200;A013DE7A0E5577167B9869406134322C
  1.  ;;IHSBGOVPOV.BGOVPOV;IhsBgoVPOV.chm;2014.3.19.142500;70A656C7B585E0731B95E1174BD4DEF1
  1.  ;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL;IhsBgoRepHist.chm;2013.9.12.121402;81E2B2A162A366C83D9A557F18F116E5
  1.  ;;IHSBGOPATIENTED.BGOPATED;IhsBgoPatientEd.chm;2014.3.27.153232;3B5C5BFC9B512C6A3352D7FA637FBA0D
  1.  ;;IHSBGOHEALTHFACTORS.BGOHF;IhsBgoHealthFactors.chm;2014.1.27.164100;3C7A459C207B5E24CE0D7C23AF2F44F0
  1.  ;;