source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOCPVW.m@ 1274

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

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1PSOCPVW ;BHAMISC/JrR - SCREEN PROFILE FOR INT BILLING ; 06/09/92
2 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
3 ;Requires X = "RXN^fill #" e.g. X="3007^2" means second refill
4 ;of RX in ^PSRX(3007, . "3007^0" would mean original fill.
5 Q
6EN ;Enter here from IB package to begin screen profile
7 G:$S('$D(X):1,'$P(X,"^"):1,$P(X,"^",2)="":1,1:0) EXIT
8 S PSORXN=$P(X,"^")
9 S PSOFILL=$P(X,"^",2)
10 S PSORX0=$G(^PSRX(PSORXN,0))
11 G:PSORX0="" EXIT
12 S PSORX1=$G(^PSRX(PSORXN,1,PSOFILL,0))
13 G:PSOFILL&(PSORX1="") EXIT
14DIQ S DIC="^PSRX(",DR=".01;2;4;6;7;8;22"
15 S DIQ="PSOTMP",DIQ(0)="E",DA=PSORXN
16 D EN^DIQ1
17 I PSORX1]"" S DIQ="PSOTMP",DIQ(0)="E",DA=PSOFILL,DA(1)=PSORXN,DIC="^PSRX("_PSORXN_",1,",DR=.01 D EN^DIQ1
18 N DFN,VA
19 S DFN=$P(PSORX0,"^",2)
20 D PID^VADPT
21 D TALK
22EXIT K PSORXN,PSOFILL,PSORX0,PSORX1,X,D0,DA,DIC,DIQ,DR,VA,VAERR
23 Q
24TALK ; - if $d(psontalk) return variables, else write
25 I $D(PSONTALK) Q
26 W !," RX#: ",$S($D(PSOTMP(52,PSORXN,.01,"E")):PSOTMP(52,PSORXN,.01,"E"),1:"Not Available")
27 W ?19,"FILL DATE: ",$S($D(PSOTMP(52,PSORXN,22,"E")):PSOTMP(52,PSORXN,22,"E"),1:"Not Available")
28 W ?48,"PHYSICIAN: ",$S($D(PSOTMP(52,PSORXN,4,"E")):PSOTMP(52,PSORXN,4,"E"),1:"Not Available")
29 W !,"DRUG: ",$S($D(PSOTMP(52,PSORXN,6,"E")):PSOTMP(52,PSORXN,6,"E"),1:"Not Available")
30 W ?47,"QTY: ",$S($D(PSOTMP(52,PSORXN,7,"E")):$J(PSOTMP(52,PSORXN,7,"E"),4),1:"Not Available")
31 W ?66,"DAYS SUP: ",$S($D(PSOTMP(52,PSORXN,8,"E")):PSOTMP(52,PSORXN,8,"E"),1:"Not Available")
32 I PSOFILL W !,?17,"REFILL DATE: ",$S($D(PSOTMP(52.1,PSOFILL,.01,"E")):PSOTMP(52.1,PSOFILL,.01,"E"),1:"Not Available")
33 K PSOTMP Q
Note: See TracBrowser for help on using the repository browser.