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

YS121PST.m

Go to the documentation of this file. 
  1. YS121PST ;SLC/KCM - Patch 121 post-init - utilities; 9/15/2015
  1.  ;;5.01;MENTAL HEALTH;**121**;Dec 30, 1994;Build 61
  1.  ;
  1.  ;Reference to PXRMEXSI APIs supported by DBIA #4371
  1.  Q
  1.  ;
  1.  ;Adding notes to make sure what I know doesn't slip between the cracks.
  1.  ;  moved the YBOCSII, YBOCSII Symptom List, and the QOLIE-10 to OPERATONAL to Under development, HAS BEEN OPERATIONAL to No
  1.  ;  added name changes to the Index of Adl and KTZADL
  1.  ;  will also be adding the CSI Partner and CSI-4 Partner as new instruments
  1.  ;
  1.  ;
  1. EXPDATE ; export date used to update 601.71:18
  1.  ;;3170731.1956
  1.  Q
  1. PRE ; pre-init
  1.  D BMES^XPDUTL("Re-indexing MH CHOICETYPES file")
  1.  N DIK
  1.  K ^YTT(601.751,"AC")
  1.  S DIK="^YTT(601.751," D IXALL^DIK
  1.  ;
  1.  ; switch back to uppercase if earlier version of patch installed
  1.  D CHGNM("ASSIST-WHOv3","ASSIST-WHOV3")
  1.  D CHGNM("KATZ-ADL-6pt","KATZ-ADL-6PT")
  1.  D CHGNM("KATZ-ADL-18pt","KATZ-ADL-18PT")
  1.  
  1.  ;
  1.  ; set up for Reminder Exchange install of PCL-5 fixes
  1.  D DELEXE^PXRMEXSI("EXARRAY","YS121PST")
  1.  Q
  1. POST ; post-init
  1.  N YTXLOG
  1.  D CHGNM("ASSIST","ASSIST-WHOV3")
  1.  D CHGNM("ASSIST NIDA","ASSIST-NIDA")
  1.  D CHGNM("INDEX OF ADL","KATZ-ADL-18PT")
  1.  D CHGNM("KTZADL","KATZ-ADL-6PT")
  1.  D BAK2DEV("QOLIE-10")
  1.  D BAK2DEV("YBOCSII")
  1.  D BAK2DEV("YBOCSII SYMPTOM LIST")
  1.  D BAK2DEV("IMRA")
  1.  D BAK2DEV("SIP-2L")
  1.  D COMPANS
  1.  D FIXSMEQ
  1.  D REQLIC
  1.  ;Fileman deletes, specially added to remove duplicate entries in MH REPORTS (601.93)
  1.  D FMDEL^YTXCHGU(601.93,68)  ;old GAI report, current and valid one is entry #69
  1.  K ^XTMP("YTXIDX") ; force building of new index across tests
  1.  D INSTALLQ^YTXCHG("XCHGLST","YS121PST")
  1.  ; drop tests
  1.  F NM="CIWA-AR","AUIR","CESD5","DOM80","DOMG","ERS","HLOC" D DROPTST(NM)
  1.  F NM="IEQ","RLOC","SAI","SDES","SMAST","VALD","WAS" D DROPTST(NM)
  1.  ; for PSOCQ, remove YS_MHA_AUX.DLL VERSION value (currently 1.0.3.3)
  1.  N TST S TST=$O(^YTT(601.71,"B","PSOCQ",0))
  1.  I TST D CLRFLD(601.71,100.03,TST)
  1.  ;
  1.  ; call Reminder Exchange to install PCL-5 fixes
  1.  D SMEXINS^PXRMEXSI("EXARRAY","YS121PST")
  1.  Q
  1. CHGNM(OLD,NEW) ; Change test name
  1.  N REC,IEN
  1.  S IEN=$O(^YTT(601.71,"B",OLD,0))
  1.  I 'IEN QUIT  ; already updated
  1.  S REC(.01)=NEW
  1.  S REC(18)=3170914
  1.  D FMUPD^YTXCHGU(601.71,.REC,IEN)
  1.  Q
  1. COMPANS ; add "computed answer" questions
  1.  K ^TMP($J,"WP")
  1.  N IEN,REC
  1.  F IEN=7771:1:7783 D
  1.  . I $D(^YTT(601.72,IEN,0)) Q  ; already added
  1.  . S ^TMP($J,"WP",IEN,1,0)="Computed Answer #"_(IEN-7770)
  1.  . S REC(.01)=IEN
  1.  . S REC(1)=$NA(^TMP($J,"WP",IEN))
  1.  . S REC(3)=3
  1.  . D FMADD^YTXCHGU(601.72,.REC,IEN)
  1.  K ^TMP($J,"WP")
  1.  Q
  1. FIXSMEQ ; fix choice to avoid "conflict" error with existing CSM entry
  1.  N REC
  1.  I $E($G(^YTT(601.75,3253,1)),1,8)'="A little" Q  ; unexpected record
  1.  S REC(3)="A little unpleasant but no great problem"
  1.  D FMUPD^YTXCHGU(601.75,.REC,3253)
  1.  Q
  1. REQLIC ; change instruments to require license
  1.  N NM,IEN,REC
  1.  F NM="ISI","QOLI","SF36","SSF","WAI-SR","YBOCSII","YBOCSII SYMPTOM LIST" D
  1.  . S IEN=$O(^YTT(601.71,"B",NM,0))
  1.  . S REC(11)="Y",REC(20)="Y"
  1.  . D FMUPD^YTXCHGU(601.71,.REC,IEN)
  1.  Q
  1. DROPTST(NAME) ; Change OPERATIONAL to dropped
  1.  N IEN,REC
  1.  S IEN=$O(^YTT(601.71,"B",NAME,0)) Q:'IEN
  1.  S REC(10)="D"
  1.  S REC(18)=$P($T(EXPDATE+1),";;",2)
  1.  D FMUPD^YTXCHGU(601.71,.REC,IEN)
  1.  Q
  1. CLRFLD(FILE,FLD,IEN) ;
  1.  N REC
  1.  S REC(FLD)=""
  1.  D FMUPD^YTXCHGU(FILE,.REC,IEN)
  1.  Q
  1. BAK2DEV(NAME) ; Set instrument back to 'under development'
  1.  N IEN,REC
  1.  S IEN=$O(^YTT(601.71,"B",NAME,0)) Q:'IEN
  1.  S REC(10)="U"
  1.  S REC(10.5)="N"
  1.  S REC(18)=$P($T(EXPDATE+1),";;",2)
  1.  D FMUPD^YTXCHGU(601.71,.REC,IEN)
  1.  Q
  1. XCHGLST(ARRAY) ; return array of instrument exchange entries
  1.  ; ARRAY(cnt,1)=instrument exchange entry name
  1.  ; ARRAY(cnt,2)=instrument exchange entry creation date
  1.  ;
  1.  N I,X
  1.  S I=0 F  S I=I+1,X=$P($T(ENTRIES+I),";;",2,99) Q:X="zzzzz"  D
  1.  . S ARRAY(I,1)=$P(X,U,1)
  1.  . S ARRAY(I,2)=$P(X,U,2)
  1.  Q
  1. ENTRIES ; New/Updated MHA instruments ^ Exchange Entry Date
  1.  ;;YS*5.01*121 NEW INSTRUMENTS^12/12/2017@19:04:38
  1.  ;;YS*5.01*121 UPDATES^12/12/2017@19:06:09
  1.  ;;zzzzz
  1.  ;
  1. EXARRAY(MODE,ARRAY) ;Called by Reminder Exchange to fix PCL-5
  1.  ;MODE values: I for include in build, A for include action.
  1.  N LN S LN=0
  1.  ;
  1.  S LN=LN+1
  1.  S ARRAY(LN,1)="YS*5.01*121 PCL-5 FIX"
  1.  I MODE["I" S ARRAY(LN,2)="12/20/2016@16:10:39"
  1.  I MODE["A" S ARRAY(LN,3)="I"
  1.  I MODE="IA" D BMES^XPDUTL("There are "_LN_" Reminder Exchange entries to be installed.")
  1.  Q
  1.  ;
  1.  ;
  1. MODDATE ; Set new dates for tests listed so the GUI will reload the definition
  1.  ; This is best done in the account where the build is created so that the
  1.  ; original and destination accounts match.
  1.  N I,X,NEWDT
  1.  S NEWDT=$P($T(EXPDATE+1),";;",2)
  1.  F I=1:1 S X=$P($P($T(TESTS+I),";;",2),"^") Q:X="zzzzz"  D NEWDATE^YTXCHGU(X,NEWDT)
  1.  Q
  1. TESTS ; exported tests (renamed, added,updated, and retired)
  1.  ;;ASSIST-WHOV3^renamed
  1.  ;;ASSIST-NIDA^added
  1.  ;;BRS^added
  1.  ;;CCSA-DSM5^added
  1.  ;;CEMI^added
  1.  ;;CIWA-AR-^added
  1.  ;;CSI^added
  1.  ;;CSI PARTNER VERSION^added
  1.  ;;CSI-4^added
  1.  ;;CSI-4 PARTNER VERSION^added
  1.  ;;GAI^added
  1.  ;;ISI^added
  1.  ;;KATZ-ADL-18PT^updated
  1.  ;;KATZ-ADL-6PT^added
  1.  ;;PHQ9^updated
  1.  ;;PSOCQ^added
  1.  ;;PSS^added
  1.  ;;RLS^added
  1.  ;;SMEQ^added
  1.  ;;SNQ^added
  1.  ;;STOP^added
  1.  ;;WAI-SR^updated
  1.  ;;CIWA-AR^retired
  1.  ;;AUIR^retired
  1.  ;;CESD5^retired
  1.  ;;DOM80^retired
  1.  ;;DOMG^retired
  1.  ;;ERS^retired
  1.  ;;HLOC^retired
  1.  ;;IEQ^retired
  1.  ;;RLOC^retired
  1.  ;;SAI^retired
  1.  ;;SDES^retired
  1.  ;;SMAST^retired
  1.  ;;VALD^retired
  1.  ;;WAS^retired
  1.  ;;zzzzz
  1.  ;
  1.  ; -- decided to do these later
  1.  ;;IMRA^added
  1.  ;;QOLIE-10^added
  1.  ;;SIP-2L^added
  1.  ;;YBOCSII^added
  1.  ;;YBOCSII SYMPTOM LIST^added