BEEIASUF.m

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