ECXPIV1.m

ECXPIV1 ;ALB/JAP,BIR/DMA-Store Data from IV Package into 728.113 ; 03 Nov 95 / 12:58 PM

 ;;3.0;DSS EXTRACTS;**8,24**;Dec 22, 1997

 ;called from the IV routine PSIVSTAT

 ;load IV data into intermediate file #728.113

 N DA,DIK

 I '$D(^ECX(728.113)) Q

 L +^ECX(728.113,0):1 Q:'$T

 S EC=$O(^ECX(728.113,999999999),-1),EC=EC+1

 S ^ECX(728.113,EC,0)=EC_U_ECUD L -^ECX(728.113,0)

 S DA=EC,DIK="^ECX(728.113," D IX^DIK

 K EC

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECXPIV1   432     printed  Apr 09, 2024@20:58:34                                                                                                                                                                                                      Page 2

ECXPIV1   ;ALB/JAP,BIR/DMA-Store Data from IV Package into 728.113 ; 03 Nov 95 / 12:58 PM

 +1       ;;3.0;DSS EXTRACTS;**8,24**;Dec 22, 1997

 +2       ;called from the IV routine PSIVSTAT

 +3       ;load IV data into intermediate file #728.113

 +4        NEW DA,DIK

 +5        IF '$DATA(^ECX(728.113))

               QUIT 

 +6        LOCK +^ECX(728.113,0):1

           if '$TEST

               QUIT 

 +7        SET EC=$ORDER(^ECX(728.113,999999999),-1)

           SET EC=EC+1

 +8        SET ^ECX(728.113,EC,0)=EC_U_ECUD

           LOCK -^ECX(728.113,0)

 +9        SET DA=EC

           SET DIK="^ECX(728.113,"

           DO IX^DIK

 +10       KILL EC

 +11       QUIT