ECXUDRF ;ALB/DHH-PHARMACY RECREATE CALLS ;10/22/13 17:33
;;3.0;DSS EXTRACTS;**112,148**;Dec 22, 1997;Build 3
;
;This routine will recreate the IV or UD extract for DSS Inpatient
;Pharmacy IA (#5201)
;
ENIVP ; entry point to recreate IVP extract holding file (#728.113)
S EXTRACT="IV"
D EN^PSJDSS
Q
;
ENUDP ; entry point to recreate UDP extract holding file (#728.904)
S EXTRACT="UD"
D EN^PSJDSS
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HECXUDRF 429 printed Dec 13, 2024@01:54:16 Page 2
ECXUDRF ;ALB/DHH-PHARMACY RECREATE CALLS ;10/22/13 17:33
+1 ;;3.0;DSS EXTRACTS;**112,148**;Dec 22, 1997;Build 3
+2 ;
+3 ;This routine will recreate the IV or UD extract for DSS Inpatient
+4 ;Pharmacy IA (#5201)
+5 ;
ENIVP ; entry point to recreate IVP extract holding file (#728.113)
+1 SET EXTRACT="IV"
+2 DO EN^PSJDSS
+3 QUIT
+4 ;
ENUDP ; entry point to recreate UDP extract holding file (#728.904)
+1 SET EXTRACT="UD"
+2 DO EN^PSJDSS
+3 QUIT
+4 ;
