Select the objects that you wish to see in the downloaded PDF
S %DT="EX" D ^%DT S X=Y K:Y<1 X
MAY 09, 1991
Enter the beginning date of the reporting period.
This is the beginning date for this range of totals.
741.95^B
1)= S ^QA(741.95,"B",$E(X,1,30),DA)=""
2)= K ^QA(741.95,"B",$E(X,1,30),DA)
741.95^AA1^MUMPS
1)= S QA(2)=$S($D(^QA(741.95,DA,0))#2:$P(^(0),"^",2),1:"") S:QA(2)]"" ^QA(741.95,"AA",X,QA(2),DA)="" K QA
2)= S QA(2)=$S($D(^QA(741.95,DA,0))#2:$P(^(0),"^",2),1:"") K:QA(2)]"" ^QA(741.95,"AA",X,QA(2),DA) K QA
S %DT="EX",%DT(0)=+^QA(741.95,DA,0) D ^%DT K %DT(0) S X=Y K:Y<1 X
Enter the ending date of the reporting period.
This is the ending date for this range of totals.
XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
741.95^AA2^MUMPS
1)= S QA(1)=$S($D(^QA(741.95,DA,0))#2:$P(^(0),"^",1),1:"") S:QA(1)]"" ^QA(741.95,"AA",QA(1),X,DA)="" K QA
2)= S QA(1)=$S($D(^QA(741.95,DA,0))#2:$P(^(0),"^",1),1:"") K:QA(1)]"" ^QA(741.95,"AA",QA(1),X,DA) K QA
K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
Type a Number between 0 and 999999
Number of admissions to acute care during reporting period. (Used by screens 101, 108, and 109.)
Number of ambulatory care visits during reporting period. (Used by screen 102.)
Number of ambulatory surgery procedures during reporting period. (Used by screen 103.)
Number of discharges from acute care to NHCU during reporting period. (Used by screen 104.1.)
Number of patients treated in NHCU during reporting period. (Used by screen 104.2.)
Type a Number between 0 and 999999, 0 Decimal Digits
Number of transfers from acute care to intermediate medicine during reporting period. (Used by screen 105.1.)
Number of patients treated in intermediate medicine during reporting period. (Used by screen 105.2.)
Number of transfers from special care units during reporting period. (Used by screen 106.1.)
Number of patients treated in surgical service during reporting period. (Used by screens 106.2 and 107.)