source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOARCF6.m@ 1764

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1PSOARCF6 ;BHAM ISC/LGH,LC - WRITE PSRX INFO TO FILE ; 08/19/92
2 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
3EN ;
4TAPE 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
11TAPE2 W RX(RX0,2),!
12 W RX(RX0,3),!
13ANODE I $D(RX(RX0,"A",0)) F X=0:0 S X=$O(RX(RX0,"A",X)) Q:'X D ANODE1
14LNODE I $D(RX(RX0,"L",0)) F X=0:0 S X=$O(RX(RX0,"L",X)) Q:'X D LNODE1
15PNODE I $D(RX(RX0,"P",0)) F X=0:0 S X=$O(RX(RX0,"P",X)) Q:'X D PNODE1
16IBNODE I $D(RX(RX0,"IB")) W "IB$$"_RX(RX0,"IB"),!
17CNODE I $D(RX(RX0,"C")) W "C$$"_RX(RX0,"C"),!
18DNODE I $D(RX(RX0,"D")) W "D$$"_RX(RX0,"D"),!
19SNODE I $D(RX(RX0,"SAND")) W "S$$"_RX(RX0,"SAND"),!
20 K RX(RX0)
21 Q
22 ;
23 ;
24PSOAT 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
27TAPE1 W 1_","_X_"$$"_RX(RX0,1,X,0),! Q
28TAPE4 W 4_","_X_"$$"_RX(RX0,4,X,0),! Q
29TAPE5 W 5_","_X_"$$"_RX(RX0,5,X,0),! Q
30ANODE1 W "A"_","_X_"$$"_RX(RX0,"A",X,0),! Q
31LNODE1 W "L"_","_X_"$$"_RX(RX0,"L",X,0),! Q
32PNODE1 W "P"_","_X_"$$"_RX(RX0,"P",X,0),! Q
Note: See TracBrowser for help on using the repository browser.