source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSGPER1.m@ 701

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1PSGPER1 ;BIR/CML3-PRINTS PRE-EXCHANGE NEEDS REPORT ;18 MAR 03 / 5:08 PM
2 ;;5.0; INPATIENT MEDICATIONS ;**80,127**;16 DEC 97
3 ;
4 S PSGPERRF=0
5DEV ;
6 S PSGION=ION
7DEV1 K IOP,%ZIS,IO("Q") S %ZIS="Q",%ZIS("A")="Select DEVICE for PRE-EXCHANGE UNITS REPORT: ",%ZIS("B")="" W ! D ^%ZIS K %ZIS
8 I POP D POP G:%=1 DEV1 G DONE
9 I $D(IO("Q")) K ZTSAVE S PSGTIR="^PSGPER2",ZTDESC="PRE-EXCHANGE UNITS REPORT",ZTDTH=$H,ZTSAVE("PSGPXN")="" D ENTSK^PSGTI G:'$D(ZTSK) DEV K ZTSK G OUT
10 D ENP^PSGPER2,AG I %=1 S PSGPERRF=1 G DEV
11 ;
12DONE ;
13 S DIK="^PS(53.4,",DA=PSGPXN D ^DIK
14 ;
15OUT ;
16 K PSGPERRF,PSGPXN
17 Q:$G(PSJCOM)!$G(PSJPREX)
18 D ENIVKV^PSGSETU,ENCV^PSGSETU
19 Q
20 ;
21POP ;
22 S %=2 W:'PSGPERRF !!,"IF A DEVICE IS NOT CHOSEN, NO REPORT WILL BE RUN AND THE DATA WILL NO LONGER BE RETRIEVABLE THROUGH THIS REPORT."
23 I 'PSGPERRF F W !,"Do you want another chance to choose a device" S %=1 D YN^DICN Q:% W !?3,"Enter 'YES' to choose a device to print. Enter 'NO' to quit now."
24 I %'=1 S IOP=PSGION D ^%ZIS S %=2
25 Q
26 ;
27AG ;
28 F W !!,"DO YOU NEED TO PRINT THIS REPORT AGAIN" S %=0 D YN^DICN Q:% D AGMSG
29 Q
30 ;
31AGMSG ;
32 I %Y'?1."?" W $C(7)," ANSWER 'YES' OR 'NO' (Entry required)" Q
33 W !," Enter 'YES' to print this report again. Enter 'NO' (or an '^') to quit",!,"now. PLEASE NOTE that you will NOT be able to retrieve this data at a later",!,"date. You should print this information now." Q
34 ;
35DEFON() ; All Pre-Exchange Devices have been removed from Ward Parameters - restore previous functionality
36 N ON,W S ON=0,W=0 F S W=$O(^PS(59.6,W)) Q:'W!ON I $P(^(W,0),U,29)]"" S ON=1
37 I $G(PSJPXDOF) S ON=0 K PSJPXDOF
38 Q ON
Note: See TracBrowser for help on using the repository browser.