MDCLN.m

MDCLN ;HIOFO/NCA - Cleanup Disabled Studies ;4/19/01  11:52

 ;;1.0;Clinical Procedures;**21**;Apr 01, 2004;Build 30

 N MDLP,MDFDA

 S MDLP=0 F  S MDLP=$O(^MDK(704.202,"AS",2,MDLP)) Q:MDLP<1  D

 .I $P($G(^MDD(702,MDLP,0)),"^",9)'=3!($P($G(^MDD(702,MDLP,0)),"^",9)=3) D

 ..S MDFDA(702,+MDLP_",",.09)=3

 ..D FILE^DIE("","MDFDA") W !,+MDLP

 ..K MDFDA S MDFDA(704.202,+MDLP_",",.09)=0

 ..D FILE^DIE("","MDFDA")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MDCLN   418     printed  Mar 13, 2025@20:47:03                                                                                                                                                                                                        Page 2

MDCLN     ;HIOFO/NCA - Cleanup Disabled Studies ;4/19/01  11:52

 +1       ;;1.0;Clinical Procedures;**21**;Apr 01, 2004;Build 30

 +2        NEW MDLP,MDFDA

 +3        SET MDLP=0

           FOR 

               SET MDLP=$ORDER(^MDK(704.202,"AS",2,MDLP))

               if MDLP<1

                   QUIT 

               Begin DoDot:1

 +4                IF $PIECE($GET(^MDD(702,MDLP,0)),"^",9)'=3!($PIECE($GET(^MDD(702,MDLP,0)),"^",9)=3)

                       Begin DoDot:2

 +5                        SET MDFDA(702,+MDLP_",",.09)=3

 +6                        DO FILE^DIE("","MDFDA")

                           WRITE !,+MDLP

 +7                        KILL MDFDA

                           SET MDFDA(704.202,+MDLP_",",.09)=0

 +8                        DO FILE^DIE("","MDFDA")

                       End DoDot:2

               End DoDot:1

 +9        QUIT