| 1 | VEPEPROM ;DAOU/DLF Prompts for where to print/send EHR prescriptions ; 4/12/05 11:42am
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**10,22,32,40,120,208**;DEC 1997;Build 1
|
|---|
| 3 | VERS ;
|
|---|
| 4 | ;Reference to ^PS(59.7 supported by DBIA 694
|
|---|
| 5 | ;Reference to ^PSX(550 supported by DBIA 2230
|
|---|
| 6 | ;Reference to ^%ZIS supported by DBIA 3435
|
|---|
| 7 | ;
|
|---|
| 8 | Q
|
|---|
| 9 | GETRX ;Daou/DLF;Get the prescription number (manual) 4/22/2005
|
|---|
| 10 | I '$D(PSOPAR) D ^PSOLSET
|
|---|
| 11 | R "Enter the prescription number: ",PSOERX:DTIME
|
|---|
| 12 | G LBL
|
|---|
| 13 | RX(PSORX) ;Called entry point from Complete orders from OERR (PSONEW)
|
|---|
| 14 | LBL ;Daou/MRM ;Define device PSOPRDEV and prompt for Where to Fax/Send; 4/2/2005
|
|---|
| 15 | S DIR("A")="Enter type of output device",DIR("A",1)="",DIR("A",2)=""
|
|---|
| 16 | S DIR("A",3)=" 1 Label - for immediate dispensing"
|
|---|
| 17 | S DIR("A",4)=" 2 Printer - print prescription"
|
|---|
| 18 | S DIR("A",5)=" 3 Fax - fax prescription to pharmacy"
|
|---|
| 19 | S DIR("A",6)=""
|
|---|
| 20 | S DIR(0)="N",DIR("?")="Enter 1,2, or 3" D ^DIR
|
|---|
| 21 | I "123"'[Y W !,"Invalid response, please enter 1, 2, or 3" G LBL
|
|---|
| 22 | S PSOPRDEV=$S(Y=1:"L",Y=2:"P",Y=3:"F",1:"L")
|
|---|
| 23 | Q
|
|---|
| 24 | VERIFY(VEPETST) ;
|
|---|
| 25 | ;Verify that the Fax directory exists
|
|---|
| 26 | ;
|
|---|
| 27 | S FIL=$$GET1^DIQ(59,"1,",92001.3)
|
|---|
| 28 | S FIL=FIL_"\TEST.DAT"
|
|---|
| 29 | S %ZIS="",%ZIS("HFSNAME")=FIL,%ZIS("HFSMODE")="W",IOP="HFS",(XPDSIZ,XPDSIZA)=0,XPDSEQ=1
|
|---|
| 30 | D ^%ZIS
|
|---|
| 31 | I POP=1 W !!,"Fax directory does not exist - please define it or correct it before faxing" H 3 Q 1
|
|---|
| 32 | Q 0
|
|---|
