APCLOSP5 ; IHS/CMI/LAB - PRINT INHOSP. SECTION ;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
INHOSP ;
I $Y>(IOSL-10) D HEAD^APCLOSP Q:$D(APCLQUIT)
W !!,"IN-HOSPITAL VISITS"
I '$D(^XTMP("APCLOS",APCLJOB,APCLBTH,"INHOSPVCOUNT")),'$D(^XTMP("APCLOSP",APCLJOB,APCLBTH,"INHOSPVCOUNT")) W !?10,"[ NO IN-HOSPITAL VISITS TO REPORT ]",! Q
S X=$S($D(^XTMP("APCLOS",APCLJOB,APCLBTH,"INHOSPVCOUNT")):^("INHOSPVCOUNT"),1:0),Y=$S($D(^XTMP("APCLOSP",APCLJOB,APCLBTH,"INHOSPVCOUNT")):^("INHOSPVCOUNT"),1:0) D CALC^APCLOSUT
W !!,"There were a total of ",X," In-Hospital visits (",Z,") during the period for",!,"all visit types, including CHS.",!
W !,"They are broken down below by Type, Location, Service Category, Clinic,",!,"Provider Discipline and leading Diagnoses. ",!
TYPE ;
S APCLPTR=0,APCLT="By Type:",APCL1="INHOSPTYPE",APCL2="INHOSPTYPEC",APCLTOT=0,APCLWC=0
D PROC Q:$D(APCLQUIT)
LOC ;
S APCLPTR=1,APCLT="By Location:",APCL1="INHOSPLOC",APCL2="INHOSPLOCC",APCLTOT=0,APCLWC=0,APCLGLOB="^AUTTLOC(",APCLPIEC=2
D PROC Q:$D(APCLQUIT)
OLOC ;
S APCLPTR=0,APCLT="By Outside Location:",APCL1="INHOSPOLOC",APCL2="INHOSPOLOCC",APCLTOT=0,APCLLWC=0
D PROC Q:$D(APCLQUIT)
PROV ;
S APCLPTR=0,APCLT="By Provider Type (Primary and Secondary Providers):",APCL1="INHOSPPROV",APCL2="INHOSPPROVC",APCLTOT=0,APCLWC=0
D PROC Q:$D(APCLQUIT)
D ^APCLOSP6
EOJ ;ENTRY POINT
K APCL1,APCL2,APCL3,APCLX,APCLTOTO,APCLTOTC,APCLLC,APCLT
Q
GETLINE ;
S (APCLX,APCLTOTO,APCLTOTC,APCLLC)=0 F S APCLX=$O(^XTMP("APCLOS",APCLJOB,APCLBTH,APCL1,APCLX)) Q:APCLX="" S APCLLC=APCLLC+1,APCLTOTC=^XTMP("APCLOS",APCLJOB,APCLBTH,APCL1,APCLX)+APCLTOTC
S APCLX=0 F S APCLX=$O(^XTMP("APCLOSP",APCLJOB,APCLBTH,APCL1,APCLX)) Q:APCLX="" S APCLTOTO=APCLTOTO+^XTMP("APCLOSP",APCLJOB,APCLBTH,APCL1,APCLX)
Q
PROC ;
D GETLINE
I $Y>(IOSL-9) D HEAD^APCLOSP Q:$D(APCLQUIT)
W !!?10,APCLT
S APCLN=0 F S APCLN=$O(^XTMP("APCLOS",APCLJOB,APCLBTH,APCL2,APCLN)) Q:APCLN=""!($D(APCLQUIT)) D PROC1
D:APCLTOT=1 TOTAL
Q
PROC1 ;
S APCLD=0 F S APCLD=$O(^XTMP("APCLOS",APCLJOB,APCLBTH,APCL2,APCLN,APCLD)) Q:APCLD="" D PRNT
Q
PRNT ;
I $Y>(IOSL-5) D HEAD^APCLOSP Q:$D(APCLQUIT) W !?10,APCLT W:APCLWC>0 " (cont.)"
S X=^XTMP("APCLOS",APCLJOB,APCLBTH,APCL2,APCLN,APCLD),Y=$S($D(^XTMP("APCLOSP",APCLJOB,APCLBTH,APCL1,APCLD)):^(APCLD),1:0) D CALC^APCLOSUT
I APCLPTR=1 D PRNTPTR Q
W !?13,APCLD,?45,$J(X,7),?55,"(",Z,")" S APCLWC=APCLWC+1
Q
PRNTPTR ;
S G=APCLGLOB_APCLD_")"
W !?13,$P(@G@(0),U,APCLPIEC),?45,$J(X,7),?55,"(",Z,")" S APCLWC=APCLWC+1
Q
TOTAL ;
S X=APCLTOTC,Y=APCLTOTO D CALC^APCLOSUT
W !?15,"TOTAL:",?45,$J(APCLTOTC,8),?55,"(",Z,")"
Q
APCLOSP5 ; IHS/CMI/LAB - PRINT INHOSP. SECTION ;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
INHOSP ;
+1 IF $Y>(IOSL-10)
DO HEAD^APCLOSP
IF $DATA(APCLQUIT)
QUIT
+2 WRITE !!,"IN-HOSPITAL VISITS"
+3 IF '$DATA(^XTMP("APCLOS",APCLJOB,APCLBTH,"INHOSPVCOUNT"))
IF '$DATA(^XTMP("APCLOSP",APCLJOB,APCLBTH,"INHOSPVCOUNT"))
WRITE !?10,"[ NO IN-HOSPITAL VISITS TO REPORT ]",!
QUIT
+4 SET X=$SELECT($DATA(^XTMP("APCLOS",APCLJOB,APCLBTH,"INHOSPVCOUNT")):^("INHOSPVCOUNT"),1:0)
SET Y=$SELECT($DATA(^XTMP("APCLOSP",APCLJOB,APCLBTH,"INHOSPVCOUNT")):^("INHOSPVCOUNT"),1:0)
DO CALC^APCLOSUT
+5 WRITE !!,"There were a total of ",X," In-Hospital visits (",Z,") during the period for",!,"all visit types, including CHS.",!
+6 WRITE !,"They are broken down below by Type, Location, Service Category, Clinic,",!,"Provider Discipline and leading Diagnoses. ",!
TYPE ;
+1 SET APCLPTR=0
SET APCLT="By Type:"
SET APCL1="INHOSPTYPE"
SET APCL2="INHOSPTYPEC"
SET APCLTOT=0
SET APCLWC=0
+2 DO PROC
IF $DATA(APCLQUIT)
QUIT
LOC ;
+1 SET APCLPTR=1
SET APCLT="By Location:"
SET APCL1="INHOSPLOC"
SET APCL2="INHOSPLOCC"
SET APCLTOT=0
SET APCLWC=0
SET APCLGLOB="^AUTTLOC("
SET APCLPIEC=2
+2 DO PROC
IF $DATA(APCLQUIT)
QUIT
OLOC ;
+1 SET APCLPTR=0
SET APCLT="By Outside Location:"
SET APCL1="INHOSPOLOC"
SET APCL2="INHOSPOLOCC"
SET APCLTOT=0
SET APCLLWC=0
+2 DO PROC
IF $DATA(APCLQUIT)
QUIT
PROV ;
+1 SET APCLPTR=0
SET APCLT="By Provider Type (Primary and Secondary Providers):"
SET APCL1="INHOSPPROV"
SET APCL2="INHOSPPROVC"
SET APCLTOT=0
SET APCLWC=0
+2 DO PROC
IF $DATA(APCLQUIT)
QUIT
+3 DO ^APCLOSP6
EOJ ;ENTRY POINT
+1 KILL APCL1,APCL2,APCL3,APCLX,APCLTOTO,APCLTOTC,APCLLC,APCLT
+2 QUIT
GETLINE ;
+1 SET (APCLX,APCLTOTO,APCLTOTC,APCLLC)=0
FOR
SET APCLX=$ORDER(^XTMP("APCLOS",APCLJOB,APCLBTH,APCL1,APCLX))
IF APCLX=""
QUIT
SET APCLLC=APCLLC+1
SET APCLTOTC=^XTMP("APCLOS",APCLJOB,APCLBTH,APCL1,APCLX)+APCLTOTC
+2 SET APCLX=0
FOR
SET APCLX=$ORDER(^XTMP("APCLOSP",APCLJOB,APCLBTH,APCL1,APCLX))
IF APCLX=""
QUIT
SET APCLTOTO=APCLTOTO+^XTMP("APCLOSP",APCLJOB,APCLBTH,APCL1,APCLX)
+3 QUIT
PROC ;
+1 DO GETLINE
+2 IF $Y>(IOSL-9)
DO HEAD^APCLOSP
IF $DATA(APCLQUIT)
QUIT
+3 WRITE !!?10,APCLT
+4 SET APCLN=0
FOR
SET APCLN=$ORDER(^XTMP("APCLOS",APCLJOB,APCLBTH,APCL2,APCLN))
IF APCLN=""!($DATA(APCLQUIT))
QUIT
DO PROC1
+5 IF APCLTOT=1
DO TOTAL
+6 QUIT
PROC1 ;
+1 SET APCLD=0
FOR
SET APCLD=$ORDER(^XTMP("APCLOS",APCLJOB,APCLBTH,APCL2,APCLN,APCLD))
IF APCLD=""
QUIT
DO PRNT
+2 QUIT
PRNT ;
+1 IF $Y>(IOSL-5)
DO HEAD^APCLOSP
IF $DATA(APCLQUIT)
QUIT
WRITE !?10,APCLT
IF APCLWC>0
WRITE " (cont.)"
+2 SET X=^XTMP("APCLOS",APCLJOB,APCLBTH,APCL2,APCLN,APCLD)
SET Y=$SELECT($DATA(^XTMP("APCLOSP",APCLJOB,APCLBTH,APCL1,APCLD)):^(APCLD),1:0)
DO CALC^APCLOSUT
+3 IF APCLPTR=1
DO PRNTPTR
QUIT
+4 WRITE !?13,APCLD,?45,$JUSTIFY(X,7),?55,"(",Z,")"
SET APCLWC=APCLWC+1
+5 QUIT
PRNTPTR ;
+1 SET G=APCLGLOB_APCLD_")"
+2 WRITE !?13,$PIECE(@G@(0),U,APCLPIEC),?45,$JUSTIFY(X,7),?55,"(",Z,")"
SET APCLWC=APCLWC+1
+3 QUIT
TOTAL ;
+1 SET X=APCLTOTC
SET Y=APCLTOTO
DO CALC^APCLOSUT
+2 WRITE !?15,"TOTAL:",?45,$JUSTIFY(APCLTOTC,8),?55,"(",Z,")"
+3 QUIT
