| 1 | PSXBPSUT ;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 | ;
|
|---|
| 5 | XMIT(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 | ;
|
|---|
| 17 | EXCEL() ; - 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 | ;
|
|---|
| 34 | HEXC ; - '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 | ;
|
|---|
| 43 | EXMSG ;
|
|---|
| 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
|
|---|
