IBCERP7 ;AITC/KDM - HID HCCH Payer ID Report ;5/4/2017
;;2.0;INTEGRATED BILLING;**577,592,623**;21-MAR-94;Build 70
;;Per VA Directive 6402, this routine should not be modified.
; This report is a PAYER ID report based on the 277stat msg responses from the clearing house
; This report will give a snap shot view of what is on file at the time of running.
; The results may vary each running depending on the timing of transactions posted to the file
; Refer to US976
; Called by IB BILLING SUPERVISOR MENU, Opt:SYST, Opt:HID
;
ENT ; Menu Option Entry Point
N BEGDT,BEGIN,DT,END,ENDDT,HDR1,HDR2,HDR3,IBABEG,IBAEND,IBEOB,IBIFN,IBQUIT,LNTOT,MAX,PAGES,PGC,RNAME,U,Y
N ASTERISK,CNT,DASH,EORMSG,LEGEND,NONEMSG,POP
S (ASTERISK,IBQUIT)=0,RNAME="IBCERP7",LEGEND="'*' = No available fields to allow for an update in the insurance file"
D DATES Q:IBQUIT Q:'Y
D DEVICE Q:POP Q:IBQUIT
QUE ; Queued Entry Point
K ^TMP(RNAME,$J)
D GATHER
D HDRINIT
D HEADER Q:IBQUIT
D PRINT
D EXIT
Q
DATES ; Enter the from and to dates for this report
;
N DIR
W ! S DIR(0)="DA^:DT:EX",DIR("A")="Enter Earliest Date: ",DIR("B")=$$HTE^XLFDT($H-30),DIR("?")="Enter the earliest transaction date for the transaction report."
D ^DIR K DIR Q:'Y S IBABEG=+Y,BEGIN=Y(0),BEGDT=$$FMTE^XLFDT(IBABEG,2)
;
W ! S DIR(0)="DA^"_+Y_":DT:EX",DIR("A")="Enter Latest Date: ",DIR("B")=$$FMTE^XLFDT(DT,1)
; DIR("?")="Enter the latest date for the transaction report."
D ^DIR K DIR Q:'Y S IBAEND=+Y,END=Y(0),ENDDT=$$FMTE^XLFDT(IBAEND,2)
;
Q
;
DEVICE ; - Ask device
;
N %ZIS,ZTDESC,ZTIO,ZTQUEUED,ZTRTN,ZTSAVE
W !!!,"You will need a 132 column printer for this report",!
S %ZIS="QM" D ^%ZIS S:POP IBQUIT=1 Q:POP
I $D(IO("Q")) D S IBQUIT=1 Q
. S ZTRTN="QUE^IBCERP7",ZTDESC="HCCH Payer ID Report"
. S ZTSAVE("BEGIN")=""
. S ZTSAVE("END")=""
. S ZTSAVE("IBABEG")=""
. S ZTSAVE("IBAEND")=""
. S ZTSAVE("BEGDT")=""
. S ZTSAVE("ENDDT")=""
. S ZTSAVE("RNAME")=""
. S ZTSAVE("IBQUIT")=""
. D ^%ZTLOAD
. W !!,$S($D(ZTSK):"Your task number "_ZTSK_" has been queued.",1:"Unable to queue this job.")
. K ZTSK D HOME^%ZIS
. W !!! I $E(IOST,1,2)["C-" K DIR S DIR(0)="E" D ^DIR K DIR ;pause to see task no.
U IO
Q
;
GATHER ;GO GET THE INFO BASED ON THE DATES ENTERED
; uses ^DIC(36,"AEDIX",DATE,INSURANCE IEN,) to get data within date range.
; If data is within date range sets up ^TMP($J file with all data needed for the report.
; ^DIC(36,"AEDIX",DATE,INSURANCE IEN ,EDI ID NUMBER,TYPE "P" OR "I")=EDI ID NUMBER ON FILE ;
;
;(If EDI NUMBER ON FILE is null- it is considered updated, not attempted)
;
; Uses the insurance ien from Cross ref to extract the name, address, city, and state from the ^DIC(36,IEN)
; Uses the Type from cross ref as the EDI PayerID for the report. For printing the I="Inst";P="Prof"
; Uses the EDI ID NUMBER from Cross ref to be the NewValue on report.
; Uses the EDI ID NUMBER ON FILE from cross ref to be the OldValue on report
; If the EDI ID NUMBER ON FILE from cross ref is null- set the "updated" value for report to be "Yes", otherwise "No"
;
;
N DATE,EDIONFILE,EDINO,IBADDRESS,IBCITY,IBNAME,IBSTATE,IBPIEN,LNCNT,TYPE
S $P(DASH,"_",132)=""
S U="^",LNTOT=0,PGC=1,MAX=IOSL
S DATE=IBABEG-1
F S DATE=$O(^DIC(36,"AEDIX",DATE)) Q:DATE="" Q:DATE>IBAEND D
. S IBPIEN="" F S IBPIEN=$O(^DIC(36,"AEDIX",DATE,IBPIEN)) Q:IBPIEN="" D
.. S EDINO="" F S EDINO=$O(^DIC(36,"AEDIX",DATE,IBPIEN,EDINO)) Q:EDINO="" D
... S TYPE="" F S TYPE=$O(^DIC(36,"AEDIX",DATE,IBPIEN,EDINO,TYPE)) Q:TYPE="" D
.... S EDIONFILE=$G(^DIC(36,"AEDIX",DATE,IBPIEN,EDINO,TYPE))
.... I EDIONFILE["*" S ASTERISK=1
.... S IBNAME=$$GET1^DIQ(36,IBPIEN,.01)
.... S IBADDRESS=$$GET1^DIQ(36,IBPIEN,.111)
.... S IBCITY=$$GET1^DIQ(36,IBPIEN,.114)
.... S IBSTATE=$$GET1^DIQ(36,IBPIEN,.115,"I")
.... S ^TMP(RNAME,$J,IBNAME,DATE,EDINO,TYPE)=IBPIEN_U_IBADDRESS_U_IBCITY_U_IBSTATE_U_EDIONFILE
.... S LNTOT=LNTOT+1
Q
;
PRINT ; Print data
; PGC=page ct,LNTOT=no of lines to be printed,LNCNT=when to page break
; MAX=IOSL (device length)
;
N ADDRESS,COMPADDR,CITY,DATE,EDINO,EDIONFILE,IEN,NAME,PID,PIDPOS,STATE,TYPE,UPDATE
S EORMSG="*** END OF REPORT ***"
S NONEMSG="* * * N O D A T A T O P R I N T * * *"
;
I '$D(^TMP(RNAME,$J)) W !!!,NONEMSG D END Q
S NAME="" F S NAME=$O(^TMP(RNAME,$J,NAME)) Q:NAME="" D
. S DATE="" F S DATE=$O(^TMP(RNAME,$J,NAME,DATE)) Q:DATE="" D
.. S EDINO="" F S EDINO=$O(^TMP(RNAME,$J,NAME,DATE,EDINO)) Q:EDINO="" D
... S TYPE="" F S TYPE=$O(^TMP(RNAME,$J,NAME,DATE,EDINO,TYPE)) Q:TYPE="" Q:IBQUIT D
.... ;JWS;IB*2.0*592;added 'Dent' for Dental
.... ;S PID=$S(TYPE="I":"Inst",TYPE="D":"Dent",1:"Prof")
.... ;/vd - US3995 - IB*2*623 - Modified the above line.
.... S PID=$S($E(TYPE,1)="I":"Inst",$E(TYPE,1)="D":"Dent",1:"Prof")
.... S PIDPOS=$S($E(TYPE,2)=2:94,1:82)
.... ;S NAME=$P(^TMP(RNAME,$J,DATE,IEN,EDINO,TYPE),U,1)
.... S ADDRESS=$P(^TMP(RNAME,$J,NAME,DATE,EDINO,TYPE),U,2)
.... S CITY=$P(^TMP(RNAME,$J,NAME,DATE,EDINO,TYPE),U,3)
.... S STATE=$P(^DIC(5,$P(^TMP(RNAME,$J,NAME,DATE,EDINO,TYPE),U,4),0),U,2)
.... S EDIONFILE=$P(^TMP(RNAME,$J,NAME,DATE,EDINO,TYPE),U,5)
.... S UPDATE=$S(EDIONFILE="":"Yes",1:"No")
.... I LNCNT>MAX D HEADER Q:IBQUIT
.... ;/vd - US3995 - IB*2*623 Modified the following line.
.... S COMPADDR=$E(ADDRESS,1,39-$L(CITY)-$L(STATE)-3)_" "_CITY_", "_STATE ; modified IB*2.0*623 v25
.... ;W !,$E(NAME,1,30),?33,$E(ADDRESS,1,35)," ",CITY,", ",STATE,?73,$$FMTE^XLFDT(DATE,2),?84,PID,?97,EDIONFILE,?109,EDINO,?121,UPDATE
.... W !,$E(NAME,1,30),?32,COMPADDR,?72,$$FMTE^XLFDT(DATE,2),?PIDPOS,PID,?105,EDIONFILE,?115,EDINO,?125,UPDATE
.... S LNCNT=LNCNT+1
I LNCNT>MAX D HEADER
Q:IBQUIT
END W !!!,?49,EORMSG,!!!
I $E(IOST,1,2)["C-" K DIR S DIR(0)="E" D ^DIR K DIR ;pause at end of report
Q
;
HDRINIT ; Initial setting
;
S LNCNT=0
I PGC=1,$E(IOST,1,2)["C-" W @IOF ; refresh terminal screen on 1st hdr
I 'LNTOT S PAGES=1
I LNTOT,PGC=1 D
. S LNCNT=0
. S PAGES=LNTOT/(MAX-10) I PAGES<1 S PAGES=1
. I PAGES["." S PAGES=$P(PAGES+1,".") ; if more than one page set whole number
S HDR1="Clearinghouse Payer ID Report"
S HDR2=$$FMTE^XLFDT($$NOW^XLFDT,1)
Q
;
;
N DIR,DUOUT
S LNCNT=0
I PGC'=1 D Q:IBQUIT
. W !
. I $E(IOST,1,2)["C-" K DIR S DIR(0)="E" D ^DIR K DIR I $D(DUOUT) S IBQUIT=1 Q:IBQUIT
. W @IOF ; refresh terminal screen on hdr
W !,HDR1,?43,HDR2,?98," Page: "_PGC_" of "_PAGES
W !,"Timeframe: "_BEGDT_" thru "_ENDDT
W !!
;/vd - US3995 IB*2*623 - The following was changed modified.
;W !,"Insurance Co",?33,"Address",?73,"Date",?84,"EDI-PayerID",?97,"OldValue",?109,"NewValue",?121,"Updated"
W !,"Insurance Co",?32,"Address",?72,"Date",?82,"EDI-PayerID",?94,"CLM-OFC-ID",?105,"OldValue",?115,"NewValue",?125,"Updated"
W:+ASTERISK !,LEGEND W !,DASH ;vd - IB*2.0*623 - added legend for US3994.
S LNCNT=LNCNT+10,PGC=PGC+1
Q
EXIT() ;clean up and quit
N ZTREQ
; Force a form feed at end of a printer report
I $E(IOST,1,2)'["C-" W @IOF
; handle device closing before exiting
I $D(ZTQUEUED) S ZTREQ="@"
I '$D(ZTQUEUED) D ^%ZISC
K ^TMP(RNAME,$J)
K BEGIN,BEGDT,ENDDT,IBABEG,IBAEND,IBQUIT,IEN,LNCNT,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCERP7 7351 printed Nov 22, 2024@17:22:26 Page 2
IBCERP7 ;AITC/KDM - HID HCCH Payer ID Report ;5/4/2017
+1 ;;2.0;INTEGRATED BILLING;**577,592,623**;21-MAR-94;Build 70
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ; This report is a PAYER ID report based on the 277stat msg responses from the clearing house
+4 ; This report will give a snap shot view of what is on file at the time of running.
+5 ; The results may vary each running depending on the timing of transactions posted to the file
+6 ; Refer to US976
+7 ; Called by IB BILLING SUPERVISOR MENU, Opt:SYST, Opt:HID
+8 ;
ENT ; Menu Option Entry Point
+1 NEW BEGDT,BEGIN,DT,END,ENDDT,HDR1,HDR2,HDR3,IBABEG,IBAEND,IBEOB,IBIFN,IBQUIT,LNTOT,MAX,PAGES,PGC,RNAME,U,Y
+2 NEW ASTERISK,CNT,DASH,EORMSG,LEGEND,NONEMSG,POP
+3 SET (ASTERISK,IBQUIT)=0
SET RNAME="IBCERP7"
SET LEGEND="'*' = No available fields to allow for an update in the insurance file"
+4 DO DATES
if IBQUIT
QUIT
if 'Y
QUIT
+5 DO DEVICE
if POP
QUIT
if IBQUIT
QUIT
QUE ; Queued Entry Point
+1 KILL ^TMP(RNAME,$JOB)
+2 DO GATHER
+3 DO HDRINIT
+4 DO HEADER
if IBQUIT
QUIT
+5 DO PRINT
+6 DO EXIT
+7 QUIT
DATES ; Enter the from and to dates for this report
+1 ;
+2 NEW DIR
+3 WRITE !
SET DIR(0)="DA^:DT:EX"
SET DIR("A")="Enter Earliest Date: "
SET DIR("B")=$$HTE^XLFDT($HOROLOG-30)
SET DIR("?")="Enter the earliest transaction date for the transaction report."
+4 DO ^DIR
KILL DIR
if 'Y
QUIT
SET IBABEG=+Y
SET BEGIN=Y(0)
SET BEGDT=$$FMTE^XLFDT(IBABEG,2)
+5 ;
+6 WRITE !
SET DIR(0)="DA^"_+Y_":DT:EX"
SET DIR("A")="Enter Latest Date: "
SET DIR("B")=$$FMTE^XLFDT(DT,1)
+7 ; DIR("?")="Enter the latest date for the transaction report."
+8 DO ^DIR
KILL DIR
if 'Y
QUIT
SET IBAEND=+Y
SET END=Y(0)
SET ENDDT=$$FMTE^XLFDT(IBAEND,2)
+9 ;
+10 QUIT
+11 ;
DEVICE ; - Ask device
+1 ;
+2 NEW %ZIS,ZTDESC,ZTIO,ZTQUEUED,ZTRTN,ZTSAVE
+3 WRITE !!!,"You will need a 132 column printer for this report",!
+4 SET %ZIS="QM"
DO ^%ZIS
if POP
SET IBQUIT=1
if POP
QUIT
+5 IF $DATA(IO("Q"))
Begin DoDot:1
+6 SET ZTRTN="QUE^IBCERP7"
SET ZTDESC="HCCH Payer ID Report"
+7 SET ZTSAVE("BEGIN")=""
+8 SET ZTSAVE("END")=""
+9 SET ZTSAVE("IBABEG")=""
+10 SET ZTSAVE("IBAEND")=""
+11 SET ZTSAVE("BEGDT")=""
+12 SET ZTSAVE("ENDDT")=""
+13 SET ZTSAVE("RNAME")=""
+14 SET ZTSAVE("IBQUIT")=""
+15 DO ^%ZTLOAD
+16 WRITE !!,$SELECT($DATA(ZTSK):"Your task number "_ZTSK_" has been queued.",1:"Unable to queue this job.")
+17 KILL ZTSK
DO HOME^%ZIS
+18 ;pause to see task no.
WRITE !!!
IF $EXTRACT(IOST,1,2)["C-"
KILL DIR
SET DIR(0)="E"
DO ^DIR
KILL DIR
End DoDot:1
SET IBQUIT=1
QUIT
+19 USE IO
+20 QUIT
+21 ;
GATHER ;GO GET THE INFO BASED ON THE DATES ENTERED
+1 ; uses ^DIC(36,"AEDIX",DATE,INSURANCE IEN,) to get data within date range.
+2 ; If data is within date range sets up ^TMP($J file with all data needed for the report.
+3 ; ^DIC(36,"AEDIX",DATE,INSURANCE IEN ,EDI ID NUMBER,TYPE "P" OR "I")=EDI ID NUMBER ON FILE ;
+4 ;
+5 ;(If EDI NUMBER ON FILE is null- it is considered updated, not attempted)
+6 ;
+7 ; Uses the insurance ien from Cross ref to extract the name, address, city, and state from the ^DIC(36,IEN)
+8 ; Uses the Type from cross ref as the EDI PayerID for the report. For printing the I="Inst";P="Prof"
+9 ; Uses the EDI ID NUMBER from Cross ref to be the NewValue on report.
+10 ; Uses the EDI ID NUMBER ON FILE from cross ref to be the OldValue on report
+11 ; If the EDI ID NUMBER ON FILE from cross ref is null- set the "updated" value for report to be "Yes", otherwise "No"
+12 ;
+13 ;
+14 NEW DATE,EDIONFILE,EDINO,IBADDRESS,IBCITY,IBNAME,IBSTATE,IBPIEN,LNCNT,TYPE
+15 SET $PIECE(DASH,"_",132)=""
+16 SET U="^"
SET LNTOT=0
SET PGC=1
SET MAX=IOSL
+17 SET DATE=IBABEG-1
+18 FOR
SET DATE=$ORDER(^DIC(36,"AEDIX",DATE))
if DATE=""
QUIT
if DATE>IBAEND
QUIT
Begin DoDot:1
+19 SET IBPIEN=""
FOR
SET IBPIEN=$ORDER(^DIC(36,"AEDIX",DATE,IBPIEN))
if IBPIEN=""
QUIT
Begin DoDot:2
+20 SET EDINO=""
FOR
SET EDINO=$ORDER(^DIC(36,"AEDIX",DATE,IBPIEN,EDINO))
if EDINO=""
QUIT
Begin DoDot:3
+21 SET TYPE=""
FOR
SET TYPE=$ORDER(^DIC(36,"AEDIX",DATE,IBPIEN,EDINO,TYPE))
if TYPE=""
QUIT
Begin DoDot:4
+22 SET EDIONFILE=$GET(^DIC(36,"AEDIX",DATE,IBPIEN,EDINO,TYPE))
+23 IF EDIONFILE["*"
SET ASTERISK=1
+24 SET IBNAME=$$GET1^DIQ(36,IBPIEN,.01)
+25 SET IBADDRESS=$$GET1^DIQ(36,IBPIEN,.111)
+26 SET IBCITY=$$GET1^DIQ(36,IBPIEN,.114)
+27 SET IBSTATE=$$GET1^DIQ(36,IBPIEN,.115,"I")
+28 SET ^TMP(RNAME,$JOB,IBNAME,DATE,EDINO,TYPE)=IBPIEN_U_IBADDRESS_U_IBCITY_U_IBSTATE_U_EDIONFILE
+29 SET LNTOT=LNTOT+1
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+30 QUIT
+31 ;
PRINT ; Print data
+1 ; PGC=page ct,LNTOT=no of lines to be printed,LNCNT=when to page break
+2 ; MAX=IOSL (device length)
+3 ;
+4 NEW ADDRESS,COMPADDR,CITY,DATE,EDINO,EDIONFILE,IEN,NAME,PID,PIDPOS,STATE,TYPE,UPDATE
+5 SET EORMSG="*** END OF REPORT ***"
+6 SET NONEMSG="* * * N O D A T A T O P R I N T * * *"
+7 ;
+8 IF '$DATA(^TMP(RNAME,$JOB))
WRITE !!!,NONEMSG
DO END
QUIT
+9 SET NAME=""
FOR
SET NAME=$ORDER(^TMP(RNAME,$JOB,NAME))
if NAME=""
QUIT
Begin DoDot:1
+10 SET DATE=""
FOR
SET DATE=$ORDER(^TMP(RNAME,$JOB,NAME,DATE))
if DATE=""
QUIT
Begin DoDot:2
+11 SET EDINO=""
FOR
SET EDINO=$ORDER(^TMP(RNAME,$JOB,NAME,DATE,EDINO))
if EDINO=""
QUIT
Begin DoDot:3
+12 SET TYPE=""
FOR
SET TYPE=$ORDER(^TMP(RNAME,$JOB,NAME,DATE,EDINO,TYPE))
if TYPE=""
QUIT
if IBQUIT
QUIT
Begin DoDot:4
+13 ;JWS;IB*2.0*592;added 'Dent' for Dental
+14 ;S PID=$S(TYPE="I":"Inst",TYPE="D":"Dent",1:"Prof")
+15 ;/vd - US3995 - IB*2*623 - Modified the above line.
+16 SET PID=$SELECT($EXTRACT(TYPE,1)="I":"Inst",$EXTRACT(TYPE,1)="D":"Dent",1:"Prof")
+17 SET PIDPOS=$SELECT($EXTRACT(TYPE,2)=2:94,1:82)
+18 ;S NAME=$P(^TMP(RNAME,$J,DATE,IEN,EDINO,TYPE),U,1)
+19 SET ADDRESS=$PIECE(^TMP(RNAME,$JOB,NAME,DATE,EDINO,TYPE),U,2)
+20 SET CITY=$PIECE(^TMP(RNAME,$JOB,NAME,DATE,EDINO,TYPE),U,3)
+21 SET STATE=$PIECE(^DIC(5,$PIECE(^TMP(RNAME,$JOB,NAME,DATE,EDINO,TYPE),U,4),0),U,2)
+22 SET EDIONFILE=$PIECE(^TMP(RNAME,$JOB,NAME,DATE,EDINO,TYPE),U,5)
+23 SET UPDATE=$SELECT(EDIONFILE="":"Yes",1:"No")
+24 IF LNCNT>MAX
DO HEADER
if IBQUIT
QUIT
+25 ;/vd - US3995 - IB*2*623 Modified the following line.
+26 ; modified IB*2.0*623 v25
SET COMPADDR=$EXTRACT(ADDRESS,1,39-$LENGTH(CITY)-$LENGTH(STATE)-3)_" "_CITY_", "_STATE
+27 ;W !,$E(NAME,1,30),?33,$E(ADDRESS,1,35)," ",CITY,", ",STATE,?73,$$FMTE^XLFDT(DATE,2),?84,PID,?97,EDIONFILE,?109,EDINO,?121,UPDATE
+28 WRITE !,$EXTRACT(NAME,1,30),?32,COMPADDR,?72,$$FMTE^XLFDT(DATE,2),?PIDPOS,PID,?105,EDIONFILE,?115,EDINO,?125,UPDATE
+29 SET LNCNT=LNCNT+1
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+30 IF LNCNT>MAX
DO HEADER
+31 if IBQUIT
QUIT
END WRITE !!!,?49,EORMSG,!!!
+1 ;pause at end of report
IF $EXTRACT(IOST,1,2)["C-"
KILL DIR
SET DIR(0)="E"
DO ^DIR
KILL DIR
+2 QUIT
+3 ;
HDRINIT ; Initial setting
+1 ;
+2 SET LNCNT=0
+3 ; refresh terminal screen on 1st hdr
IF PGC=1
IF $EXTRACT(IOST,1,2)["C-"
WRITE @IOF
+4 IF 'LNTOT
SET PAGES=1
+5 IF LNTOT
IF PGC=1
Begin DoDot:1
+6 SET LNCNT=0
+7 SET PAGES=LNTOT/(MAX-10)
IF PAGES<1
SET PAGES=1
+8 ; if more than one page set whole number
IF PAGES["."
SET PAGES=$PIECE(PAGES+1,".")
End DoDot:1
+9 SET HDR1="Clearinghouse Payer ID Report"
+10 SET HDR2=$$FMTE^XLFDT($$NOW^XLFDT,1)
+11 QUIT
+12 ;
+1 ;
+2 NEW DIR,DUOUT
+3 SET LNCNT=0
+4 IF PGC'=1
Begin DoDot:1
+5 WRITE !
+6 IF $EXTRACT(IOST,1,2)["C-"
KILL DIR
SET DIR(0)="E"
DO ^DIR
KILL DIR
IF $DATA(DUOUT)
SET IBQUIT=1
if IBQUIT
QUIT
+7 ; refresh terminal screen on hdr
WRITE @IOF
End DoDot:1
if IBQUIT
QUIT
+8 WRITE !,HDR1,?43,HDR2,?98," Page: "_PGC_" of "_PAGES
+9 WRITE !,"Timeframe: "_BEGDT_" thru "_ENDDT
+10 WRITE !!
+11 ;/vd - US3995 IB*2*623 - The following was changed modified.
+12 ;W !,"Insurance Co",?33,"Address",?73,"Date",?84,"EDI-PayerID",?97,"OldValue",?109,"NewValue",?121,"Updated"
+13 WRITE !,"Insurance Co",?32,"Address",?72,"Date",?82,"EDI-PayerID",?94,"CLM-OFC-ID",?105,"OldValue",?115,"NewValue",?125,"Updated"
+14 ;vd - IB*2.0*623 - added legend for US3994.
if +ASTERISK
WRITE !,LEGEND
WRITE !,DASH
+15 SET LNCNT=LNCNT+10
SET PGC=PGC+1
+16 QUIT
EXIT() ;clean up and quit
+1 NEW ZTREQ
+2 ; Force a form feed at end of a printer report
+3 IF $EXTRACT(IOST,1,2)'["C-"
WRITE @IOF
+4 ; handle device closing before exiting
+5 IF $DATA(ZTQUEUED)
SET ZTREQ="@"
+6 IF '$DATA(ZTQUEUED)
DO ^%ZISC
+7 KILL ^TMP(RNAME,$JOB)
+8 KILL BEGIN,BEGDT,ENDDT,IBABEG,IBAEND,IBQUIT,IEN,LNCNT,Y
+9 QUIT
