source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPMTS.m@ 1185

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1DGPMTS ;ALB/LM - TREATING SPECIALTY INPATIENT PRINT ; 2-2-93
2 ;;5.3;Registration;;Aug 13, 1993
3EN ;
4 S %DT="AEPX"
5 S %DT("A")="Select Date for Treating Specialty Inpatient Information: "
6 W ! D ^%DT K %DT G ENQ:Y'>0
7 S DGTSDT=Y_".2400"
8 S PTLWD=1,X="Patient Listing by Ward" D READ Q:E S:'X1 PTLWD=0
9 S PTLTS=1,X="Patient Listing by Treating Specialty" D READ Q:E S:'X1 PTLTS=0
10 S PTCTS=1,X="Patient Counts by Treating Specialty" D READ Q:E S:'X1 PTCTS=0
11 I 'PTLWD,'PTLTS,'PTCTS W !!,"Nothing Selected!",*7 G ENQ
12 S %ZIS="PMQ" D ^%ZIS I POP G ENQ
13 I '$D(IO("Q")) D START^DGPMTSI G ENQ
14 S Y=$$QUE
15ENQ D:'$D(ZTQUEUED) ^%ZISC
16 K DGTSDT,PTLWD,PTLTS,PTCTS,E
17 Q
18 ;
19READ S E=0 W !!,"Print ",X S %=1 D YN^DICN I % S X1=$S(%=1:%,1:0) S:%=-1 E=2 Q
20 W !?4,"Answer YES if you wish to generate a ",X,!?4,"for this date ...Otherwise answer NO." G READ
21 Q
22 ;
23QUE() ; -- que job
24 ; return: did job que [ 1|yes 0|no ]
25 ;
26 K ZTSK,IO("Q")
27 S ZTDESC="Treating Specialty Inpatient Information List"
28 S ZTSAVE("DGTSDT")=""
29 S ZTSAVE("PTLWD")=""
30 S ZTSAVE("PTLTS")=""
31 S ZTSAVE("PTCTS")=""
32 S ZTRTN="START^DGPMTSI"
33 D ^%ZTLOAD W:$D(ZTSK) " (Task: ",ZTSK,")"
34 Q $D(ZTSK)
Note: See TracBrowser for help on using the repository browser.