24 lines
704 B
Mathematica
24 lines
704 B
Mathematica
HUIPSUPD ; - updates orderable item file with PS Orderable Items ; 2/1/05 5:09pm
|
|
;;1.0;1/25/05 7:55am - DLD - Pacific HUI;;;Build 1
|
|
;;This routine populates the drug orderable items
|
|
;
|
|
EN ; loop through PS(50.7 and add to OE Ordeable item
|
|
N PSOIEN
|
|
D DT^DICRW
|
|
S PSOIEN=0 F S PSOIEN=$O(^PS(50.7,PSOIEN)) Q:'PSOIEN D ADD(PSOIEN)
|
|
Q
|
|
ADD(PSOIEN) ; Calls PS Orderable Item update routines
|
|
D EN^PSSPOIDT(PSOIEN),EN2^PSSHL1(PSOIEN,"MUP")
|
|
Q
|
|
;
|
|
SET ; - updates view set
|
|
N DIC,X,Y,IEN,D,TYPE,NM,DGNM,UPDTIME,ATTEMPT
|
|
D DT^DICRW
|
|
S DIC="^ORD(101.44,",DIC(0)="AQ"
|
|
F D ^DIC Q:+Y Q:X="^"
|
|
Q:X="^"
|
|
S IEN=+Y
|
|
S NM=$P(Y,U,2),DGNM=$P(NM,"ORWDSET ",2),UPDTIME=$H,ATTEMPT=""
|
|
W !,"Run ORWUL" D FVBLD^ORWUL
|
|
Q
|