ABSPOS2C.m

ABSPOS2C ; IHS/FCS/DRS - ABSPOS2 continuation ; 

 ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001

 Q

LABELS ;EP - from ABSPOS2 ; set up the labels display

 N R,R1,R2,C,CDIV,X

 S R1=1 ; start in row 1

 S CDIV=50 ; column divider line goes in column 50

LA001 S R=R1,C=3,X="* * * * * COMMUNICATIONS STATISTICS * * * * *" D L1

 S R=R+1,C=9,X="Packets  Per min      Bytes     Per Min" D L1

 S R=R+1,C=3,X="Sent" D L1

 ;S R=R+1,C=1,X="Rexmit" D L1

LA005 S R=R+1,C=3,X="Recd" D L1

 S R=R+1,C=3,X="Total claims" D L1 S C=26,X="Average per min" D L1

 S R=R+1,C=3,X="Average claims per packet" D L1

 S R=R+1,C=3,X="Average seconds per transaction" D L1

 S R=R+1,C=32,X="Now   Average" D L1

LA010 S R=R+1,C=3,X="Packets waiting to be sent" D L1

 S R=R+1,C=3,X="Responses waiting for proc" D L1

 S R=R+1,C=1,X=" * * Transaction Codes * * * Comms Problems * *" D L1

 S R=R+1

 S C=1,X="01:" D L1 S C=16,X="04:" D L1 S C=27,X="|  Dialing out" D L1

 S R=R+1

 S C=1,X="02:" D L1 S C=16,X="11:" D L1 S C=27,X="|  Sending data" D L1

LA015 S R=R+1

 S C=1,X="03:" D L1 S C=15,X="Oth:" D L1 S C=27,X="|  Rec'v'g data" D L1

 S R=R+1,C=27,X="|  We sent NAK" D L1

 S R=R+1 ; nothing on the left side on this line         

LA099 ;

 S R2=R,C=CDIV-1,X="|" F R=R1:1:R2 D L1

 S R2=R,C=CDIV,X="|" F R=R1:1:R2 D L1

LA101 S R=R1,C=CDIV+2,X="* CLAIM STATUS *  Now  Avg" D L1

 S R=R+1,C=CDIV+2,X="Waiting to start" D L1

 S R=R+1,X="Gathering info" D L1

LA105 S R=R+1,X="Wait packet build" D L1

 S R=R+1,X="Building packet" D L1

 S R=R+1,X="Wait for transmit" D L1

 S R=R+1,X="Transmitting" D L1

 S R=R+1,X="Receiv'g response" D L1

LA110 S R=R+1,X="Wait resp process" D L1

 S R=R+1,X="Proces'g response" D L1

 S R=R+1,C=CDIV+5,X="   * CLAIM RESULTS *"  D L1

 S C=CDIV+9

 S R=R+1,C=CDIV+10,X="Paid claims" D L1

 S R=R+1,X="Rejected claims" D L1

 S R=R+1,X="Paper or Unbillable" D L1

LA115 S R=R+1,X="Duplicate claims" D L1

LA116 S R=R+1,X="Captured claims" D L1

 S VALMCNT=$S(R>R2:R,1:R2)

LA200 ; Then line 18 begins "Next screen"

 S (R,R1)=17

 S X="***** Communications Problems *****",C=$L(X)/2*-1+40 D L1

 S C=1

LA210 S R=R+1,X="*** Dialing and Connecting ***" D L1

 S R=R+1,X="How many times we dialed" D L1

 S R=R+1,X="Did not receive CONNECT" D L1

 S R=R+1,X="Other errors during dialing" D L1

 S R=R+1

LA220 S R=R+1,X="*** Before & After Sending ***" D L1

 S R=R+1,X="Didn't get init ENQ" D L1

 S R=R+1,X="Didn't get STX back" D L1

 S R=R+1,X="Got ENQ instead" D L1

 S R=R+1,X="Got NAK instead" D L1

 S R=R+1,X="Got +++ instead" D L1

 S R=R+1,X="Got null instead" D L1

 S R=R+1,X="Got something else" D L1

 S R2=R,CDIV=40,C=CDIV,X="|" F R=R1+1:1:R2 D L1

 S R=R1,C=CDIV+4

LA260 S R=R+1,X="*** While receiving responses ***" D L1

 S R=R+1,X="Did not receive ETX" D L1

 S R=R+1,X="Received EOT during" D L1

 S R=R+1,X="Received null during" D L1

 S R=R+1,X="Received +++ during" D L1

 S R=R+1,X="Miscellaneous" D L1

 S R=R+1

LA270 S R=R+1,X="*** We sent NAK (LRC disagrees) ***" D L1

 S R=R+1,X="How many times" D L1

 S R=R+1,X="Got STX back (good)" D L1

 S R=R+1,X="Got null back" D L1

 S R=R+1,X="Got +++ back" D L1

 S R=R+1,X="Got something else" D L1

LA300 I R<33 F  Q:R=33  D

 .S R=R+1 S X=" " D L1

 S R1=R ; begin page 3 ; 

 S C=15

 S R=R+1,X="***  Front-end inputs  ***" D L1

 S R=R+1,X="Total claims submitted" D L1

 S R=R+1,X="Unique, first-time ones" D L1

 S R=R+1,X="Repeat submissions" D L1

 S R=R+1

 S R=R+1,X="***  Finding PCC Visits  ***" D L1

 S R=R+1,X="Found via PCC link in prescription file" D L1

 S R=R+1,X="Found by patient,date@time ""AA"" index" D L1

 S R=R+1,X="Could not find; created new visit" D L1

 S VALMCNT=R

 Q

L1 ; given R=row,C=col,X=string

 ; Duplicate of L1^ABSPOS2B

 D SET^VALM10(R,$$SETSTR^VALM1(X,$G(@VALMAR@(R,0)),C,$L(X)))

 I $$VISIBLE(R) D WRITE^VALM10(R)

 Q

VISIBLE(R)         Q $$VISIBLE^ABSPOS2B(R)

ABSPOS2C  ; IHS/FCS/DRS - ABSPOS2 continuation ; 

 +1       ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001

 +2        QUIT 

LABELS    ;EP - from ABSPOS2 ; set up the labels display

 +1        NEW R,R1,R2,C,CDIV,X

 +2       ; start in row 1

           SET R1=1

 +3       ; column divider line goes in column 50

           SET CDIV=50

LA001      SET R=R1

           SET C=3

           SET X="* * * * * COMMUNICATIONS STATISTICS * * * * *"

           DO L1

 +1        SET R=R+1

           SET C=9

           SET X="Packets  Per min      Bytes     Per Min"

           DO L1

 +2        SET R=R+1

           SET C=3

           SET X="Sent"

           DO L1

 +3       ;S R=R+1,C=1,X="Rexmit" D L1

LA005      SET R=R+1

           SET C=3

           SET X="Recd"

           DO L1

 +1        SET R=R+1

           SET C=3

           SET X="Total claims"

           DO L1

           SET C=26

           SET X="Average per min"

           DO L1

 +2        SET R=R+1

           SET C=3

           SET X="Average claims per packet"

           DO L1

 +3        SET R=R+1

           SET C=3

           SET X="Average seconds per transaction"

           DO L1

 +4        SET R=R+1

           SET C=32

           SET X="Now   Average"

           DO L1

LA010      SET R=R+1

           SET C=3

           SET X="Packets waiting to be sent"

           DO L1

 +1        SET R=R+1

           SET C=3

           SET X="Responses waiting for proc"

           DO L1

 +2        SET R=R+1

           SET C=1

           SET X=" * * Transaction Codes * * * Comms Problems * *"

           DO L1

 +3        SET R=R+1

 +4        SET C=1

           SET X="01:"

           DO L1

           SET C=16

           SET X="04:"

           DO L1

           SET C=27

           SET X="|  Dialing out"

           DO L1

 +5        SET R=R+1

 +6        SET C=1

           SET X="02:"

           DO L1

           SET C=16

           SET X="11:"

           DO L1

           SET C=27

           SET X="|  Sending data"

           DO L1

LA015      SET R=R+1

 +1        SET C=1

           SET X="03:"

           DO L1

           SET C=15

           SET X="Oth:"

           DO L1

           SET C=27

           SET X="|  Rec'v'g data"

           DO L1

 +2        SET R=R+1

           SET C=27

           SET X="|  We sent NAK"

           DO L1

 +3       ; nothing on the left side on this line         

           SET R=R+1

LA099     ;

 +1        SET R2=R

           SET C=CDIV-1

           SET X="|"

           FOR R=R1:1:R2

               DO L1

 +2        SET R2=R

           SET C=CDIV

           SET X="|"

           FOR R=R1:1:R2

               DO L1

LA101      SET R=R1

           SET C=CDIV+2

           SET X="* CLAIM STATUS *  Now  Avg"

           DO L1

 +1        SET R=R+1

           SET C=CDIV+2

           SET X="Waiting to start"

           DO L1

 +2        SET R=R+1

           SET X="Gathering info"

           DO L1

LA105      SET R=R+1

           SET X="Wait packet build"

           DO L1

 +1        SET R=R+1

           SET X="Building packet"

           DO L1

 +2        SET R=R+1

           SET X="Wait for transmit"

           DO L1

 +3        SET R=R+1

           SET X="Transmitting"

           DO L1

 +4        SET R=R+1

           SET X="Receiv'g response"

           DO L1

LA110      SET R=R+1

           SET X="Wait resp process"

           DO L1

 +1        SET R=R+1

           SET X="Proces'g response"

           DO L1

 +2        SET R=R+1

           SET C=CDIV+5

           SET X="   * CLAIM RESULTS *"

           DO L1

 +3        SET C=CDIV+9

 +4        SET R=R+1

           SET C=CDIV+10

           SET X="Paid claims"

           DO L1

 +5        SET R=R+1

           SET X="Rejected claims"

           DO L1

 +6        SET R=R+1

           SET X="Paper or Unbillable"

           DO L1

LA115      SET R=R+1

           SET X="Duplicate claims"

           DO L1

LA116      SET R=R+1

           SET X="Captured claims"

           DO L1

 +1        SET VALMCNT=$SELECT(R>R2:R,1:R2)

LA200     ; Then line 18 begins "Next screen"

 +1        SET (R,R1)=17

 +2        SET X="***** Communications Problems *****"

           SET C=$LENGTH(X)/2*-1+40

           DO L1

 +3        SET C=1

LA210      SET R=R+1

           SET X="*** Dialing and Connecting ***"

           DO L1

 +1        SET R=R+1

           SET X="How many times we dialed"

           DO L1

 +2        SET R=R+1

           SET X="Did not receive CONNECT"

           DO L1

 +3        SET R=R+1

           SET X="Other errors during dialing"

           DO L1

 +4        SET R=R+1

LA220      SET R=R+1

           SET X="*** Before & After Sending ***"

           DO L1

 +1        SET R=R+1

           SET X="Didn't get init ENQ"

           DO L1

 +2        SET R=R+1

           SET X="Didn't get STX back"

           DO L1

 +3        SET R=R+1

           SET X="Got ENQ instead"

           DO L1

 +4        SET R=R+1

           SET X="Got NAK instead"

           DO L1

 +5        SET R=R+1

           SET X="Got +++ instead"

           DO L1

 +6        SET R=R+1

           SET X="Got null instead"

           DO L1

 +7        SET R=R+1

           SET X="Got something else"

           DO L1

 +8        SET R2=R

           SET CDIV=40

           SET C=CDIV

           SET X="|"

           FOR R=R1+1:1:R2

               DO L1

 +9        SET R=R1

           SET C=CDIV+4

LA260      SET R=R+1

           SET X="*** While receiving responses ***"

           DO L1

 +1        SET R=R+1

           SET X="Did not receive ETX"

           DO L1

 +2        SET R=R+1

           SET X="Received EOT during"

           DO L1

 +3        SET R=R+1

           SET X="Received null during"

           DO L1

 +4        SET R=R+1

           SET X="Received +++ during"

           DO L1

 +5        SET R=R+1

           SET X="Miscellaneous"

           DO L1

 +6        SET R=R+1

LA270      SET R=R+1

           SET X="*** We sent NAK (LRC disagrees) ***"

           DO L1

 +1        SET R=R+1

           SET X="How many times"

           DO L1

 +2        SET R=R+1

           SET X="Got STX back (good)"

           DO L1

 +3        SET R=R+1

           SET X="Got null back"

           DO L1

 +4        SET R=R+1

           SET X="Got +++ back"

           DO L1

 +5        SET R=R+1

           SET X="Got something else"

           DO L1

LA300      IF R<33

               FOR 

                   IF R=33

                       QUIT 

                   Begin DoDot:1

 +1                    SET R=R+1

                       SET X=" "

                       DO L1

                   End DoDot:1

 +2       ; begin page 3 ; 

           SET R1=R

 +3        SET C=15

 +4        SET R=R+1

           SET X="***  Front-end inputs  ***"

           DO L1

 +5        SET R=R+1

           SET X="Total claims submitted"

           DO L1

 +6        SET R=R+1

           SET X="Unique, first-time ones"

           DO L1

 +7        SET R=R+1

           SET X="Repeat submissions"

           DO L1

 +8        SET R=R+1

 +9        SET R=R+1

           SET X="***  Finding PCC Visits  ***"

           DO L1

 +10       SET R=R+1

           SET X="Found via PCC link in prescription file"

           DO L1

 +11       SET R=R+1

           SET X="Found by patient,date@time ""AA"" index"

           DO L1

 +12       SET R=R+1

           SET X="Could not find; created new visit"

           DO L1

 +13       SET VALMCNT=R

 +14       QUIT 

L1        ; given R=row,C=col,X=string

 +1       ; Duplicate of L1^ABSPOS2B

 +2        DO SET^VALM10(R,$$SETSTR^VALM1(X,$GET(@VALMAR@(R,0)),C,$LENGTH(X)))

 +3        IF $$VISIBLE(R)

               DO WRITE^VALM10(R)

 +4        QUIT 

VISIBLE(R)  QUIT $$VISIBLE^ABSPOS2B(R)