BEEIASUF ; IHS/OIT/FJE - UTILITIES DISPLAY EDR ASUFAC ;
;;1.0;BEE;;Oct 19, 2009
;;
Q
CLEAN ;EP for diagnostic use only by programmer
;K ^HLB
;K ^HLA
S ^HLB(0)="HLO MESSAGES^778O^^"
S ^HLA(0)="HLO MESSAGE BODY^777D^^"
S ^HLC("QUEUECOUNT","OUT","DENTRIX:5012","DENT ADT")=0
S ^HLC("QUEUECOUNT","IN","DENTRIX:5012","DENT ADT")=0
S ^HLC("QUEUECOUNT","OUT","DENTRIX:5012","DENT MFE")=0
S ^HLC("QUEUECOUNT","IN","DENTRIX:5012","DENT MFE")=0
S ^HLC("FILE777","OUT")=0
S ^HLC("FILE778","OUT","TCP")=0
Q
RSEND ;EP
N X
W !,"Reset a message in HLO for EIE transport"
W !!,"Are you sure you want to reset an HLO message.." S %=2 D YN^DICN I %'=1 S Y=-1 Q
R !,"ENTER IEN TO REMOVE 16,17,20 DATA: ",X:DTIME
Q:(X="")!(+X'=X)
I '$D(^HLB(X,0)) W !,"Message IEN not identified..",! Q
S $P(^HLB(X,0),"^",16)=""
S $P(^HLB(X,0),"^",17)=""
S $P(^HLB(X,0),"^",20)=""
S $P(^HLB(X,0),"^",21)=""
S ^HLB(X,4)=""
W !,"Message IEN "_X_" reset.."
R !!,"Press RETURN to continue..",!,X:DTIME
Q
TOON ;EP TURN TRACE ON
W !,"Turn on the EIE Outbound Message Trace"
W !,"Only run this for a few minutes - THEN TURN OFF"
W !!,"Are you sure you want to turn on this message.." S %=2 D YN^DICN I %'=1 S Y=-1 Q
S ^BEEICTRL("TRACE","Dental")=1
W !,"Outbound Message Trace turned on.."
R !!,"Press RETURN to continue..",!,X:DTIME
Q
;
TOOFF ;EP TURN TRACE OFF
W !,"Turn off the EIE Outbound Message Trace"
W !!,"Are you sure you want to turn on this message.." S %=1 D YN^DICN I %'=1 S Y=-1 Q
S ^BEEICTRL("TRACE","Dental")=0
W !,"Outbound Message Trace turned off.."
R !!,"Press RETURN to continue..",!,X:DTIME
Q
;
TION ;EP TURN TRACE ON
W !,"Turn on the EIE Inbound Message Trace"
W !,"Only run this for a few minutes - THEN TURN OFF"
W !!,"Are you sure you want to turn on this message.." S %=2 D YN^DICN I %'=1 S Y=-1 Q
S ^BEEICTRL("TRACE","DENTRIX")=1
W !,"Inbound Message Trace turned on.."
R !!,"Press RETURN to continue..",!,X:DTIME
Q
;
TIOFF ;EP TURN TRACE OFF
W !,"Turn off the EIE Inbound Message Trace"
W !!,"Are you sure you want to turn on this message.." S %=1 D YN^DICN I %'=1 S Y=-1 Q
S ^BEEICTRL("TRACE","DENTRIX")=0
W !,"Inbound Message Trace turned off.."
R !!,"Press RETURN to continue..",!,X:DTIME
Q
;
ASUFAC ;EP LOOK FOR ALL ACTIVE ASUFAC NUMBERS
N X,X1,X2,BEEIX
S X=0 F S X=$O(^AUPNPAT(X)) Q:+X=0 D
.S X1=0 F S X1=$O(^AUPNPAT(X,41,X1)) Q:+X1=0 D
..S X2=$P($G(^AUPNPAT(X,41,X1,0)),"^",3)
..I $L(X2) D
...I '$D(BEEIX("I",X1)) S BEEIX("I",X1)=0
...S BEEIX("I",X1)=BEEIX("I",X1)+1
..I '$L(X2) D
...I '$D(BEEIX("A",X1)) S BEEIX("A",X1)=0
...S BEEIX("A",X1)=BEEIX("A",X1)+1
W @IOF,!," A S U F A C D I S P L A Y",!
W !!,"Active Count",?15,"Facility",?55,"ASUFAC"
S X=0 F S X=$O(BEEIX("A",X)) Q:+X=0 D
.S $P(BEEIX("A",X),"^",2)=$P($G(^DIC(4,X,0)),"^",1)
.S $P(BEEIX("A",X),"^",3)=$P($G(^AUTTLOC(X,0)),"^",10)
.W !,"Active: ",$P(BEEIX("A",X),"^",1),?15,$P(BEEIX("A",X),"^",2),?55,$P(BEEIX("A",X),"^",3)
W !!,"Inactive Count",?15,"Facility",?55,"ASUFAC"
S X=0 F S X=$O(BEEIX("I",X)) Q:+X=0 D
.S $P(BEEIX("I",X),"^",2)=$P($G(^DIC(4,X,0)),"^",1)
.S $P(BEEIX("I",X),"^",3)=$P($G(^AUTTLOC(X,0)),"^",10)
.W !,"Inactive:",$P(BEEIX("I",X),"^",1),?15,$P(BEEIX("I",X),"^",2),?55,$P(BEEIX("I",X),"^",3)
W !,"Finished.."
R !!,"Press RETURN to continue..",!,X:DTIME
Q
BEEIASUF ; IHS/OIT/FJE - UTILITIES DISPLAY EDR ASUFAC ;
+1 ;;1.0;BEE;;Oct 19, 2009
+2 ;;
+3 QUIT
CLEAN ;EP for diagnostic use only by programmer
+1 ;K ^HLB
+2 ;K ^HLA
+3 SET ^HLB(0)="HLO MESSAGES^778O^^"
+4 SET ^HLA(0)="HLO MESSAGE BODY^777D^^"
+5 SET ^HLC("QUEUECOUNT","OUT","DENTRIX:5012","DENT ADT")=0
+6 SET ^HLC("QUEUECOUNT","IN","DENTRIX:5012","DENT ADT")=0
+7 SET ^HLC("QUEUECOUNT","OUT","DENTRIX:5012","DENT MFE")=0
+8 SET ^HLC("QUEUECOUNT","IN","DENTRIX:5012","DENT MFE")=0
+9 SET ^HLC("FILE777","OUT")=0
+10 SET ^HLC("FILE778","OUT","TCP")=0
+11 QUIT
RSEND ;EP
+1 NEW X
+2 WRITE !,"Reset a message in HLO for EIE transport"
+3 WRITE !!,"Are you sure you want to reset an HLO message.."
SET %=2
DO YN^DICN
IF %'=1
SET Y=-1
QUIT
+4 READ !,"ENTER IEN TO REMOVE 16,17,20 DATA: ",X:DTIME
+5 IF (X="")!(+X'=X)
QUIT
+6 IF '$DATA(^HLB(X,0))
WRITE !,"Message IEN not identified..",!
QUIT
+7 SET $PIECE(^HLB(X,0),"^",16)=""
+8 SET $PIECE(^HLB(X,0),"^",17)=""
+9 SET $PIECE(^HLB(X,0),"^",20)=""
+10 SET $PIECE(^HLB(X,0),"^",21)=""
+11 SET ^HLB(X,4)=""
+12 WRITE !,"Message IEN "_X_" reset.."
+13 READ !!,"Press RETURN to continue..",!,X:DTIME
+14 QUIT
TOON ;EP TURN TRACE ON
+1 WRITE !,"Turn on the EIE Outbound Message Trace"
+2 WRITE !,"Only run this for a few minutes - THEN TURN OFF"
+3 WRITE !!,"Are you sure you want to turn on this message.."
SET %=2
DO YN^DICN
IF %'=1
SET Y=-1
QUIT
+4 SET ^BEEICTRL("TRACE","Dental")=1
+5 WRITE !,"Outbound Message Trace turned on.."
+6 READ !!,"Press RETURN to continue..",!,X:DTIME
+7 QUIT
+8 ;
TOOFF ;EP TURN TRACE OFF
+1 WRITE !,"Turn off the EIE Outbound Message Trace"
+2 WRITE !!,"Are you sure you want to turn on this message.."
SET %=1
DO YN^DICN
IF %'=1
SET Y=-1
QUIT
+3 SET ^BEEICTRL("TRACE","Dental")=0
+4 WRITE !,"Outbound Message Trace turned off.."
+5 READ !!,"Press RETURN to continue..",!,X:DTIME
+6 QUIT
+7 ;
TION ;EP TURN TRACE ON
+1 WRITE !,"Turn on the EIE Inbound Message Trace"
+2 WRITE !,"Only run this for a few minutes - THEN TURN OFF"
+3 WRITE !!,"Are you sure you want to turn on this message.."
SET %=2
DO YN^DICN
IF %'=1
SET Y=-1
QUIT
+4 SET ^BEEICTRL("TRACE","DENTRIX")=1
+5 WRITE !,"Inbound Message Trace turned on.."
+6 READ !!,"Press RETURN to continue..",!,X:DTIME
+7 QUIT
+8 ;
TIOFF ;EP TURN TRACE OFF
+1 WRITE !,"Turn off the EIE Inbound Message Trace"
+2 WRITE !!,"Are you sure you want to turn on this message.."
SET %=1
DO YN^DICN
IF %'=1
SET Y=-1
QUIT
+3 SET ^BEEICTRL("TRACE","DENTRIX")=0
+4 WRITE !,"Inbound Message Trace turned off.."
+5 READ !!,"Press RETURN to continue..",!,X:DTIME
+6 QUIT
+7 ;
ASUFAC ;EP LOOK FOR ALL ACTIVE ASUFAC NUMBERS
+1 NEW X,X1,X2,BEEIX
+2 SET X=0
FOR
SET X=$ORDER(^AUPNPAT(X))
IF +X=0
QUIT
Begin DoDot:1
+3 SET X1=0
FOR
SET X1=$ORDER(^AUPNPAT(X,41,X1))
IF +X1=0
QUIT
Begin DoDot:2
+4 SET X2=$PIECE($GET(^AUPNPAT(X,41,X1,0)),"^",3)
+5 IF $LENGTH(X2)
Begin DoDot:3
+6 IF '$DATA(BEEIX("I",X1))
SET BEEIX("I",X1)=0
+7 SET BEEIX("I",X1)=BEEIX("I",X1)+1
End DoDot:3
+8 IF '$LENGTH(X2)
Begin DoDot:3
+9 IF '$DATA(BEEIX("A",X1))
SET BEEIX("A",X1)=0
+10 SET BEEIX("A",X1)=BEEIX("A",X1)+1
End DoDot:3
End DoDot:2
End DoDot:1
+11 WRITE @IOF,!," A S U F A C D I S P L A Y",!
+12 WRITE !!,"Active Count",?15,"Facility",?55,"ASUFAC"
+13 SET X=0
FOR
SET X=$ORDER(BEEIX("A",X))
IF +X=0
QUIT
Begin DoDot:1
+14 SET $PIECE(BEEIX("A",X),"^",2)=$PIECE($GET(^DIC(4,X,0)),"^",1)
+15 SET $PIECE(BEEIX("A",X),"^",3)=$PIECE($GET(^AUTTLOC(X,0)),"^",10)
+16 WRITE !,"Active: ",$PIECE(BEEIX("A",X),"^",1),?15,$PIECE(BEEIX("A",X),"^",2),?55,$PIECE(BEEIX("A",X),"^",3)
End DoDot:1
+17 WRITE !!,"Inactive Count",?15,"Facility",?55,"ASUFAC"
+18 SET X=0
FOR
SET X=$ORDER(BEEIX("I",X))
IF +X=0
QUIT
Begin DoDot:1
+19 SET $PIECE(BEEIX("I",X),"^",2)=$PIECE($GET(^DIC(4,X,0)),"^",1)
+20 SET $PIECE(BEEIX("I",X),"^",3)=$PIECE($GET(^AUTTLOC(X,0)),"^",10)
+21 WRITE !,"Inactive:",$PIECE(BEEIX("I",X),"^",1),?15,$PIECE(BEEIX("I",X),"^",2),?55,$PIECE(BEEIX("I",X),"^",3)
End DoDot:1
+22 WRITE !,"Finished.."
+23 READ !!,"Press RETURN to continue..",!,X:DTIME
+24 QUIT
