- 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
