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

YS141PS0.m

Go to the documentation of this file.
  1. YS141PS0 ;SLC/KCM - Patch 141 Post-Init Update Categories ; 1/27/2020
  1. ;;5.01;MENTAL HEALTH;**130,141**;Dec 30, 1994;Build 85
  1. ;
  1. ; External Reference ICR#
  1. ; ------------------ -----
  1. ; %ZOSV 10097
  1. ; DIE 2053
  1. ; DIK 10013
  1. ; DILF 2054
  1. ; XPDUTL 10141
  1. ;
  1. Q
  1. SHOCATS ; List out categories for inclusion in routine
  1. N TEST,X,CAT,IEN,LIST
  1. S TEST=0 F S TEST=$O(^YTT(601.71,TEST)) Q:'TEST D
  1. . I $P($G(^YTT(601.71,TEST,2)),U,2)'="Y" QUIT ; active instrument?
  1. . S X="",CAT=0 F S CAT=$O(^YTT(601.71,TEST,10,CAT)) Q:'CAT D
  1. . . S IEN=+^YTT(601.71,TEST,10,CAT,0)
  1. . . S X=X_$S($L(X):U,1:"")_$P(^YTT(601.97,IEN,0),U)
  1. . I $L(X) S LIST($P(^YTT(601.71,TEST,0),U))=X
  1. S X="" F S X=$O(LIST(X)) Q:'$L(X) W !," ;;"_X_U_LIST(X)
  1. Q
  1. SETCATS ; Set categories from CATLST into 601.71
  1. ; Don't run this install in the dev environment
  1. N Y D GETENV^%ZOSV I $P(Y,U,4)="SPPNXT:VISTA" Q
  1. ;
  1. N YSI,YSJ,YSX,YSNM,YSIEN,YSCATS,YSCAT,YSCNT
  1. S YSCNT=0
  1. F YSI=1:1 S YSX=$P($T(CATLST+YSI),";;",2,99) Q:YSX="zzzzz" D
  1. . S YSNM=$P(YSX,U,1),YSCATS=$P(YSX,U,2,99)
  1. . S YSIEN=$O(^YTT(601.71,"B",YSNM,0)) Q:'YSIEN
  1. . D DELCATS(YSIEN)
  1. . N FDA,FDAIEN,DIERR
  1. . F YSJ=1:1:$L(YSCATS,U) D
  1. . . S YSCAT=$P(YSCATS,U,YSJ) Q:'$L(YSCAT)
  1. . . S YSCNT=YSCNT+1
  1. . . S FDA(601.71101,"+"_YSJ_","_YSIEN_",",.01)=YSCAT
  1. . Q:$D(FDA)<10
  1. . D UPDATE^DIE("E","FDA","FDAIEN")
  1. . I $D(DIERR) D MES^XPDUTL(YSNM_": "_$G(^TMP("DIERR",$J,1,"TEXT",1)))
  1. . D CLEAN^DILF
  1. D MES^XPDUTL("Instrument categories updated: "_YSCNT)
  1. Q
  1. DELCATS(YSIEN) ; Delete the categories for instrument YSIEN
  1. I '$O(^YTT(601.71,YSIEN,10,0)) Q ; no child nodes
  1. N DA,DIK
  1. S DA=0,DA(1)=YSIEN,DIK="^YTT(601.71,"_DA(1)_",10,"
  1. F S DA=$O(^YTT(601.71,YSIEN,10,DA)) Q:'DA D ^DIK
  1. Q
  1. CATLST ; Instrument Categories
  1. ;;ACE^Screening
  1. ;;AD8^Pain^Cognitive
  1. ;;BSL-23^General Symptoms
  1. ;;BSS^Suicide Prevention
  1. ;;CMQ^Sleep
  1. ;;EAT-26^Screening
  1. ;;ERS^Employment
  1. ;;FOCI^Anxiety/PTSD
  1. ;;KATZ-ADL-18PT^ADL/Func Status
  1. ;;MHRM-10^Recovery
  1. ;;SCL9R^General Symptoms
  1. ;;zzzzz
  1. ;;SIP-AD-START^Sleep