DENTCRDI.m

DENTCRDI ;ISC2/HCD,SAW-INITIALIZE CARD READER ; 6/27/88  3:49 PM ;

 ;VERSION 1.2

 S Z1=0 G:'$D(^DENT(225,0)) W F Z3=0:1:2 S Z1=$O(^(Z1)) Q:Z1'>0  S Z2=Z1

 G:Z3=0 W I Z3>1 S DIC="^DENT(225,",DIC(0)="AEMNQZ" D ^DIC G EXIT:Y<0

 S Z=$S(Z3=1:Z2,1:+Y) G W:'$D(^DENT(225,Z,0)) S IOP=$P(^(0),"^",2) G W:IOP=""

 D ^%ZIS I POP W !,"The port is in use.  Try again later" G EXIT

 K IOP S X1="4 0 0 50 85 10 4 0 9 3 25 6 0 0 1 0 0 1 1 0 0 0 0 0 0 0 0 75 1 1 0 ",Z(1)=0 W !,"Initializing card reader" U IO X ^%ZOSF("TYPE-AHEAD")

INIT U IO W *27,"Z0",*13 H 1

 W *27,"C14800",*13 H 1 W *27,"M150",*13 H 1 W *27,"M310",*13 H 1

 W *27,"M69",*13 H 1 W *27,"M975",*13 H 1 W *27,"O16",*13 H 1

 W *27,"H71",*13 H 1 W *27,"M44",*13 H 1 W *27,"T51",*13 H 1

 W *27,"S",*13 R X:5 I X'=X1 S Z(1)=Z(1)+1 U IO(0) G C:Z(1)=5 W !,"Card reader did not respond correctly.  I will try to initialize it again." G INIT

 W *27,"R",*13 G W2

C S Z(1)=0

C1 U IO W *18,"R7777",*18,"H00",*18,"E",*13 H 1

 R X:5 I X'="G" S Z(1)=Z(1)+1 U IO(0) G W1:Z(1)=5 W !,"Card reader did not respond correctly.  I will try to initialize it again." G C1

 G W2

W W !!,"A card reader device has not been entered for your station in the Dental Site",!,"Parameter file.  One must be entered before you can run this option" G EXIT

W1 W !!,"Initialization unsuccessful after 8 attempts.  Initialization aborted" G EX

W2 U IO(0) W !!,"Initialization complete."

EX X ^%ZIS("C")

EXIT S IOP=$I D ^%ZIS K DIC,IOP,X,X1,Y,Z,Z1,Z2,Z3 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DENTCRDI   1488     printed  Apr 09, 2024@20:51:40                                                                                                                                                                                                    Page 2

DENTCRDI  ;ISC2/HCD,SAW-INITIALIZE CARD READER ; 6/27/88  3:49 PM ;

 +1       ;VERSION 1.2

 +2        SET Z1=0

           if '$DATA(^DENT(225,0))

               GOTO W

           FOR Z3=0:1:2

               SET Z1=$ORDER(^(Z1))

               if Z1'>0

                   QUIT 

               SET Z2=Z1

 +3        if Z3=0

               GOTO W

           IF Z3>1

               SET DIC="^DENT(225,"

               SET DIC(0)="AEMNQZ"

               DO ^DIC

               if Y<0

                   GOTO EXIT

 +4        SET Z=$SELECT(Z3=1:Z2,1:+Y)

           if '$DATA(^DENT(225,Z,0))

               GOTO W

           SET IOP=$PIECE(^(0),"^",2)

           if IOP=""

               GOTO W

 +5        DO ^%ZIS

           IF POP

               WRITE !,"The port is in use.  Try again later"

               GOTO EXIT

 +6        KILL IOP

           SET X1="4 0 0 50 85 10 4 0 9 3 25 6 0 0 1 0 0 1 1 0 0 0 0 0 0 0 0 75 1 1 0 "

           SET Z(1)=0

           WRITE !,"Initializing card reader"

           USE IO

           XECUTE ^%ZOSF("TYPE-AHEAD")

INIT       USE IO

           WRITE *27,"Z0",*13

           HANG 1

 +1        WRITE *27,"C14800",*13

           HANG 1

           WRITE *27,"M150",*13

           HANG 1

           WRITE *27,"M310",*13

           HANG 1

 +2        WRITE *27,"M69",*13

           HANG 1

           WRITE *27,"M975",*13

           HANG 1

           WRITE *27,"O16",*13

           HANG 1

 +3        WRITE *27,"H71",*13

           HANG 1

           WRITE *27,"M44",*13

           HANG 1

           WRITE *27,"T51",*13

           HANG 1

 +4        WRITE *27,"S",*13

           READ X:5

           IF X'=X1

               SET Z(1)=Z(1)+1

               USE IO(0)

               if Z(1)=5

                   GOTO C

               WRITE !,"Card reader did not respond correctly.  I will try to initialize it again."

               GOTO INIT

 +5        WRITE *27,"R",*13

           GOTO W2

C          SET Z(1)=0

C1         USE IO

           WRITE *18,"R7777",*18,"H00",*18,"E",*13

           HANG 1

 +1        READ X:5

           IF X'="G"

               SET Z(1)=Z(1)+1

               USE IO(0)

               if Z(1)=5

                   GOTO W1

               WRITE !,"Card reader did not respond correctly.  I will try to initialize it again."

               GOTO C1

 +2        GOTO W2

W          WRITE !!,"A card reader device has not been entered for your station in the Dental Site",!,"Parameter file.  One must be entered before you can run this option"

           GOTO EXIT

W1         WRITE !!,"Initialization unsuccessful after 8 attempts.  Initialization aborted"

           GOTO EX

W2         USE IO(0)

           WRITE !!,"Initialization complete."

EX         XECUTE ^%ZIS("C")

EXIT       SET IOP=$IO

           DO ^%ZIS

           KILL DIC,IOP,X,X1,Y,Z,Z1,Z2,Z3

           QUIT