|
Last change
on this file since 660 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
704 bytes
|
| Line | |
|---|
| 1 | HUIPSUPD ; - 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 | ;
|
|---|
| 5 | EN ; 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
|
|---|
| 10 | ADD(PSOIEN) ; Calls PS Orderable Item update routines
|
|---|
| 11 | D EN^PSSPOIDT(PSOIEN),EN2^PSSHL1(PSOIEN,"MUP")
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | SET ; - 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.
