ECXUDRF.m

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 ---ECXUDRF   429     printed  Mar 13, 2025@20:58:56                                                                                                                                                                                                      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       ;