source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/HUIPSUPD.m@ 1073

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

initial load of WorldVistAEHR

File size: 704 bytes
Line 
1HUIPSUPD ; - updates orderable item file with PS Orderable Items ; 2/1/05 5:09pm
2 ;;1.0;1/25/05 7:55am - DLD - Pacific HUI;;;Build 1
3 ;;This routine populates the drug orderable items
4 ;
5EN ; loop through PS(50.7 and add to OE Ordeable item
6 N PSOIEN
7 D DT^DICRW
8 S PSOIEN=0 F S PSOIEN=$O(^PS(50.7,PSOIEN)) Q:'PSOIEN D ADD(PSOIEN)
9 Q
10ADD(PSOIEN) ; Calls PS Orderable Item update routines
11 D EN^PSSPOIDT(PSOIEN),EN2^PSSHL1(PSOIEN,"MUP")
12 Q
13 ;
14SET ; - updates view set
15 N DIC,X,Y,IEN,D,TYPE,NM,DGNM,UPDTIME,ATTEMPT
16 D DT^DICRW
17 S DIC="^ORD(101.44,",DIC(0)="AQ"
18 F D ^DIC Q:+Y Q:X="^"
19 Q:X="^"
20 S IEN=+Y
21 S NM=$P(Y,U,2),DGNM=$P(NM,"ORWDSET ",2),UPDTIME=$H,ATTEMPT=""
22 W !,"Run ORWUL" D FVBLD^ORWUL
23 Q
Note: See TracBrowser for help on using the repository browser.