ABSPER3A ; IHS/FCS/DRS - JWS 10:27 AM 17 Jul 1996 ; [ 09/12/2002 10:02 AM ]
;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 38
;----------------------------------------------------------------------
;----------------------------------------------------------------------
;Transmission STATUS Report (Claim Summary)
;----------------------------------------------------------------------
W @IOF ; D ^AUCLS
W $$LJBF^ABSPOSU9(SCRNTXT,IOM-10)_$$LJBF^ABSPOSU9("PAGE "_PAGE,10),!
W $TR($J("",IOM)," ","-"),!
Q
;----------------------------------------------------------------------
W !
W "Insurer:",?11,$$LJBF^ABSPOSU9(INSNAME,46)
W ?92,"Transmission Dates:"
W ?113,$$LJBF^ABSPOSU9($$FM2MDY^ABSPOSU1(SDATE),8)_" - "
W $$LJBF^ABSPOSU9($$FM2MDY^ABSPOSU1(EDATE),8),!
W !
D WCOLUMNS^ABSPOSU9(0,2,"Trans On:8,Claim ID:18,"_$P($G(^ABSP(9002313.99,PSIEN,2)),U,1)_" #:12,Patient Name:20,Vst Date:8,NDC #:13,RX #:8,STATUS:9",1)
Q
;----------------------------------------------------------------------
PRINT ;EP - from ABSPER30
N FLAG,INSNAME,TDATE,ANS,RESPIEN,MEDIEN,DATA,TRANSON,CLAIMID,PCN
N PATNAME,NDC,RX,STATUS,FDATE
I IOM<132 D Q
.D HEADER1
.W !,"Device selected does not support 132 column reports.",!
.D:(IO=$P) PRESSANY^ABSPOSU5(1,DTIME)
S FLAG=0,INSNAME=""
F D Q:INSNAME=""!(FLAG)
.S INSNAME=$O(^TMP($J,RPTNAME,INSNAME))
.Q:INSNAME=""
.D HEADER1,HEADER2
.S TDATE=""
.F D Q:'+TDATE!(FLAG)
..S TDATE=$O(^TMP($J,RPTNAME,INSNAME,TDATE))
..Q:'+TDATE
..S RESPIEN=""
..F D Q:'+RESPIEN!(FLAG)
...S RESPIEN=$O(^TMP($J,RPTNAME,INSNAME,TDATE,RESPIEN))
...Q:'+RESPIEN
...S MEDIEN=""
...F D Q:'+MEDIEN!(FLAG)
....S MEDIEN=$O(^TMP($J,RPTNAME,INSNAME,TDATE,RESPIEN,MEDIEN))
....Q:'+MEDIEN
....S DATA=$G(^TMP($J,RPTNAME,INSNAME,TDATE,RESPIEN,MEDIEN))
....S TRANSON=$$FM2MDY^ABSPOSU1(TDATE)
....S CLAIMID=$P(DATA,U,1)
....S PCN=$P(DATA,U,2)
....S PATNAME=$P(DATA,U,3)
....S FDATE=$P(DATA,U,4)
....S NDC=$P(DATA,U,5)
....S RX=$P(DATA,U,6)
....S STATUS=$P(DATA,U,7)
....I ($Y+2)>IOSL,'(IO=$P) D HEADER1,HEADER2
....I ($Y+2)>IOSL,(IO=$P) D
.....S ANS=$$ENDPAGE^ABSPOSU5(0,DTIME)
.....S:ANS=-1!(ANS="^") FLAG=1
.....I 'FLAG D HEADER1,HEADER2
....D:'FLAG WDATA^ABSPOSU9(0,2,"TRANSON:8,CLAIMID:19,PCN:12,PATNAME:20,FDATE:8,NDC:13,RX:8,STATUS:9")
Q:FLAG
D:(IO=$P) PRESSANY^ABSPOSU5(1,DTIME)
Q
ABSPER3A ; IHS/FCS/DRS - JWS 10:27 AM 17 Jul 1996 ; [ 09/12/2002 10:02 AM ]
+1 ;;1.0;PHARMACY POINT OF SALE;**3**;JUN 21, 2001;Build 38
+2 ;----------------------------------------------------------------------
+3 ;----------------------------------------------------------------------
+4 ;Transmission STATUS Report (Claim Summary)
+5 ;----------------------------------------------------------------------
+1 ; D ^AUCLS
WRITE @IOF
+2 WRITE $$LJBF^ABSPOSU9(SCRNTXT,IOM-10)_$$LJBF^ABSPOSU9("PAGE "_PAGE,10),!
+3 WRITE $TRANSLATE($JUSTIFY("",IOM)," ","-"),!
+4 QUIT
+5 ;----------------------------------------------------------------------
NEW PSIEN
SET PSIEN=1
+1 WRITE !
+2 WRITE "Insurer:",?11,$$LJBF^ABSPOSU9(INSNAME,46)
+3 WRITE ?92,"Transmission Dates:"
+4 WRITE ?113,$$LJBF^ABSPOSU9($$FM2MDY^ABSPOSU1(SDATE),8)_" - "
+5 WRITE $$LJBF^ABSPOSU9($$FM2MDY^ABSPOSU1(EDATE),8),!
+6 WRITE !
+7 DO WCOLUMNS^ABSPOSU9(0,2,"Trans On:8,Claim ID:18,"_$PIECE($GET(^ABSP(9002313.99,PSIEN,2)),U,1)_" #:12,Patient Name:20,Vst Date:8,NDC #:13,RX #:8,STATUS:9",1)
+8 QUIT
+9 ;----------------------------------------------------------------------
PRINT ;EP - from ABSPER30
+1 NEW FLAG,INSNAME,TDATE,ANS,RESPIEN,MEDIEN,DATA,TRANSON,CLAIMID,PCN
+2 NEW PATNAME,NDC,RX,STATUS,FDATE
+3 IF IOM<132
Begin DoDot:1
+4 DO HEADER1
+5 WRITE !,"Device selected does not support 132 column reports.",!
+6 IF (IO=$PRINCIPAL)
DO PRESSANY^ABSPOSU5(1,DTIME)
End DoDot:1
QUIT
+7 SET FLAG=0
SET INSNAME=""
+8 FOR
Begin DoDot:1
+9 SET INSNAME=$ORDER(^TMP($JOB,RPTNAME,INSNAME))
+10 IF INSNAME=""
QUIT
+11 DO HEADER1
DO HEADER2
+12 SET TDATE=""
+13 FOR
Begin DoDot:2
+14 SET TDATE=$ORDER(^TMP($JOB,RPTNAME,INSNAME,TDATE))
+15 IF '+TDATE
QUIT
+16 SET RESPIEN=""
+17 FOR
Begin DoDot:3
+18 SET RESPIEN=$ORDER(^TMP($JOB,RPTNAME,INSNAME,TDATE,RESPIEN))
+19 IF '+RESPIEN
QUIT
+20 SET MEDIEN=""
+21 FOR
Begin DoDot:4
+22 SET MEDIEN=$ORDER(^TMP($JOB,RPTNAME,INSNAME,TDATE,RESPIEN,MEDIEN))
+23 IF '+MEDIEN
QUIT
+24 SET DATA=$GET(^TMP($JOB,RPTNAME,INSNAME,TDATE,RESPIEN,MEDIEN))
+25 SET TRANSON=$$FM2MDY^ABSPOSU1(TDATE)
+26 SET CLAIMID=$PIECE(DATA,U,1)
+27 SET PCN=$PIECE(DATA,U,2)
+28 SET PATNAME=$PIECE(DATA,U,3)
+29 SET FDATE=$PIECE(DATA,U,4)
+30 SET NDC=$PIECE(DATA,U,5)
+31 SET RX=$PIECE(DATA,U,6)
+32 SET STATUS=$PIECE(DATA,U,7)
+33 IF ($Y+2)>IOSL
IF '(IO=$PRINCIPAL)
DO HEADER1
DO HEADER2
+34 IF ($Y+2)>IOSL
IF (IO=$PRINCIPAL)
Begin DoDot:5
+35 SET ANS=$$ENDPAGE^ABSPOSU5(0,DTIME)
+36 IF ANS=-1!(ANS="^")
SET FLAG=1
+37 IF 'FLAG
DO HEADER1
DO HEADER2
End DoDot:5
+38 IF 'FLAG
DO WDATA^ABSPOSU9(0,2,"TRANSON:8,CLAIMID:19,PCN:12,PATNAME:20,FDATE:8,NDC:13,RX:8,STATUS:9")
End DoDot:4
IF '+MEDIEN!(FLAG)
QUIT
End DoDot:3
IF '+RESPIEN!(FLAG)
QUIT
End DoDot:2
IF '+TDATE!(FLAG)
QUIT
End DoDot:1
IF INSNAME=""!(FLAG)
QUIT
+39 IF FLAG
QUIT
+40 IF (IO=$PRINCIPAL)
DO PRESSANY^ABSPOSU5(1,DTIME)
+41 QUIT
