Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DVBHT

DVBHT.m

Go to the documentation of this file.
  1. DVBHT ;PKE/ISC-ALBANY; HINQ alert parser; 5/10/92 ; 3/9/06 4:18pm
  1. ;;4.0;HINQ;**12,18,20,56**;03/25/92
  1. ;
  1. ;call alert
  1. ALERT I '$D(ZTQUEUED) H 1 W $C(7),".. Alert found."
  1. S (I,Y)=0,XQAMSG=""
  1. F S Y=$O(DVBDATA(Y)) Q:'Y DO
  1. .S $P(DVBDATA,"^",I+1)=Y
  1. .S XQAMSG=XQAMSG_$S(I:", ",1:"")_Y S I=I+1
  1. .K DVBDATA(Y)
  1. S XQAMSG="Screen"_$S(I>1:"s ",1:" ")_XQAMSG
  1. ;
  1. D MAILGP^DVBHT2,REQUSR^DVBHT2
  1. I $D(XQA)'>9 S XQA(DUZ)=""
  1. S Y=DT D TM
  1. ;
  1. S XQAMSG=$E($P(^DPT(DFN,0),"^")_" ",1,9)_" "_"("_$E(^(0))_$E($P(^(0),"^",9),6,10)_")"_$S('$L($E($P(^(0),"^",9),10)):":",1:"")_" HINQ Update . "_$E(XQAMSG_" ",1,16)_$J(Y,8)
  1. I '$O(XQA(0))
  1. E S XQAMSG=XQAMSG_" "_$E($P($P(^VA(200,$O(XQA(0)),0),"^"),","),1,10)
  1. ;
  1. TST S XQAID="DVB,"_DFN
  1. S XQAROU="SETUP^DVBHT"
  1. ;S XQAFLG="R"
  1. S XQADATA=DFN_"^"_DVBDATA K DVBDATA
  1. ;
  1. D SETUP^XQALERT
  1. S $P(^DVB(395.5,DFN,0),"^",6)=1 Q ;set alert SET
  1. ;
  1. ;entry action from alert
  1. SETUP S DVBDATA=XQADATA K XQADATA,XQAKILL,DVBNOALR
  1. S Y=+$P(DVBDATA,"^") Q:'Y
  1. S DFN=Y,DVBDATA=$P(DVBDATA,"^",2,99)
  1. I '$D(^DVB(395.5,Y,0)) S XQAKILL=0 D KIL Q
  1. I '$P(^DVB(395.5,Y,0),"^",6) DO D KIL Q
  1. .W !,?15," another request pending, alert cleared"
  1. .S XQAKILL=0
  1. I '$D(^XUSEC("DG ELIGIBILITY",DUZ)) DO D KIL Q
  1. .S XQAKILL=1
  1. .D DISPLAY
  1. .D PAGE
  1. ;if no to hinq screens
  1. I $P(^DVB(395,1,0),"^",5)="n" DO D END Q
  1. .S XQAKILL=0,DVBJ2=1
  1. .D TEM^DVBHIQR I $D(DVBERCS) K XQAKILL Q
  1. .D ACHK^DVBHT1
  1. .D DISPLAY
  1. .I $D(DVBNOALR) D PAGE,FILE^DVBHQUP Q
  1. .D ACKNOW
  1. .I $D(DVBNOALR) D FILE^DVBHQUP Q
  1. .K XQAKILL
  1. ;
  1. D A^DVBHUTIL W !
  1. K DVBDIQ
  1. ;
  1. UPD L +^DPT(DFN):3 I $T DO
  1. .N XQAID
  1. .S DIE="^DPT(",(DA,DFN)=+Y,DR="[DVBHINQ UPDATE]",DVBJ2=0 D TEM^DVBHIQR
  1. .N DVBQT
  1. .I '$D(DVBERCS) D CHKID^DVBHQD1 I DVBQT D Q
  1. .. N DVBTMP1,DVBTMP2
  1. .. S DVBTMP1=$G(DVBNOALR)
  1. .. S DVBTMP2=$G(DVBJ2)
  1. .. S DVBNOALR=";4///a;5////"_DUZ_";6///N",DVBJ2=1
  1. .. D FILE^DVBHQUP
  1. .. S DVBNOALR=DVBTMP1
  1. .. S DVBJ2=DVBTMP2
  1. .D ^DIE:'$D(DVBERCS) K DIE,DR,DA Q
  1. E W !?3,"This patient data is being edited by another user" H 1 G END
  1. L -^DPT(DFN)
  1. ;
  1. I DVBJ2 DO ;patient updated, alerts filed in up
  1. .W !!,"Checking the alerts ."
  1. .D ACHK^DVBHT1
  1. .I $D(DVBNOALR) DO
  1. . .S DVBNOALR=";4///c;5////"_DUZ_";6///N"
  1. . .W ". OK"
  1. .E DO
  1. . .W ". need more changes"
  1. . .D DISPLAY
  1. . .D ACKNOW
  1. .H 1
  1. E DO ;patient not updated
  1. .I $D(DVBNOALR) DO Q
  1. . .I DVBNOALR]"" D FILE^DVBHQUP
  1. . .;;;D DISPLAY
  1. .D ACHK^DVBHT1
  1. .D DISPLAY I $D(DVBNOALR) Q
  1. .D ACKNOW
  1. .I $D(DVBNOALR),DVBNOALR]"" D FILE^DVBHQUP
  1. ;
  1. K DVBDIQ D C^DVBHQUP
  1. ;
  1. END S END="N DVBNOALR,XQAID D KILL^XUSCLEAN" X END
  1. I $D(DVBNOALR) S XQAKILL=0
  1. KIL K DVBNOALR,DVBDATA,DFN,DVBJ2,DR,DVBDIQ,LP2,DIC,DIQ,DA,D0 Q
  1. ;
  1. ;display alert
  1. DISPLAY Q:'$D(DVBDATA) I '$L($P(DVBDATA,"^",11)) DO CMSG Q
  1. INFO ;
  1. ;;Diagnostic Ver.Ind.: NO Verify Service Connections at RO
  1. I '$D(DVBDIQ(2,DFN,.01,"E")) S DR=".01;.09" D DIQDR^DVBHT1
  1. S DVBALERT="LOAD/EDIT Screen"_$S(DVBDATA'["SC D":" 7",1:"s 7, 11")
  1. W !," ----------------------------------------------------------------------------"
  1. W !,"| ",DVBDIQ(2,DFN,.01,"E")," "
  1. W $E(DVBDIQ(2,DFN,.01,"E")),$E(DVBDIQ(2,DFN,.09,"E"),6,10)
  1. W ?39,DVBALERT,?69,"HINQ"
  1. W ?77,"|",!
  1. I $D(XQAKILL)
  1. F I=11:1 S DVBALERT=$P(DVBDATA,"^",I)_"'" Q:'DVBALERT DO
  1. .W:$X<10 "|",?6
  1. .I $E(DVBALERT,2)="+" W "HINQ has data not in patient file `"
  1. .I $E(DVBALERT,2)="-" W "Patient file has data not in HINQ `"
  1. .I $E(DVBALERT,2)="?" W "HINQ, Patient file are different `"
  1. .I $E(DVBALERT,2)="X" DO
  1. . .I $E(DVBALERT,3) W $P($T(INFO+$E(DVBALERT,3)),";;",2)
  1. . .S DVBALERT=$E(DVBALERT)
  1. .W $E(DVBALERT,3,$L(DVBALERT))
  1. .W ?66,"Screen (",$E(DVBALERT),")",?77,"|",!
  1. W " ----------------------------------------------------------------------------"
  1. K DVBALERT
  1. Q
  1. ACKNOW K DIR S DIR("A")="Do you wish to acknowledge inconsistencies and clear this Alert ? "
  1. S DIR("B")="No"
  1. S DIR("?",1)="If the patient file has data that should not be updated by HINQ, this Alert"
  1. S DIR("?",2)="can be acknowledged and cleared by entering 'Y'es. Otherwise, just continue"
  1. S DIR("?")="Press RETURN to continue,'Y'es to acknowledge, '^' to exit:"
  1. S DIR(0)="YAO" D ^DIR K DIR Q:'Y
  1. S DVBNOALR=";4///a;5////"_DUZ_";6///N"
  1. W !!?6," Alert will be cleared" H 1 Q
  1. ;
  1. PAGE K DVBALERT S DIR(0)="E" D ^DIR K DIR Q
  1. ;
  1. CMSG W !!,?20,"Alerts have been cleared",! Q
  1. ;
  1. TM S Y=$E(Y,4,5)_"/"_$E(Y,6,7)_$P("@"_$E(Y_0,9,10)_":"_$E(Y_"000",11,12),"^",Y[".") Q