YSPOS46 ;DALISC/WTY - CLEANUP SUBSCRIPT IN PACKAGE FILE;10/06/98
;;5.01;MENTAL HEALTH;**46**;Dec 30, 1994
;
Q:'$D(^DIC(9.4,"C","YS"))
N DA,DIE,DR,STR,T,YSDSC,YSIE,YSPFX,YSANS
S YSANS=+$P(XPDQUES("POSYS46"),U)
S YSIE="",T=0,(DIE,DIK)="^DIC(9.4,"
F S YSIE=$O(^DIC(9.4,"C","YS",YSIE)) Q:YSIE="" D
.S STR=^DIC(9.4,YSIE,0),YSDSC=$P(STR,U,3)
.Q:YSDSC="Version 5.01 of Mental Health"
.S DA=YSIE
.I YSANS D ^DIK Q
.S T=T+1,YSPFX="YS"_T
.L +^DIC(9.4,YSIE):9999 Q:'$T
.S DR="1////"_YSPFX
.D ^DIE
.L -^DIC(9.4,YSIE)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYSPOS46 544 printed Nov 22, 2024@17:24:55 Page 2
YSPOS46 ;DALISC/WTY - CLEANUP SUBSCRIPT IN PACKAGE FILE;10/06/98
+1 ;;5.01;MENTAL HEALTH;**46**;Dec 30, 1994
+2 ;
+3 if '$DATA(^DIC(9.4,"C","YS"))
QUIT
+4 NEW DA,DIE,DR,STR,T,YSDSC,YSIE,YSPFX,YSANS
+5 SET YSANS=+$PIECE(XPDQUES("POSYS46"),U)
+6 SET YSIE=""
SET T=0
SET (DIE,DIK)="^DIC(9.4,"
+7 FOR
SET YSIE=$ORDER(^DIC(9.4,"C","YS",YSIE))
if YSIE=""
QUIT
Begin DoDot:1
+8 SET STR=^DIC(9.4,YSIE,0)
SET YSDSC=$PIECE(STR,U,3)
+9 if YSDSC="Version 5.01 of Mental Health"
QUIT
+10 SET DA=YSIE
+11 IF YSANS
DO ^DIK
QUIT
+12 SET T=T+1
SET YSPFX="YS"_T
+13 LOCK +^DIC(9.4,YSIE):9999
if '$TEST
QUIT
+14 SET DR="1////"_YSPFX
+15 DO ^DIE
+16 LOCK -^DIC(9.4,YSIE)
End DoDot:1
+17 QUIT
