[613] | 1 | PSOARCF6 ;BHAM ISC/LGH,LC - WRITE PSRX INFO TO FILE ; 08/19/92
|
---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
|
---|
| 3 | EN ;
|
---|
| 4 | TAPE D PSOAT Q:$G(PSORWND)=0 W RX(RX0,0),!
|
---|
| 5 | I $D(RX(RX0,1,0)) D
|
---|
| 6 | .F X=0:0 S X=$O(RX(RX0,1,X)) Q:'X I $G(RX(RX0,1,X,0))]"" D TAPE1
|
---|
| 7 | I $D(RX(RX0,4,0)) D
|
---|
| 8 | .F X=0:0 S X=$O(RX(RX0,4,X)) Q:'X I $G(RX(RX0,4,X,0))]"" D TAPE4
|
---|
| 9 | I $D(RX(RX0,5,0)) D
|
---|
| 10 | .F X=0:0 S X=$O(RX(RX0,5,X)) Q:'X I $G(RX(RX0,5,X,0))]"" D TAPE5
|
---|
| 11 | TAPE2 W RX(RX0,2),!
|
---|
| 12 | W RX(RX0,3),!
|
---|
| 13 | ANODE I $D(RX(RX0,"A",0)) F X=0:0 S X=$O(RX(RX0,"A",X)) Q:'X D ANODE1
|
---|
| 14 | LNODE I $D(RX(RX0,"L",0)) F X=0:0 S X=$O(RX(RX0,"L",X)) Q:'X D LNODE1
|
---|
| 15 | PNODE I $D(RX(RX0,"P",0)) F X=0:0 S X=$O(RX(RX0,"P",X)) Q:'X D PNODE1
|
---|
| 16 | IBNODE I $D(RX(RX0,"IB")) W "IB$$"_RX(RX0,"IB"),!
|
---|
| 17 | CNODE I $D(RX(RX0,"C")) W "C$$"_RX(RX0,"C"),!
|
---|
| 18 | DNODE I $D(RX(RX0,"D")) W "D$$"_RX(RX0,"D"),!
|
---|
| 19 | SNODE I $D(RX(RX0,"SAND")) W "S$$"_RX(RX0,"SAND"),!
|
---|
| 20 | K RX(RX0)
|
---|
| 21 | Q
|
---|
| 22 | ;
|
---|
| 23 | ;
|
---|
| 24 | PSOAT U PSOAT S:$$STATUS^%ZISH PSORWND=$$REWIND^%ZIS(PSOAIO,PSOAIOT,PSOAPAR) I $G(PSORWND)=0 U IO(0) W !!,"HFS file failed to rewind" Q
|
---|
| 25 | U PSOAT
|
---|
| 26 | Q
|
---|
| 27 | TAPE1 W 1_","_X_"$$"_RX(RX0,1,X,0),! Q
|
---|
| 28 | TAPE4 W 4_","_X_"$$"_RX(RX0,4,X,0),! Q
|
---|
| 29 | TAPE5 W 5_","_X_"$$"_RX(RX0,5,X,0),! Q
|
---|
| 30 | ANODE1 W "A"_","_X_"$$"_RX(RX0,"A",X,0),! Q
|
---|
| 31 | LNODE1 W "L"_","_X_"$$"_RX(RX0,"L",X,0),! Q
|
---|
| 32 | PNODE1 W "P"_","_X_"$$"_RX(RX0,"P",X,0),! Q
|
---|