source: FOIAVistA/trunk/r/DSS_EXTRACTS-ECX/ECXUD1.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 501 bytes
Line 
1ECXUD1 ;ALB/JAP,BIR/DMA-Store Data from Unit Dose Package into 728.904 ; 26 Sep 95 / 12:44 PM
2 ;;3.0;DSS EXTRACTS;**8**;Dec 22, 1997
3 ;called from 2 unit dose routines - PSGPLF and PSGAMSA
4 ;load UD data into an EC file for later extract to vendor
5 N DA,DIK
6 S X="ECXYUD1" X ^%ZOSF("TEST") I $T D ^ECXYUD1
7 I '$D(^ECX(728.904)) Q
8 L +^ECX(728.904,0):1 Q:'$T
9 S EC=$O(^ECX(728.904,999999999),-1),EC=EC+1
10 S ^ECX(728.904,EC,0)=EC_U_ECUD L -^ECX(728.904,0)
11 S DA=EC,DIK="^ECX(728.904," D IX^DIK
12 K EC
13 Q
Note: See TracBrowser for help on using the repository browser.