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

BGOIN014.m

Go to the documentation of this file. 
  1. BGOIN014 ; IHS/MSC/PLS - BGO*1.1*14 ;05-Feb-2015 09:49;PLS
  1.  ;;1.1;BGO COMPONENTS;**14**;Mar 20, 2007
  1. EC Q
  1.  ; Preinit
  1. PRE ;
  1.  D DISABLED("BEHSTROKE.LAUNCHSTROKEBUTTON",0)
  1.  D DISABLED("BEHSTROKE.STROKECONTROL",0)
  1.  D DISABLED("BGOAMI.AMICONTROL",0)
  1.  D DISABLED("BGOAMI.LAUNCHAMIBUTTON",0)
  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 DISABLED("IHSBGOITEMS.BGOITEMS",1)
  1.  D PARS1
  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. PARS1 ;EP - Cleanup old parameter values for location
  1.  N PAR,ENT,ERR
  1.  S PAR="" S PAR=$O(^XTV(8989.51,"B","BGO PROBLEM EDUCATION",PAR))
  1.  Q:'+PAR
  1.  S ENT="" F  S ENT=$O(^XTV(8989.5,"AC",PAR,ENT)) Q:ENT=""  D
  1.  .Q:$P(ENT,";",2)'="SC("
  1.  .S ERR=0
  1.  .D NDEL^XPAR(ENT,PAR,.ERR)
  1.  N LIEN
  1.  S LIEN="" S LIEN=$O(^XTV(8989.51,PAR,30,"B",100,LIEN))
  1.  Q:LIEN=""
  1.  S DA(1)=PAR,DA=LIEN
  1.  S DIK="^XTV(8989.51,PAR,30,"
  1.  D ^DIK
  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 ;;IHSBGOREPFACTORS.IHSBGOREPFACTORSCTRL;1.2.0.189;66F07F131F1E79278F6688B794DF8C12
  1.  ;;BEHSTROKE.LAUNCHSTROKEBUTTON;1.1.5423.18571;C2DABB84F3A2BC6654CDEA2E1B51DC34
  1.  ;;BEHSTROKE.STROKECONTROL;1.1.5423.18571;C2DABB84F3A2BC6654CDEA2E1B51DC34
  1.  ;;IHSBGOFAMHX.BGOFAMHX;1.0.0.685;1D8437085059DD5D8906D803207BA1CF
  1.  ;;IHSBGOEXAMS.BGOEXAMS;1.1.0.378;AEFAA36DFEB0441C04E6CBD866572FE6
  1.  ;;IHSBGOICDPICKLIST.ICDPICKLIST;1.2.0.80;5325FA6D2D04CB49B51F8F268EAE6091
  1.  ;;IHSBGOIMMUNIZATION.BGOIMM;1.2.0.202;6D85E2938E78FD9F5CEC44751C223136
  1.  ;;IHSBGOITEMS.BGOITEMS;1.2.0.52;0C7170AD511FF6918F2F9AE71DDA5495
  1.  ;;IHSBGOPATIENTED.BGOPATED;1.2.0.261;8B46BC127E3A27902622F5767EDB6012
  1.  ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;1.2.0.52;543D1F69A03FDEC031DF87424267533B
  1.  ;;IHSBGOPROBLEM.BGOPROBLEM;1.2.0.104;A2253043611D247E6F9FA66CC3C0BD27
  1.  ;;IHSBGOPROCEDURESVIEWER.BGOPROCVIEW;1.2.0.95;397EA5D371EE37165B9698B100C2A5FD
  1.  ;;IHSBGOREPHISTORY.IHSBGOREPHISTCTRL;1.2.0.84;E1EE7F72D0668C9FECA27BABF3D0CAFF
  1.  ;;IHSBGOSKINTEST.IHSBGOSK;1.2.0.157;EB79656A72A8E344422BD79DD0AB1514
  1.  ;;IHSBGOVCPT.BGOVCPT;1.2.0.77;2A504049BC84E6E315CCD66812FD0166
  1.  ;;BGOAMI.AMICONTROL;1.1.5514.16557;AE48C8A9F9B9D4313C4F1CC02F8F89D3
  1.  ;;BGOAMI.LAUNCHAMIBUTTON;1.1.5514.16557;AE48C8A9F9B9D4313C4F1CC02F8F89D3
  1.  ;;IHSBGOVPOV.BGOVPOV;1.2.0.54;07AE288DC5B36A930171836C432E484E
  1.  ;;IHSBGOEYEEXAM.BGOEYEEXAM;1.1.0.16;05678FD748362E0DC6D746316070E192
  1.  ;;IHSBGOEM.BGOEMCTRL;1.1.0.236;FEF42FAEEA4445C191849A04B1B28013
  1.  ;;IHSBGOINFANTFEED.IHSBGOINFANTFEEDCTRL;1.2.0.218;0C13F7AFF3AA9DF355B7AAF53280CCA2
  1.  ;;BEHANTICOAG.BEHANTICOAG;1.1.5506.27895;55EDD671BE54E67999652D4D71D4E0EE
  1.  ;;
  1. CHM ;;BEHANTICOAG.BEHANTICOAG;BEHAntiCoag.chm;2014.5.21.183436;70484B064F581E5554BABD372BCF6EEA
  1.  ;;BEHSTROKE.LAUNCHSTROKEBUTTON;BEHStroke.chm;2014.5.22.152830;599ACF2FECEEF849F144D34A74ACD521
  1.  ;;BEHSTROKE.STROKECONTROL;BEHStroke.chm;2014.5.22.152830;599ACF2FECEEF849F144D34A74ACD521
  1.  ;;IHSBGOVCPT.BGOVCPT;IhsBgoVCPT.chm;2014.6.6.135616;C66D5A8C9EFE075A8F7A8FDE78075065
  1.  ;;IHSBGOREPFACTORS.IHSBGOREPFACTORSCTRL;IhsBgoRepFactors.chm;2014.5.22.181014;3CF377330028B828FFF505029FAE7C1D
  1.  ;;IHSBGOIMMUNIZATION.BGOIMM;IhsBgoImmunization.chm;2014.9.5.211106;43FBE56E45FD9FDEE26DEB82755C6F09
  1.  ;;BGOAMI.AMICONTROL;BGOAMI.CHM;2014.5.22.105752;3DF8066FD4A72AAA97B4D72785708313
  1.  ;;BGOAMI.LAUNCHAMIBUTTON;BGOAMI.CHM;2014.5.22.105752;3DF8066FD4A72AAA97B4D72785708313
  1.  ;;IHSBGOITEMS.BGOITEMS;IhsBgoItems.chm;2014.11.20.165756;397D0D31C6F7072AE1B18953BEF76B2B
  1.  ;;IHSBGOVPOV.BGOVPOV;IhsBgoVPOV.chm;2014.11.24.173016;3343707CA4D65E34F675C013E59724D1
  1.  ;;IHSBGOPOVHISTORY.BGOPOVHISTORY;IhsBgoPovHistory.chm;2014.11.24.154400;D8AD1EA0FA144F8075CC3E05323D4717
  1.  ;;