- DGJOTP ;ALB/MAF - TRANSCRIPTION PRODUCTIVITY REPORT ; FEB 12 1991@900
- ;;1.0;Incomplete Records Tracking;;Jun 25, 2001
- ;
- OUT S (DGJFL,DGJTMESS)=0 W !!,"Sort output by: PHYSICIAN// " D ZSET1 S X="" R X:DTIME G QUIT:X="^"!('$T) I X=""!("Pp"[X) S X="1"
- S X=$S("Ss"[X:2,1:X)
- I X="?" D ZSET1,HELP1 G OUT
- S DGJTSR=$E(X) D IN^DGJHELP W ! I %=-1 D ZSET1,HELP1 G OUT
- OUT1 S DGJFL=0 W !!,"Print report for: (I)Inpatients, (O)Outpatients, (B)Both// " D ZSET2 S X="" R X:DTIME G QUIT:X="^"!('$T) I X=""!("Bb"[X) S X=3
- S X=$S("Ii"[X:1,"Oo"[X:2,1:X)
- I X="?" D ZSET2,HELP2 G OUT1
- S DGJTSR1=$E(X) D IN^DGJHELP W ! I %=-1 D ZSET2,HELP2 G OUT1
- TOT1 S DGJFL=0 W !!,"Print report for: (P)Patient Lists, (T)Totals Page, (B)Both// " D ZSET3 S X="" R X:DTIME G QUIT:X="^"!('$T) I X=""!("Bb"[X) S X=3
- S X=$S("Pp"[X:1,"Tt"[X:2,1:X)
- I X="?" D ZSET3,HELP3 G TOT1
- S DGJTLPG=$E(X) D IN^DGJHELP W ! I %=-1 D ZSET3,HELP3 G TOT1
- I $D(^DG(43,1,"GL")) S DGJTMUL=$P(^DG(43,1,"GL"),"^",2)
- S DGJTL=$S(DGJTSR=1:"PHY",DGJTSR=2:"SER",1:"QUIT")
- S DGJTSTAT="^"_$O(^DG(393.2,"B","INCOMPLETE",0))_"^"_$O(^DG(393.2,"B","DICTATED",0))_"^"_$O(^DG(393.2,"B","TRANSCRIBED",0))_"^"_$O(^DG(393.2,"B","SIGNED",0))_"^"
- G ^DGJOTP1
- QUIT K %,%DT,BY,DHD,DIC,DIOEND,DIS,DIR,DTOUT,DUOUT,FR,FLDS,K,L,TO,DGJTCK,DGJTDIR,DGJTL,DGJTLPG,DGJTMESS,DGJTMUL,DGJTSR,DGJTSTAT,DGJTUN,DGJFL,DGJTSR1,DGJ(0),X,Y,Z,DGJTBG,DGJTBEG,DGJTEND,%DT
- K DFN,DGJTBEG,DGJTBG,DGJTEND,DGJTDT,DGJTDV,DGJTDVN,DGJTF,DGJTFF,DGJTFLAG,DGJ,DGJJ,DGJP,DGJSPTOT,DGJSVTOT,DGJTLN,DGJTNODE,DGJTPC,DGJTPHY,DGJTPT,DGJTSP,DGJTSV,DGJY,DGU,IFN,VAUTD,VAUTN,VAUTNI,VAUTSTR,VAUTVB,VAUTT
- K DGFLAG,DGJTAD,DGJTDAT,DGJTDEL,DGJTDIS,DGJTDIV,DGJTDL,DGJTDV1,DGJTMESS,DGJTNODT,DGJTNOW,DGJTOT,DGJTOTAL,DGJTPAG,DGJTPAR,DGJPHTOT,DGJTTO,DGJTTYP,DGPGM,DGVAR,POP,VAR,VA,VADAT,VADATE,VAERR
- K DGJ2CNT,DGJC,DGJCNTX,DGJCOTO,DGJDOC,DGJFFL,DGJJX,DGJT1,DGJT2PC,DGJT2PH,DGJT3PC,DGJT4PC,DGJT5PC,DGJTADN,DGJTADTP,DGJTAIFN,DGJTAT,DGJTCFLG,DGJTCL,DGJTCNT,DGJTCT,DGJTDBY,DGJTDD,DGJTEDT,DGJTFG,DGJTFL,DGJDICTO,DGJTREC,DGJTRNTO,DGJTTI,DGJX
- K DGJ1X,DGJ30AVG,DGJDYAVG,DGJTCOD,DGJTDIC,DGJTO30,DGJTOREC,DGJTTODY,DGJTTRN,DGJT1X,DGJTFLLG,X1,X2,^UTILITY("VAS",$J)
- D CLOSE^DGJUTQ Q
- DAT ;DATE RANGE
- BEG W ! S %DT="AEX",%DT("A")="START WITH EVENT DATE: " D ^%DT S DGJTBG=Y,DGJTBEG=Y-.0001 S:X="^"!(X="") Y=-1 Q:Y=-1
- END W ! S %DT("A")="END WITH EVENT DATE: " D ^%DT S:X="^"!(X="") Y=-1 Q:Y=-1 I Y<1 D HELP^%DTC G END
- S DGJTEND=Y_.9999
- I DGJTEND\1<DGJTBG W !!?5,"The ending date cannot be before the beginning date" G END
- Q
- HELP1 W !!,"Choose a number or first initial :" F K=2:1:3 W !?15,$P(Z,"^",K)
- W ! Q
- HELP2 W !!,"Choose a number or first initial:" F K=2:1:4 W !?15,$P(Z,"^",K)
- W ! Q
- HELP3 W !!,"Choose a number or first initial:" F K=2:1:4 W !?15,$P(Z,"^",K)
- W ! Q
- ZSET1 S Z="^1 PHYSICIAN^2 SERVICE/TREATING SPECIALTY^" Q
- ZSET2 S Z="^1 INPATIENTS ONLY^2 OUTPATIENTS ONLY^3 BOTH INPATIENT and OUTPATIENTS^" Q
- ZSET3 S Z="^1 PATIENTS LIST ONLY^2 TOTALS PAGE ONLY^3 BOTH PATIENTS LIST and TOTALS PAGE^" Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGJOTP 3023 printed Jan 18, 2025@03:01:49 Page 2
- DGJOTP ;ALB/MAF - TRANSCRIPTION PRODUCTIVITY REPORT ; FEB 12 1991@900
- +1 ;;1.0;Incomplete Records Tracking;;Jun 25, 2001
- +2 ;
- OUT SET (DGJFL,DGJTMESS)=0
- WRITE !!,"Sort output by: PHYSICIAN// "
- DO ZSET1
- SET X=""
- READ X:DTIME
- if X="^"!('$TEST)
- GOTO QUIT
- IF X=""!("Pp"[X)
- SET X="1"
- +1 SET X=$SELECT("Ss"[X:2,1:X)
- +2 IF X="?"
- DO ZSET1
- DO HELP1
- GOTO OUT
- +3 SET DGJTSR=$EXTRACT(X)
- DO IN^DGJHELP
- WRITE !
- IF %=-1
- DO ZSET1
- DO HELP1
- GOTO OUT
- OUT1 SET DGJFL=0
- WRITE !!,"Print report for: (I)Inpatients, (O)Outpatients, (B)Both// "
- DO ZSET2
- SET X=""
- READ X:DTIME
- if X="^"!('$TEST)
- GOTO QUIT
- IF X=""!("Bb"[X)
- SET X=3
- +1 SET X=$SELECT("Ii"[X:1,"Oo"[X:2,1:X)
- +2 IF X="?"
- DO ZSET2
- DO HELP2
- GOTO OUT1
- +3 SET DGJTSR1=$EXTRACT(X)
- DO IN^DGJHELP
- WRITE !
- IF %=-1
- DO ZSET2
- DO HELP2
- GOTO OUT1
- TOT1 SET DGJFL=0
- WRITE !!,"Print report for: (P)Patient Lists, (T)Totals Page, (B)Both// "
- DO ZSET3
- SET X=""
- READ X:DTIME
- if X="^"!('$TEST)
- GOTO QUIT
- IF X=""!("Bb"[X)
- SET X=3
- +1 SET X=$SELECT("Pp"[X:1,"Tt"[X:2,1:X)
- +2 IF X="?"
- DO ZSET3
- DO HELP3
- GOTO TOT1
- +3 SET DGJTLPG=$EXTRACT(X)
- DO IN^DGJHELP
- WRITE !
- IF %=-1
- DO ZSET3
- DO HELP3
- GOTO TOT1
- +4 IF $DATA(^DG(43,1,"GL"))
- SET DGJTMUL=$PIECE(^DG(43,1,"GL"),"^",2)
- +5 SET DGJTL=$SELECT(DGJTSR=1:"PHY",DGJTSR=2:"SER",1:"QUIT")
- +6 SET DGJTSTAT="^"_$ORDER(^DG(393.2,"B","INCOMPLETE",0))_"^"_$ORDER(^DG(393.2,"B","DICTATED",0))_"^"_$ORDER(^DG(393.2,"B","TRANSCRIBED",0))_"^"_$ORDER(^DG(393.2,"B","SIGNED",0))_"^"
- +7 GOTO ^DGJOTP1
- QUIT KILL %,%DT,BY,DHD,DIC,DIOEND,DIS,DIR,DTOUT,DUOUT,FR,FLDS,K,L,TO,DGJTCK,DGJTDIR,DGJTL,DGJTLPG,DGJTMESS,DGJTMUL,DGJTSR,DGJTSTAT,DGJTUN,DGJFL,DGJTSR1,DGJ(0),X,Y,Z,DGJTBG,DGJTBEG,DGJTEND,%DT
- +1 KILL DFN,DGJTBEG,DGJTBG,DGJTEND,DGJTDT,DGJTDV,DGJTDVN,DGJTF,DGJTFF,DGJTFLAG,DGJ,DGJJ,DGJP,DGJSPTOT,DGJSVTOT,DGJTLN,DGJTNODE,DGJTPC,DGJTPHY,DGJTPT,DGJTSP,DGJTSV,DGJY,DGU,IFN,VAUTD,VAUTN,VAUTNI,VAUTSTR,VAUTVB,VAUTT
- +2 KILL DGFLAG,DGJTAD,DGJTDAT,DGJTDEL,DGJTDIS,DGJTDIV,DGJTDL,DGJTDV1,DGJTMESS,DGJTNODT,DGJTNOW,DGJTOT,DGJTOTAL,DGJTPAG,DGJTPAR,DGJPHTOT,DGJTTO,DGJTTYP,DGPGM,DGVAR,POP,VAR,VA,VADAT,VADATE,VAERR
- +3 KILL DGJ2CNT,DGJC,DGJCNTX,DGJCOTO,DGJDOC,DGJFFL,DGJJX,DGJT1,DGJT2PC,DGJT2PH,DGJT3PC,DGJT4PC,DGJT5PC,DGJTADN,DGJTADTP,DGJTAIFN,DGJTAT,DGJTCFLG,DGJTCL,DGJTCNT,DGJTCT,DGJTDBY,DGJTDD,DGJTEDT,DGJTFG,DGJTFL,DGJDICTO,DGJTREC,DGJTRNTO,DGJTTI,DGJX
- +4 KILL DGJ1X,DGJ30AVG,DGJDYAVG,DGJTCOD,DGJTDIC,DGJTO30,DGJTOREC,DGJTTODY,DGJTTRN,DGJT1X,DGJTFLLG,X1,X2,^UTILITY("VAS",$JOB)
- +5 DO CLOSE^DGJUTQ
- QUIT
- DAT ;DATE RANGE
- BEG WRITE !
- SET %DT="AEX"
- SET %DT("A")="START WITH EVENT DATE: "
- DO ^%DT
- SET DGJTBG=Y
- SET DGJTBEG=Y-.0001
- if X="^"!(X="")
- SET Y=-1
- if Y=-1
- QUIT
- END WRITE !
- SET %DT("A")="END WITH EVENT DATE: "
- DO ^%DT
- if X="^"!(X="")
- SET Y=-1
- if Y=-1
- QUIT
- IF Y<1
- DO HELP^%DTC
- GOTO END
- +1 SET DGJTEND=Y_.9999
- +2 IF DGJTEND\1<DGJTBG
- WRITE !!?5,"The ending date cannot be before the beginning date"
- GOTO END
- +3 QUIT
- HELP1 WRITE !!,"Choose a number or first initial :"
- FOR K=2:1:3
- WRITE !?15,$PIECE(Z,"^",K)
- +1 WRITE !
- QUIT
- HELP2 WRITE !!,"Choose a number or first initial:"
- FOR K=2:1:4
- WRITE !?15,$PIECE(Z,"^",K)
- +1 WRITE !
- QUIT
- HELP3 WRITE !!,"Choose a number or first initial:"
- FOR K=2:1:4
- WRITE !?15,$PIECE(Z,"^",K)
- +1 WRITE !
- QUIT
- ZSET1 SET Z="^1 PHYSICIAN^2 SERVICE/TREATING SPECIALTY^"
- QUIT
- ZSET2 SET Z="^1 INPATIENTS ONLY^2 OUTPATIENTS ONLY^3 BOTH INPATIENT and OUTPATIENTS^"
- QUIT
- ZSET3 SET Z="^1 PATIENTS LIST ONLY^2 TOTALS PAGE ONLY^3 BOTH PATIENTS LIST and TOTALS PAGE^"
- QUIT