source: WorldVistAEHR/trunk/r/VISTA_OFFICE_EHR-VEPE/VEPEPROM.m@ 1195

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

initial load of WorldVistAEHR

File size: 1.3 KB
RevLine 
[613]1VEPEPROM ;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
3VERS ;
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
9GETRX ;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
13RX(PSORX) ;Called entry point from Complete orders from OERR (PSONEW)
14LBL ;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
24VERIFY(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
Note: See TracBrowser for help on using the repository browser.