source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLLL3.m@ 1211

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1PSOLLL3 ;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)
5PF ;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
39PRINT(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
Note: See TracBrowser for help on using the repository browser.