YSPOS46.m

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 ---YSPOS46   544     printed  Apr 09, 2024@21:21:38                                                                                                                                                                                                      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