VENPCCMF ; IHS/OIT/GIS - QUEUEING FILE VIEWER ;
;;2.6;PCC+;;NOV 12, 2007
;
;
;
QUEUE W:$D(IOF) @IOF G RUN ; EP-STARTUP
;
RANGE(LINE,END,MAX) ; EP-RETURN A RANGE OF LINES
I LINE=1,END'>MAX Q 1_U_END
I LINE=1 Q 1_U_MAX
I END<(LINE+MAX) Q (END-MAX+1)_U_END
Q (LINE+1)_U_(LINE+MAX)
;
LIST(HR,CIEN) ; EP-GIVEN HRS & SUPERBILL DEPT IEN, RETURN IN ^TMP ARRAY ALL LINES
I '$G(HR) Q ""
I '$D(^VEN(7.95,CIEN,0)) Q ""
N TMP,TOT,TIME,DFN,CLINIC,STATUS,QIEN,TTOT,%,%I,%H,X,PATIENT,ELAP
S TMP="^TMP(""VEN LINES"",$J)" K @TMP
S TIME=+$$AGO(HR)
S (TOT,TTOT)=0
ARR F S TIME=$O(^VEN(7.2,"B",TIME)) Q:'TIME S QIEN=0 F S QIEN=$O(^VEN(7.2,"B",TIME,QIEN)) Q:'QIEN D
. S X=$G(^VEN(7.2,QIEN,0))
. S STATUS=$P(X,U,5) I STATUS'=1 Q
. S CLINIC=$P(X,U,4) I CLINIC'=CIEN Q
. S DFN=+$G(^VEN(7.2,QIEN,1)) I '$D(^DPT(DFN,0)) Q
. D NOW^%DTC
. S %=$$TIME(TIME,%) S ELAP=$P(%,U),TTOT=TTOT+$P(%,U,2)
. S PATIENT=$P($G(^DPT(+$G(DFN),0)),U)
. S PATIENT=PATIENT_" ("_$$CHART^VENPCC1A(CIEN,DFN)_")"
. S TOT=TOT+1
. S @TMP@(TOT)=PATIENT_" "_ELAP_U_QIEN
. Q
S ATIME="0 min"
I $G(TTOT),$G(TOT) S ATIME=(TTOT\TOT)_" min"
Q
;
RUN ;
N TMP,DIC,CIEN,HR,CNT,CNAME,LINE,END,MAX,FIN,START,X,Y,%,CNT,ATIME,I,DIE,DA,DR,D,D0,DI,DQ
S TMP="^TMP(""VEN LINES"",$J)" K @TMP
S DIC("A")="Patient list: ",DIC(0)="AEQ",DIC="^VEN(7.95,"
D ^DIC I Y=-1 Q
S CIEN=+Y,HR=6,CNT=0,CNAME=$P(Y,U,2),ATIME=0
START D LIST(HR,CIEN)
S LINE=1,MAX=20
LOOP S END=$O(@TMP@(99999),-1)
S %=$$RANGE(LINE,END,MAX)
S START=+%,FIN=$P(%,U,2)
I 'FIN W !!,"There are currently no patients in the queue",!! Q
I $D(IOF) W @IOF
W !!,CNAME," patients. Average waiting time ",ATIME," =>",!
F I=START:1:FIN W !,?3,I,")",?7,$P(@TMP@(I),U)
W !!
ASK W "Select a patient (",START,"-",FIN,") "
I END>FIN W "or press <ENTER> to see more choices"
W ": "
R X:60
E S CNT=CNT+1 G:CNT>60 HALT W:$D(IOF) @IOF G START ; REFRESH 60 TIMES THEN QUIT
S CNT=0
I X="",FIN<END S LINE=FIN G LOOP
I X="" G START
I X,X=X\1,X'<1,X'>FIN D STAT($P(@TMP@(X),U,2)) G START
I X=U Q
W " ??" G ASK
;
STAT(DA) ;
S DR=".05////0;.02////"_$$NOW^VENPCCU
S DIE="^VEN(7.2,"
L +^VEN(7.2,DA):0 I $T D ^DIE L -^VEN(7.2,DA)
Q
;
HALT ;
I CNT>60 W !,"No activity in the past hour. Terminating session."
Q
;
TIME(T1,T2) ; TIME DIFF
N X,Y,D,H,M,DUR
S DUR=$$FMDIFF^XLFDT(T2,T1,2)\60
S X=$$FMDIFF^XLFDT(T2,T1,3)
S D=+X
S Y=$P(X," ",2)
S H=+Y
S M=$P(Y,":",2)
I DUR<60 Q DUR_"m"_U_DUR
I 'D,H Q (H_"h "_M_"m"_U_DUR)
Q D_"d "_H_"h "_M_"m"_U_DUR
;
AGO(HRS) ;
N X,Y,Z
S X=$$HADD^XLFDT($H,0,-HRS,0,0)
S Y=$$HTFM^XLFDT(X)
S Z=$E($P(Y,".",2),1,4)
Q Y\1_"."_Z
;
RPT ; EP-PRINT A REPORT
N DIC,X,Y,%,BY,FR,TO,DHD,L,IOP
S %=$O(^VEN(7.95,"B","MEDICAL RECORDS","")) S DIS(0)="I $P($G(^VEN(7.2,D0,0)),U,4)'="_+%
S DIC="^VEN(7.2,",L=0,BY="+QUEUE DESTINATION,TIME IN",FLDS="[VEN CHECKIN LIST 2.5]",DHD="PCC+ CHECKIN LIST"
S (FR,TO)=",?"
D EN1^DIP
Q
;
DATES(PATIENT) ; EP-GET DATES FOR LAST DEMOG UPDATE AND REVIEW
N TXT,X,Y,%,STOP,SP,RDT,UDT,RD,UD
S (TXT,SP)=" ",(RDT,UDT)="NONE",(RD,UD)=""
S %=99999999999
F S %=$O(^VEN(7.2,"AP",PATIENT,%),-1) Q:'% S (Y,RD)=$P($G(^VEN(7.2,%,1)),U,4) I Y X ^DD("DD") I $L(Y) S RDT=Y Q
S (Y,UD)=$P($G(^AUPNPAT(PATIENT,0)),U,3) I Y X ^DD("DD") I $L(Y) S UDT=Y
I UD>RD S RDT=UDT
S TXT=TXT_"Last demographics review: "_RDT_SP
S TXT=TXT_"Last demographics update: "_UDT
Q TXT
;
SPEC ; EP-SPECIAL LIST
N DIC,X,Y,%,BY,FR,TO,DHD,L,IOP
S %=$O(^VEN(7.95,"B","MEDICAL RECORDS","")) S DIS(0)="I $P($G(^VEN(7.2,D0,0)),U,4)'="_+%
S DIC="^VEN(7.2,",L=0,BY="[TEST CLINIC GRP],+QUEUE DESTINATION,TIME IN",FLDS="[VEN CHECKIN LIST]",DHD="PCC+ CHECKIN LIST"
S (FR,TO)=",,?"
D EN1^DIP
Q
;
VENPCCMF ; IHS/OIT/GIS - QUEUEING FILE VIEWER ;
+1 ;;2.6;PCC+;;NOV 12, 2007
+2 ;
+3 ;
+4 ;
QUEUE ; EP-STARTUP
IF $DATA(IOF)
WRITE @IOF
GOTO RUN
+1 ;
RANGE(LINE,END,MAX) ; EP-RETURN A RANGE OF LINES
+1 IF LINE=1
IF END'>MAX
QUIT 1_U_END
+2 IF LINE=1
QUIT 1_U_MAX
+3 IF END<(LINE+MAX)
QUIT (END-MAX+1)_U_END
+4 QUIT (LINE+1)_U_(LINE+MAX)
+5 ;
LIST(HR,CIEN) ; EP-GIVEN HRS & SUPERBILL DEPT IEN, RETURN IN ^TMP ARRAY ALL LINES
+1 IF '$GET(HR)
QUIT ""
+2 IF '$DATA(^VEN(7.95,CIEN,0))
QUIT ""
+3 NEW TMP,TOT,TIME,DFN,CLINIC,STATUS,QIEN,TTOT,%,%I,%H,X,PATIENT,ELAP
+4 SET TMP="^TMP(""VEN LINES"",$J)"
KILL @TMP
+5 SET TIME=+$$AGO(HR)
+6 SET (TOT,TTOT)=0
ARR FOR
SET TIME=$ORDER(^VEN(7.2,"B",TIME))
IF 'TIME
QUIT
SET QIEN=0
FOR
SET QIEN=$ORDER(^VEN(7.2,"B",TIME,QIEN))
IF 'QIEN
QUIT
Begin DoDot:1
+1 SET X=$GET(^VEN(7.2,QIEN,0))
+2 SET STATUS=$PIECE(X,U,5)
IF STATUS'=1
QUIT
+3 SET CLINIC=$PIECE(X,U,4)
IF CLINIC'=CIEN
QUIT
+4 SET DFN=+$GET(^VEN(7.2,QIEN,1))
IF '$DATA(^DPT(DFN,0))
QUIT
+5 DO NOW^%DTC
+6 SET %=$$TIME(TIME,%)
SET ELAP=$PIECE(%,U)
SET TTOT=TTOT+$PIECE(%,U,2)
+7 SET PATIENT=$PIECE($GET(^DPT(+$GET(DFN),0)),U)
+8 SET PATIENT=PATIENT_" ("_$$CHART^VENPCC1A(CIEN,DFN)_")"
+9 SET TOT=TOT+1
+10 SET @TMP@(TOT)=PATIENT_" "_ELAP_U_QIEN
+11 QUIT
End DoDot:1
+12 SET ATIME="0 min"
+13 IF $GET(TTOT)
IF $GET(TOT)
SET ATIME=(TTOT\TOT)_" min"
+14 QUIT
+15 ;
RUN ;
+1 NEW TMP,DIC,CIEN,HR,CNT,CNAME,LINE,END,MAX,FIN,START,X,Y,%,CNT,ATIME,I,DIE,DA,DR,D,D0,DI,DQ
+2 SET TMP="^TMP(""VEN LINES"",$J)"
KILL @TMP
+3 SET DIC("A")="Patient list: "
SET DIC(0)="AEQ"
SET DIC="^VEN(7.95,"
+4 DO ^DIC
IF Y=-1
QUIT
+5 SET CIEN=+Y
SET HR=6
SET CNT=0
SET CNAME=$PIECE(Y,U,2)
SET ATIME=0
START DO LIST(HR,CIEN)
+1 SET LINE=1
SET MAX=20
LOOP SET END=$ORDER(@TMP@(99999),-1)
+1 SET %=$$RANGE(LINE,END,MAX)
+2 SET START=+%
SET FIN=$PIECE(%,U,2)
+3 IF 'FIN
WRITE !!,"There are currently no patients in the queue",!!
QUIT
+4 IF $DATA(IOF)
WRITE @IOF
+5 WRITE !!,CNAME," patients. Average waiting time ",ATIME," =>",!
+6 FOR I=START:1:FIN
WRITE !,?3,I,")",?7,$PIECE(@TMP@(I),U)
+7 WRITE !!
ASK WRITE "Select a patient (",START,"-",FIN,") "
+1 IF END>FIN
WRITE "or press <ENTER> to see more choices"
+2 WRITE ": "
+3 READ X:60
+4 ; REFRESH 60 TIMES THEN QUIT
IF '$TEST
SET CNT=CNT+1
IF CNT>60
GOTO HALT
IF $DATA(IOF)
WRITE @IOF
GOTO START
+5 SET CNT=0
+6 IF X=""
IF FIN<END
SET LINE=FIN
GOTO LOOP
+7 IF X=""
GOTO START
+8 IF X
IF X=X\1
IF X'<1
IF X'>FIN
DO STAT($PIECE(@TMP@(X),U,2))
GOTO START
+9 IF X=U
QUIT
+10 WRITE " ??"
GOTO ASK
+11 ;
STAT(DA) ;
+1 SET DR=".05////0;.02////"_$$NOW^VENPCCU
+2 SET DIE="^VEN(7.2,"
+3 LOCK +^VEN(7.2,DA):0
IF $TEST
DO ^DIE
LOCK -^VEN(7.2,DA)
+4 QUIT
+5 ;
HALT ;
+1 IF CNT>60
WRITE !,"No activity in the past hour. Terminating session."
+2 QUIT
+3 ;
TIME(T1,T2) ; TIME DIFF
+1 NEW X,Y,D,H,M,DUR
+2 SET DUR=$$FMDIFF^XLFDT(T2,T1,2)\60
+3 SET X=$$FMDIFF^XLFDT(T2,T1,3)
+4 SET D=+X
+5 SET Y=$PIECE(X," ",2)
+6 SET H=+Y
+7 SET M=$PIECE(Y,":",2)
+8 IF DUR<60
QUIT DUR_"m"_U_DUR
+9 IF 'D
IF H
QUIT (H_"h "_M_"m"_U_DUR)
+10 QUIT D_"d "_H_"h "_M_"m"_U_DUR
+11 ;
AGO(HRS) ;
+1 NEW X,Y,Z
+2 SET X=$$HADD^XLFDT($HOROLOG,0,-HRS,0,0)
+3 SET Y=$$HTFM^XLFDT(X)
+4 SET Z=$EXTRACT($PIECE(Y,".",2),1,4)
+5 QUIT Y\1_"."_Z
+6 ;
RPT ; EP-PRINT A REPORT
+1 NEW DIC,X,Y,%,BY,FR,TO,DHD,L,IOP
+2 SET %=$ORDER(^VEN(7.95,"B","MEDICAL RECORDS",""))
SET DIS(0)="I $P($G(^VEN(7.2,D0,0)),U,4)'="_+%
+3 SET DIC="^VEN(7.2,"
SET L=0
SET BY="+QUEUE DESTINATION,TIME IN"
SET FLDS="[VEN CHECKIN LIST 2.5]"
SET DHD="PCC+ CHECKIN LIST"
+4 SET (FR,TO)=",?"
+5 DO EN1^DIP
+6 QUIT
+7 ;
DATES(PATIENT) ; EP-GET DATES FOR LAST DEMOG UPDATE AND REVIEW
+1 NEW TXT,X,Y,%,STOP,SP,RDT,UDT,RD,UD
+2 SET (TXT,SP)=" "
SET (RDT,UDT)="NONE"
SET (RD,UD)=""
+3 SET %=99999999999
+4 FOR
SET %=$ORDER(^VEN(7.2,"AP",PATIENT,%),-1)
IF '%
QUIT
SET (Y,RD)=$PIECE($GET(^VEN(7.2,%,1)),U,4)
IF Y
XECUTE ^DD("DD")
IF $LENGTH(Y)
SET RDT=Y
QUIT
+5 SET (Y,UD)=$PIECE($GET(^AUPNPAT(PATIENT,0)),U,3)
IF Y
XECUTE ^DD("DD")
IF $LENGTH(Y)
SET UDT=Y
+6 IF UD>RD
SET RDT=UDT
+7 SET TXT=TXT_"Last demographics review: "_RDT_SP
+8 SET TXT=TXT_"Last demographics update: "_UDT
+9 QUIT TXT
+10 ;
SPEC ; EP-SPECIAL LIST
+1 NEW DIC,X,Y,%,BY,FR,TO,DHD,L,IOP
+2 SET %=$ORDER(^VEN(7.95,"B","MEDICAL RECORDS",""))
SET DIS(0)="I $P($G(^VEN(7.2,D0,0)),U,4)'="_+%
+3 SET DIC="^VEN(7.2,"
SET L=0
SET BY="[TEST CLINIC GRP],+QUEUE DESTINATION,TIME IN"
SET FLDS="[VEN CHECKIN LIST]"
SET DHD="PCC+ CHECKIN LIST"
+4 SET (FR,TO)=",,?"
+5 DO EN1^DIP
+6 QUIT
+7 ;
