source: FOIAVistA/tag/r/CMOP-PSX/PSXBPSUT.m@ 1569

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

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1PSXBPSUT ;BIR/MFR - BPS (ECME) Utilities ;13 Mar 2002 10:31 AM
2 ;;2.0;CMOP;**48,63**;11 Apr 97;Build 8
3 ;Reference to ^PS(52.5, supported by DBIA #1978
4 ;
5XMIT(REC) ; Checks if the prescription will be transmitted to CMOP or not
6 ; Input: REC - Pointer to SUSPENSE file (#52.5)
7 ; Output: XMIT - 0 - NO / 1 - YES
8 N VADM,DFN,RX,PSXOK
9 I '$D(^PS(52.5,REC,0)) Q 0
10 I $P(^PS(52.5,REC,0),"^",7)="" Q 0
11 S RX=$P($G(^PS(52.5,REC,0)),"^",1) I RX="" Q 0
12 S DFN=$$GET1^DIQ(52,RX,2,"I") D DEM^VADPT I $G(VADM(6))'="" Q 0
13 I ($P(^PS(52.5,REC,0),"^",3)'=DFN) Q 0
14 S PSXOK=0 D CHKDATA^PSXMISC1 I PSXOK Q 0
15 Q 1
16 ;
17EXCEL() ; - Returns whether to capture data for Excel report.
18 ; Output: EXCEL = 1 - YES (capture data) / 0 - NO (DO NOT capture data)
19 ;
20 N EXCEL,DIR,DIRUT,DTOUT,DUOUT,DIROUT,Y
21 ;
22 S DIR(0)="Y",DIR("B")="NO",DIR("T")=DTIME W !
23 S DIR("A")="Do you want to capture report data for an Excel document"
24 S DIR("?")="^D HEXC^PSXBPSUT"
25 D ^DIR K DIR I $D(DIRUT)!$D(DTOUT)!$D(DUOUT)!$D(DIROUT) Q "^"
26 K DIROUT,DTOUT,DUOUT,DIRUT
27 S EXCEL=0 I Y S EXCEL=1
28 ;
29 ;Display Excel display message
30 I EXCEL=1 D EXMSG
31 ;
32 Q EXCEL
33 ;
34HEXC ; - 'Do you want to capture data...' prompt
35 W !!," Enter: 'Y' - To capture detail report data to transfer"
36 W !," to an Excel document"
37 W !," '<CR>' - To skip this option"
38 W !," '^' - To quit this option"
39 Q
40 ;
41 ;Display the message about capturing to an Excel file format
42 ;
43EXMSG ;
44 W !!?5,"Before continuing, please set up your terminal to capture the"
45 W !?5,"detail report data. On some terminals, this can be done by"
46 W !?5,"clicking on the 'Tools' menu above, then click on 'Capture"
47 W !?5,"Incoming Data' to save to Desktop. This report may take a"
48 W !?5,"while to run."
49 W !!?5,"Note: To avoid undesired wrapping of the data saved to the"
50 W !?5," file, please enter '0;256;999' at the 'DEVICE:' prompt.",!
51 Q
Note: See TracBrowser for help on using the repository browser.