MDPOST14.m

MDPOST14 ;HOIFO/NCA-CREATE ASD Cross Reference ;8:34 AM  9 Jun 2005

 ;;1.0;CLINICAL PROCEDURES;**14**;Apr 01, 2004;Build 20

 N MDERR,MDLP,MDVSTD,MDV,MDX

 Q:$D(^MDD(702,"ASD"))

 D MES^XPDUTL("MDPOST-Create Cross Reference for Scheduled Date/Time...")

 K DIK S DIK="^MDD(702,",DIK(1)=".14^ASD" D ENALL^DIK

 K DIK

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MDPOST14   322     printed  Apr 23, 2025@17:57:43                                                                                                                                                                                                     Page 2

MDPOST14  ;HOIFO/NCA-CREATE ASD Cross Reference ;8:34 AM  9 Jun 2005

 +1       ;;1.0;CLINICAL PROCEDURES;**14**;Apr 01, 2004;Build 20

 +2        NEW MDERR,MDLP,MDVSTD,MDV,MDX

 +3        if $DATA(^MDD(702,"ASD"))

               QUIT 

 +4        DO MES^XPDUTL("MDPOST-Create Cross Reference for Scheduled Date/Time...")

 +5        KILL DIK

           SET DIK="^MDD(702,"

           SET DIK(1)=".14^ASD"

           DO ENALL^DIK

 +6        KILL DIK

 +7        QUIT