- 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
