ECX3P30P ;ALB/JAP Clinic Extract ; 12/16/99
;;3.0;DSS EXTRACTS;**30**;Dec 22, 1997
;
S ^ECX(727.1,11,"ROU")="ECXMTL"
S ^ECX(727.812,0)="MENTAL HEALTH EXTRACT^727.812^0^0"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECX3P30P 185 printed Dec 13, 2024@01:50:44 Page 2
ECX3P30P ;ALB/JAP Clinic Extract ; 12/16/99
+1 ;;3.0;DSS EXTRACTS;**30**;Dec 22, 1997
+2 ;
+3 SET ^ECX(727.1,11,"ROU")="ECXMTL"
+4 SET ^ECX(727.812,0)="MENTAL HEALTH EXTRACT^727.812^0^0"
+5 QUIT