source: FOIAVistA/trunk/r/DIETETICS-FH/FHMNADM.m@ 1128

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

initial load of FOIAVistA 6/30/08 version

File size: 2.5 KB
Line 
1FHMNADM ;Hines OIFO/JT,RTK - Dietetics Adm/Disc Monitor Report ;06/12/02 10:34
2 ;;5.5;DIETETICS;;Jan 28, 2005
3 ;
4DATE ;sets date
5 ;
6 ; Check for multidivisional site
7 I $P($G(^FH(119.9,1,0)),U,20)'="N" D ^FHMMNADM Q
8 K %DT(0) S %DT="AEPT",%DT("A")="Enter beginning date: " D ^%DT Q:Y<0
9 S FHSDT=Y,%DT(0)=FHSDT,%DT("A")="Enter ending date: " D ^%DT Q:Y<0
10 S FHEDT=Y
11 S DIR(0)="SA^A:Admissions;D:Discharges"
12 S DIR("A")="Select type of movement for this report: " D ^DIR
13 Q:Y["^"!(Y="") S TYP=Y
14 G DEV
15 ;
16EN ;get admission/monitor information
17 S PG=0,EX="",Y=DT X ^DD("DD") S FHNDT=Y D HDR
18 S MVTOT=0,MONTOT=0
19 S I=FHSDT F S I=$O(^DGPM("ATT1",I)) Q:'I!(I>FHEDT)!(EX=U) D
20 .S J=0 F S J=$O(^DGPM("ATT1",I,J)) Q:'J!(EX=U) D
21 ..S ADM=J,ADMD=I D WRT Q
22 .Q
23 D END Q
24 ;
25WRT ;write info
26 ;
27 S DFN=$P(^DGPM(J,0),U,3) I $Y>(IOSL-4) D PG I EX=U Q
28 S FHZ115="P"_DFN D CHECK^FHOMDPA I FHDFN="" Q
29 S Y=$P(ADMD,".") X ^DD("DD") W !,Y,?13,$E($P(^DPT(DFN,0),U,1),U,23)
30 W ?39,$E($P(^(0),U,9),6,9) S MVTOT=MVTOT+1
31 I $D(^FHPT(FHDFN,"A",ADM,"MO"))>9 W ?48,"Yes" S MONTOT=MONTOT+1
32 S Y=$P($P($G(^FHPT(FHDFN,"A",ADM,0)),U,14),".",1) I Y X ^DD("DD") W ?56,Y
33 Q
34 ;
35EN1 ;discharges
36 S PG=0,EX="",Y=DT X ^DD("DD") S FHNDT=Y D HDR
37 S MVTOT=0,MONTOT=0
38 S I=FHSDT F S I=$O(^DGPM("ATT3",I)) Q:'I!(I>FHEDT)!(EX=U) D
39 .S J=0 F S J=$O(^DGPM("ATT3",I,J)) Q:'J!(EX=U) D
40 ..S ADM=$P(^DGPM(J,0),U,14)
41 ..S ADMD=$P(^DGPM(ADM,0),U,1) D WRT Q
42 .Q
43 ;
44END ;end/kill/quit
45 ;
46 I EX=U D KL Q
47 W !!,"TOTAL "_$S(TYP="A":"ADMISSIONS",TYP="D":"DISCHARGES")_": ",?22,MVTOT
48 W !,"TOTAL WITH MONITORS:",?22,MONTOT
49 S FHPER=0 I MONTOT>0,MVTOT>0 S FHPER=(MONTOT/MVTOT)*100
50 I $L($P(FHPER,".",2))>2 S FHPER=$P(FHPER,".",1)_"."_$E($P(FHPER,".",2),1,2)
51 W !,"Percentage of "
52 W $S(TYP="A":"Admissions",TYP="D":"Discharges")
53 W " with Monitors: ",FHPER,"%"
54KL K I,J,FHDFN,DFN,SSN,MVTOT,MONTOT,FHPER,FHSDT,FHEDT,X,Y,PG,FHNDT,ADM
55 K TAG,TYP,DIR,%DT,ADDT Q
56 ;
57DEV ;get device and set up queue
58 S TAG=$S(TYP="A":"EN",TYP="D":"EN1")
59 K %ZIS,IOP S %ZIS="Q" D ^%ZIS Q:POP
60 I '$D(IO("Q")) U IO D @TAG,^%ZISC Q
61 S ZTRTN=TAG_"^FHMNADM",ZTSAVE("FHSDT")="",ZTSAVE("FHEDT")=""
62 S ZTSAVE("TYP")="",ZTDESC="Dietetics Monitor Report" D ^%ZTLOAD
63 W !,"Task #",ZTSK
64 D ^%ZISC K %ZIS,IOP,FHSDT,FHEDT Q
65PG ;
66 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
67 D HDR Q
68HDR ;Header
69 ;
70 W:$Y @IOF
71 W !,"DIETETIC MONITOR REPORT (Monitoring "
72 W $S(TYP="A":"Admissions",TYP="D":"Discharges")_")"
73 W !,FHNDT,?60,"Page: " S PG=PG+1 W PG,!!
74 W "Admission",?13,"Patient",?39,"SSN",?45,"Monitor?",?56,"Discharge"
75 W ! F Z=1:1:79 W "="
76 Q
Note: See TracBrowser for help on using the repository browser.