| 1 | PSOCPVW ;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
|
|---|
| 6 | EN ;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
|
|---|
| 14 | DIQ 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
|
|---|
| 22 | EXIT K PSORXN,PSOFILL,PSORX0,PSORX1,X,D0,DA,DIC,DIQ,DR,VA,VAERR
|
|---|
| 23 | Q
|
|---|
| 24 | TALK ; - 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
|
|---|
