PSDTER1.m

PSDTER1 ;BIR/LTL-Barcode Terminal Type/Device Loader (cont'd) ; 26 Nov 93

 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

 ;An IRM utility to stuff barcoding

 ;data into fields in the DEVICE & TERMINAL TYPE files.

TRAK ;Trakker update

 D  G:'$G(PSDALL) BEG^PSDTER Q

 .I $G(PSDALL) D  Q:Y<1

 ..S DIC="^%ZIS(2,",DIC(0)="L",DLAYGO=3.2,X="C-VT420 (9440)"

 ..D ^DIC K DIC Q:Y<1  S PSDTERM=$P(Y,U,2),PSDTERM(1)=+Y

 ..I '$P(Y,U,3) S DIC="^%ZIS(2,",DA=+Y W !,"Current settings:",! D EN^DIQ

 ..S DIR(0)="Y",DIR("A",1)=PSDTERM(4),DIR("?")=PSDTERM(6),DIR("B")="No"

 ..S DIR("A")="into the "_PSDTERM_" Terminal Type" W ! D ^DIR K DIR

 .S DIE="^%ZIS(2,",DA=PSDTERM(1)

 .W !!,"Updating ",PSDTERM,"."

 .S DR="1////80;2////#;3////9999;6////W $C(0);99////TRAKKER 9440 TO AUX PORT OF VT420;110////W $C(27)_""[5i"";111////W $C(27)_""[4i"""

 .D ^DIE K DIE,DA,DR

 .S DIR(0)="Y",DIR("A")=PSDTERM(2),DIR("B")="No",DIR("?")=PSDTERM(3)

 .W ! D ^DIR K DIR Q:Y<1

 .S DIC="^%ZIS(1,",DIC(0)="AEMQL",DLAYGO=3.5,DIC("B")="TRAKKERSL"

 .W ! D ^DIC K DIC Q:Y<1  S DIE="^%ZIS(1,",DA=+Y

 .S DR=".02//SLAVED 9440 FROM VT420 AUX PORT;1////0;2///TERMINAL;3////^S X=PSDTERM(1);9////80;10////#;11////9999;12////$C(8)" D ^DIE

PSDTER1   ;BIR/LTL-Barcode Terminal Type/Device Loader (cont'd) ; 26 Nov 93

 +1       ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

 +2       ;An IRM utility to stuff barcoding

 +3       ;data into fields in the DEVICE & TERMINAL TYPE files.

TRAK      ;Trakker update

 +1        Begin DoDot:1

 +2            IF $GET(PSDALL)

                   Begin DoDot:2

 +3                    SET DIC="^%ZIS(2,"

                       SET DIC(0)="L"

                       SET DLAYGO=3.2

                       SET X="C-VT420 (9440)"

 +4                    DO ^DIC

                       KILL DIC

                       IF Y<1

                           QUIT 

                       SET PSDTERM=$PIECE(Y,U,2)

                       SET PSDTERM(1)=+Y

 +5                    IF '$PIECE(Y,U,3)

                           SET DIC="^%ZIS(2,"

                           SET DA=+Y

                           WRITE !,"Current settings:",!

                           DO EN^DIQ

 +6                    SET DIR(0)="Y"

                       SET DIR("A",1)=PSDTERM(4)

                       SET DIR("?")=PSDTERM(6)

                       SET DIR("B")="No"

 +7                    SET DIR("A")="into the "_PSDTERM_" Terminal Type"

                       WRITE !

                       DO ^DIR

                       KILL DIR

                   End DoDot:2

                   IF Y<1

                       QUIT 

 +8            SET DIE="^%ZIS(2,"

               SET DA=PSDTERM(1)

 +9            WRITE !!,"Updating ",PSDTERM,"."

 +10           SET DR="1////80;2////#;3////9999;6////W $C(0);99////TRAKKER 9440 TO AUX PORT OF VT420;110////W $C(27)_""[5i"";111////W $C(27)_""[4i"""

 +11           DO ^DIE

               KILL DIE,DA,DR

 +12           SET DIR(0)="Y"

               SET DIR("A")=PSDTERM(2)

               SET DIR("B")="No"

               SET DIR("?")=PSDTERM(3)

 +13           WRITE !

               DO ^DIR

               KILL DIR

               IF Y<1

                   QUIT 

 +14           SET DIC="^%ZIS(1,"

               SET DIC(0)="AEMQL"

               SET DLAYGO=3.5

               SET DIC("B")="TRAKKERSL"

 +15           WRITE !

               DO ^DIC

               KILL DIC

               IF Y<1

                   QUIT 

               SET DIE="^%ZIS(1,"

               SET DA=+Y

 +16           SET DR=".02//SLAVED 9440 FROM VT420 AUX PORT;1////0;2///TERMINAL;3////^S X=PSDTERM(1);9////80;10////#;11////9999;12////$C(8)"

               DO ^DIE

           End DoDot:1

           IF '$GET(PSDALL)

               GOTO BEG^PSDTER

           QUIT