source: WorldVistAEHR/trunk/r/CLINICAL_PROCEDURES-MD/MDPOST14.m@ 1714

Last change on this file since 1714 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 314 bytes
RevLine 
[613]1MDPOST14 ;HOIFO/NCA-CREATE ASD Cross Reference ;8:34 AM 9 Jun 2005
2 ;;1.0;CLINICAL PROCEDURES;**14**;Apr 01, 2004;Build 20
3 N MDERR,MDLP,MDVSTD,MDV,MDX
4 Q:$D(^MDD(702,"ASD"))
5 D MES^XPDUTL("MDPOST-Create Cross Reference for Scheduled Date/Time...")
6 K DIK S DIK="^MDD(702,",DIK(1)=".14^ASD" D ENALL^DIK
7 K DIK
8 Q
Note: See TracBrowser for help on using the repository browser.