| 1 | PSOLLL3 ;BHAM/JLC - LASER LABELS ;11/20/02
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**120,161,148,200**;DEC 1997;Build 7
|
|---|
| 3 | ;
|
|---|
| 4 | S PRCOPAY=$S('$D(PSOCPN):0,1:1)
|
|---|
| 5 | PF ;PATIENT FILL DOCUMENT
|
|---|
| 6 | I $G(PSOIO("PFI"))]"" X PSOIO("PFI")
|
|---|
| 7 | D S PSOFONT=OFONT
|
|---|
| 8 | . S OFONT=PSOFONT,PSOFONT=PSOHFONT
|
|---|
| 9 | . I $P(RXY,"^",9)=0 S T="NO REFILL for this prescription" D PRINT(T,1,1) S PSOY=PSOY+PSOYI Q
|
|---|
| 10 | . I RXF+1=(1+$P(RXY,"^",9)) S T="NO REFILLS LEFT for this prescription" D PRINT(T,1,1) S PSOY=PSOY+PSOYI Q
|
|---|
| 11 | . S T="PHONE IN OR MAIL THIS REFILL REQUEST" D PRINT(T,1,1)
|
|---|
| 12 | . S PSOFONT=OFONT,T="Follow the refill instructions provided with your prescription." D PRINT(T,0,1)
|
|---|
| 13 | . S PSOFONT=OFONT,OPSOX=PSOX,PSOX=PSOX+300,T="For Refill Call "_$P(PS,"^",3)_"-"_$P(PS,"^",4) D PRINT(T,0) S PSOX=OPSOX
|
|---|
| 14 | S T=PNM_" "_$G(SSNPN) D PRINT(T,1)
|
|---|
| 15 | S T="Rx# "_RXN_" " D PRINT(T,1)
|
|---|
| 16 | D STRT^PSOLLU1("SEC2",T,.L) S OPSOX=PSOX,PSOX=L($E(PSOFONT,2,99))*300+PSOX
|
|---|
| 17 | S T=DATE_" Fill "_(RXF+1)_" of "_(1+$P(RXY,"^",9)),PSOY=PSOY-PSOYI D PRINT(T) S PSOX=OPSOX
|
|---|
| 18 | S T=$S($$STATUS^PSOBPSUT(RX,+RXF)'="":"3rd Party Rx",1:"") D PRINT(T,1)
|
|---|
| 19 | S T="Qty: "_$G(QTY)_" "_$G(PSDU)_" Days supply: "_$G(DAYS) D PRINT(T,0)
|
|---|
| 20 | S T=DRUG D PRINT(T,0)
|
|---|
| 21 | S T=$$GETNDC^PSONDCUT(RX,RXF) D PRINT(T,1)
|
|---|
| 22 | D D PRINT(T,1)
|
|---|
| 23 | . S NOR=$P(RXY,"^",9)-RXF
|
|---|
| 24 | . I $P(RXY,"^",9)=0 S T="NO REFILL" Q
|
|---|
| 25 | . I NOR=0 S T="NO REFILLS LEFT" Q
|
|---|
| 26 | . S T="May refill "_NOR_"X by "_EXPDT
|
|---|
| 27 | S PS=$S($D(^PS(59,PSOSITE,0)):^(0),1:"")
|
|---|
| 28 | D PRINT(COPAYVAR)
|
|---|
| 29 | S T=$P(PS,"^")_"-"_$P(PS,"^",6) D STRT^PSOLLU1("SEC2",T,.L)
|
|---|
| 30 | S OPSOX=PSOX,PSOX=2340-(L($E(PSOFONT,2,99))*300),PSOY=PSOY-PSOYI
|
|---|
| 31 | D PRINT(T)
|
|---|
| 32 | S PSOX=OPSOX,PSOYI=PSOBYI
|
|---|
| 33 | I $G(PSOIO("SBT"))]"" X PSOIO("SBT")
|
|---|
| 34 | S X2=PSOINST_"-"_RX
|
|---|
| 35 | W X2
|
|---|
| 36 | I $G(PSOIO("EBT"))]"" X PSOIO("EBT")
|
|---|
| 37 | I $G(PSOIO(PSOFONT))]"" X PSOIO(PSOFONT)
|
|---|
| 38 | Q
|
|---|
| 39 | PRINT(T,BOLD,HDR) ;
|
|---|
| 40 | S BOLD=+$G(BOLD),HDR=+$G(HDR)
|
|---|
| 41 | I 'BOLD,$G(PSOIO(PSOFONT))]"" X PSOIO(PSOFONT)
|
|---|
| 42 | I BOLD,$G(PSOIO(PSOFONT_"B"))]"" X PSOIO(PSOFONT_"B")
|
|---|
| 43 | I HDR D
|
|---|
| 44 | . S OPSOX=PSOX D STRT^PSOLLU1("SEC2",T,.L)
|
|---|
| 45 | . S PSOX=4.2-L($E(PSOFONT,2,99))*300/2+OPSOX
|
|---|
| 46 | I $G(PSOIO("ST"))]"" X PSOIO("ST")
|
|---|
| 47 | W T,!
|
|---|
| 48 | I HDR S PSOX=OPSOX
|
|---|
| 49 | I $G(PSOIO("ET"))]"" X PSOIO("ET")
|
|---|
| 50 | I BOLD,$G(PSOIO(PSOFONT))]"" X PSOIO(PSOFONT) ;TURN OFF BOLDING
|
|---|
| 51 | Q
|
|---|
