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

MDPOST14.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDPOST14   322     printed  Apr 09, 2024@20:49:06                                                                                                                                                                                                     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