| 1 | PSONEW3 ;IHS/DSD/JCM - EDIT TEMPLATE DURING NEW RX ORDER ENTRY ; 10/17/92 11:43 [ 07/23/96 6:14 PM ]
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
|
|---|
| 3 | ;
|
|---|
| 4 | START ;
|
|---|
| 5 | S (PSONEW("DFLG"),PSONEW("FIELD"),PSONEW3)=0
|
|---|
| 6 | ;
|
|---|
| 7 | 1 S PSONEW("FLD")=1 D ISSDT^PSODIR2(.PSONEW) ; Get Issue Date
|
|---|
| 8 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 9 | ;
|
|---|
| 10 | 2 S PSONEW("FLD")=2 D FILLDT^PSODIR2(.PSONEW) ; Get Fill date
|
|---|
| 11 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 12 | ;
|
|---|
| 13 | 3 S:$G(POERR) PSONEW("ISSUE DATE")=PSOID
|
|---|
| 14 | S PSONEW("FLD")=3 D PTSTAT^PSODIR1(.PSONEW) ; Get Patient Status
|
|---|
| 15 | ;K PSTMAX S PSDAYS=PSONEW("DAYS SUPPLY"),PSRF=PSONEW("# OF REFILLS"),PTST=$P(^PS(53,PSONEW("PATIENT STATUS"),0),"^"),PTDY=$P(^(0),"^",3),PTRF=$P(^(0),"^",4) D EDSTAT^PSOUTLA
|
|---|
| 16 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 17 | ;
|
|---|
| 18 | 4 S PSONEW("FLD")=4 D PROV^PSODIR(.PSONEW) ; Get Provider
|
|---|
| 19 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 20 | ;
|
|---|
| 21 | 5 S PSONEW("FLD")=5 D CLINIC^PSODIR2(.PSONEW) ; Get Clinic
|
|---|
| 22 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 23 | ;
|
|---|
| 24 | 6 S PSONEW("FLD")=6 D ^PSODRG ; Get drug and related information
|
|---|
| 25 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 26 | ;
|
|---|
| 27 | 7 S PSONEW("FLD")=7 D QTY^PSODIR1(.PSONEW) ; Get quantity
|
|---|
| 28 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 29 | ;
|
|---|
| 30 | 8 S PSONEW("FLD")=8 D DAYS^PSODIR1(.PSONEW) ; Get days supply
|
|---|
| 31 | ;K PSMAX,PSTMAX S PSDAYS=PSONEW("DAYS SUPPLY"),PSRF=PSONEW("# OF REFILLS"),PTST=$P(^PS(53,PSONEW("PATIENT STATUS"),0),"^"),PTDY=$P(^(0),"^",3),PTRF=$P(^(0),"^",4),PSODEA=PSODRUG("DEA"),CS=0 D EDNEW^PSOUTLA
|
|---|
| 32 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 33 | ;
|
|---|
| 34 | 9 S PSONEW("FLD")=9 D REFILL^PSODIR1(.PSONEW) ; Get # of refills
|
|---|
| 35 | ;K PSMAX,PSTMAX S PSDAYS=PSONEW("DAYS SUPPLY"),PSRF=PSONEW("# OF REFILLS"),PTST=$P(^PS(53,PSONEW("PATIENT STATUS"),0),"^"),PTDY=$P(^(0),"^",3),PTRF=$P(^(0),"^",4),PSODEA=PSODRUG("DEA"),CS=0 D EDNEW^PSOUTLA
|
|---|
| 36 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 37 | ;
|
|---|
| 38 | 10 S PSONEW("FLD")=10 D SIG^PSODIR1(.PSONEW) ; Get sig
|
|---|
| 39 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 40 | ;
|
|---|
| 41 | 11 S PSONEW("FLD")=11 D COPIES^PSODIR1(.PSONEW) ; Get # of copies
|
|---|
| 42 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 43 | ;
|
|---|
| 44 | 12 S PSONEW("FLD")=12 D MW^PSODIR2(.PSONEW) ; Get Mail/Window Info
|
|---|
| 45 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 46 | ;
|
|---|
| 47 | 13 S PSONEW("FLD")=13 D RMK^PSODIR2(.PSONEW) ; Get Remarks
|
|---|
| 48 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 49 | ;
|
|---|
| 50 | 14 I $G(DUZ("AG"))="I" S PSONEW("FLD")=14 D EXP^PSODIR2(.PSONEW) ; Get Expiration Date - Indian Health Service ONLY
|
|---|
| 51 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 52 | ;
|
|---|
| 53 | 15 S PSONEW("FLD")=15 D CLERK^PSODIR2(.PSONEW) ; Get Clerk Code
|
|---|
| 54 | G:PSONEW("DFLG") END G:PSONEW("FIELD") @PSONEW("FIELD")
|
|---|
| 55 | ;
|
|---|
| 56 | END ;
|
|---|
| 57 | K PSONEW3
|
|---|
| 58 | Q
|
|---|
| 59 | ;
|
|---|
| 60 | JUMP ;
|
|---|
| 61 | S PSONEW("FIELD")=$S(+Y=3:3,+Y=6:6,+Y=10:10,+Y=7:7,+Y=10.6:11,+Y=8:8,+Y=9:9,+Y=4:4,+Y=29:14,+Y=5:5,+Y=11:12,+Y=12:13,+Y=1:1,+Y=22:2,1:PSONEW("FLD"))
|
|---|
| 62 | Q
|
|---|
