- APCDDVW2 ; IHS/CMI/LAB - PRINT TXER REPORT ;
- ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- TXER ;EP;print transaction errors
- K APCDDEM
- D HEAD^APCDDVW
- W !!,"TOTAL NUMBER OF ERRORS ON THIS TXER REPORT: ",$G(APCDCNTR("TXER")),!!
- I '$D(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER")) W !!,"There are no visits in the specified ",$S(APCDPROC="P":"Posting",APCDPROC="V":"Visit",1:"Posting")," date range ",!,"that have Transaction Errors." Q
- S APCDCL=0 F S APCDCL=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER",APCDCL)) Q:APCDCL'=+APCDCL!($D(APCDQUIT)) S APCDCLIN="" F S APCDCLIN=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER",APCDCL,APCDCLIN)) Q:APCDCLIN=""!($D(APCDQUIT)) D
- .S APCDH="" F S APCDH=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER",APCDCL,APCDCLIN,APCDH)) Q:APCDH=""!($D(APCDQUIT)) D
- ..S APCDV=0 F S APCDV=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER",APCDCL,APCDCLIN,APCDH,APCDV)) Q:APCDV'=+APCDV!($D(APCDQUIT)) D:$Y>(IOSL-9) HEAD^APCDDVW Q:$D(APCDQUIT) D PRN1^APCDDVW W !?20,"ERROR INFORMATION" D TXER2
- Q:$D(APCDQUIT)
- S APCDDEM="",APCDPG=0
- D HEAD^APCDDVW
- I '$D(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG")) W !!,"NO VISITS WITH DEMOGRAPHIC (PAT REG) ERRORS"
- S APCDCL=0 F S APCDCL=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG",APCDCL)) Q:APCDCL'=+APCDCL!($D(APCDQUIT)) D
- .S APCDCLIN="" F S APCDH=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG",APCDCL,APCDCLIN)) Q:APCDCLIN=""!($D(APCDQUIT)) D
- ..S APCDH="" F S APCDH=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG",APCDCL,APCDCLIN,APCDH)) Q:APCDH=""!($D(APCDQUIT)) D
- ...S APCDV=0 F S APCDV=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG",APCDCL,APCDCLIN,APCDH,APCDV)) Q:APCDV'=+APCDV!($D(APCDQUIT)) D:$Y>(IOSL-9) HEAD^APCDDVW Q:$D(APCDQUIT) D PRN1^APCDDVW W !?20,"ERROR INFORMATION" D TXERD2
- Q:$D(APCDQUIT)
- K APCDDEM S APCDDEMM="",APCDPG=0
- D HEAD^APCDDVW
- I '$D(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND")) W !!,"NO VISITS WITH MANDATORY DATA ITEMS MISSING OR INVALID",!
- S APCDCL=0 F S APCDCL=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND",APCDCL)) Q:APCDCL'=+APCDCL!($D(APCDQUIT)) D
- .S APCDCLIN="" F S APCDCLIN=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND",APCDCL,APCDCLIN)) Q:APCDCLIN=""!($D(APCDQUIT)) D
- ..S APCDH="" S APCDH=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND",APCDCL,APCDCLIN,APCDH)) Q:APCDH=""!($D(APCDQUIT)) D
- ...S APCDV=0 F S APCDV=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND",APCDCL,APCDCLIN,APCDH,APCDV)) Q:APCDV'=+APCDV!($D(APCDQUIT)) D:$Y>(IOSL-4) HEAD^APCDDVW Q:$D(APCDQUIT) D PRN1^APCDDVW W !?20,"ERROR INFORMATION" D TXERD3
- Q
- TXERD2 ;
- S (APCDFILE,APCDECNT)=""
- F S APCDECNT=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT)) Q:APCDECNT="" S APCDFILE=$P(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT),U,2) D TXERDW
- Q
- TXER2 S (APCDFILE,APCDECNT)=""
- F S APCDECNT=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT)) Q:APCDECNT="" S APCDFILE=$P(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT),U,2) D TXERW
- Q
- TXERDW W !," FILE: ",$E($P(^DIC(APCDFILE,0),U),1,13)," ",$P(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT),U)
- Q
- TXERW W !," FILE: ",$E($P(^DIC(APCDFILE,0),U),1,13)," ",$P(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT),U)
- Q
- TXERDMW W !," FILE: ",$E($P(^DIC(APCDFILE,0),U),1,13)," ",$P(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT),U)
- Q
- TXERD3 S (APCDFILE,APCDECNT)=""
- F S APCDECNT=$O(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT)) Q:APCDECNT=""!($D(APCDQUIT)) D
- .S APCDFILE=$P(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT),U,2) D TXERDMW
- Q
- ;
- APCDDVW2 ; IHS/CMI/LAB - PRINT TXER REPORT ;
- +1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- TXER ;EP;print transaction errors
- +1 KILL APCDDEM
- +2 DO HEAD^APCDDVW
- +3 WRITE !!,"TOTAL NUMBER OF ERRORS ON THIS TXER REPORT: ",$GET(APCDCNTR("TXER")),!!
- +4 IF '$DATA(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER"))
- WRITE !!,"There are no visits in the specified ",$SELECT(APCDPROC="P":"Posting",APCDPROC="V":"Visit",1:"Posting")," date range ",!,"that have Transaction Errors."
- QUIT
- +5 SET APCDCL=0
- FOR
- SET APCDCL=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER",APCDCL))
- IF APCDCL'=+APCDCL!($DATA(APCDQUIT))
- QUIT
- SET APCDCLIN=""
- FOR
- SET APCDCLIN=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER",APCDCL,APCDCLIN))
- IF APCDCLIN=""!($DATA(APCDQUIT))
- QUIT
- Begin DoDot:1
- +6 SET APCDH=""
- FOR
- SET APCDH=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER",APCDCL,APCDCLIN,APCDH))
- IF APCDH=""!($DATA(APCDQUIT))
- QUIT
- Begin DoDot:2
- +7 SET APCDV=0
- FOR
- SET APCDV=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER",APCDCL,APCDCLIN,APCDH,APCDV))
- IF APCDV'=+APCDV!($DATA(APCDQUIT))
- QUIT
- IF $Y>(IOSL-9)
- DO HEAD^APCDDVW
- IF $DATA(APCDQUIT)
- QUIT
- DO PRN1^APCDDVW
- WRITE !?20,"ERROR INFORMATION"
- DO TXER2
- End DoDot:2
- End DoDot:1
- +8 IF $DATA(APCDQUIT)
- QUIT
- +9 SET APCDDEM=""
- SET APCDPG=0
- +10 DO HEAD^APCDDVW
- +11 IF '$DATA(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG"))
- WRITE !!,"NO VISITS WITH DEMOGRAPHIC (PAT REG) ERRORS"
- +12 SET APCDCL=0
- FOR
- SET APCDCL=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG",APCDCL))
- IF APCDCL'=+APCDCL!($DATA(APCDQUIT))
- QUIT
- Begin DoDot:1
- +13 SET APCDCLIN=""
- FOR
- SET APCDH=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG",APCDCL,APCDCLIN))
- IF APCDCLIN=""!($DATA(APCDQUIT))
- QUIT
- Begin DoDot:2
- +14 SET APCDH=""
- FOR
- SET APCDH=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG",APCDCL,APCDCLIN,APCDH))
- IF APCDH=""!($DATA(APCDQUIT))
- QUIT
- Begin DoDot:3
- +15 SET APCDV=0
- FOR
- SET APCDV=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG",APCDCL,APCDCLIN,APCDH,APCDV))
- IF APCDV'=+APCDV!($DATA(APCDQUIT))
- QUIT
- IF $Y>(IOSL-9)
- DO HEAD^APCDDVW
- IF $DATA(APCDQUIT)
- QUIT
- DO PRN1^APCDDVW
- WRITE !?20,"ERROR INFORMATION"
- DO TXERD2
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +16 IF $DATA(APCDQUIT)
- QUIT
- +17 KILL APCDDEM
- SET APCDDEMM=""
- SET APCDPG=0
- +18 DO HEAD^APCDDVW
- +19 IF '$DATA(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND"))
- WRITE !!,"NO VISITS WITH MANDATORY DATA ITEMS MISSING OR INVALID",!
- +20 SET APCDCL=0
- FOR
- SET APCDCL=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND",APCDCL))
- IF APCDCL'=+APCDCL!($DATA(APCDQUIT))
- QUIT
- Begin DoDot:1
- +21 SET APCDCLIN=""
- FOR
- SET APCDCLIN=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND",APCDCL,APCDCLIN))
- IF APCDCLIN=""!($DATA(APCDQUIT))
- QUIT
- Begin DoDot:2
- +22 SET APCDH=""
- SET APCDH=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND",APCDCL,APCDCLIN,APCDH))
- IF APCDH=""!($DATA(APCDQUIT))
- QUIT
- Begin DoDot:3
- +23 SET APCDV=0
- FOR
- SET APCDV=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND",APCDCL,APCDCLIN,APCDH,APCDV))
- IF APCDV'=+APCDV!($DATA(APCDQUIT))
- QUIT
- IF $Y>(IOSL-4)
- DO HEAD^APCDDVW
- IF $DATA(APCDQUIT)
- QUIT
- DO PRN1^APCDDVW
- WRITE !?20,"ERROR INFORMATION"
- DO TXERD3
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +24 QUIT
- TXERD2 ;
- +1 SET (APCDFILE,APCDECNT)=""
- +2 FOR
- SET APCDECNT=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT))
- IF APCDECNT=""
- QUIT
- SET APCDFILE=$PIECE(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT),U,2)
- DO TXERDW
- +3 QUIT
- TXER2 SET (APCDFILE,APCDECNT)=""
- +1 FOR
- SET APCDECNT=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT))
- IF APCDECNT=""
- QUIT
- SET APCDFILE=$PIECE(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT),U,2)
- DO TXERW
- +2 QUIT
- TXERDW WRITE !," FILE: ",$EXTRACT($PIECE(^DIC(APCDFILE,0),U),1,13)," ",$PIECE(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOG",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT),U)
- +1 QUIT
- TXERW WRITE !," FILE: ",$EXTRACT($PIECE(^DIC(APCDFILE,0),U),1,13)," ",$PIECE(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT),U)
- +1 QUIT
- TXERDMW WRITE !," FILE: ",$EXTRACT($PIECE(^DIC(APCDFILE,0),U),1,13)," ",$PIECE(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT),U)
- +1 QUIT
- TXERD3 SET (APCDFILE,APCDECNT)=""
- +1 FOR
- SET APCDECNT=$ORDER(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT))
- IF APCDECNT=""!($DATA(APCDQUIT))
- QUIT
- Begin DoDot:1
- +2 SET APCDFILE=$PIECE(^XTMP("APCDDV",APCDJOB,APCDBT,"TXER","DEMOGMAND",APCDCL,APCDCLIN,APCDH,APCDV,APCDECNT),U,2)
- DO TXERDMW
- End DoDot:1
- +3 QUIT
- +4 ;
