IBCNERP8 ;DAOU/BHS - IBCNE eIV STATISTICAL REPORT COMPILE ;11-JUN-2002
Source file <IBCNERP8.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(IBCNERTN,IBCNESPC) | ; Entry pt
; Init vars |
|
EXIT | ; EN Exit pt
|
|
IN(RTN,BDT,EDT,TOT) | ; Determine Incoming Data
; Input params: RTN-routine name for ^TMP($J), BDT-start dt/time, ; EDT-end dt/time, **TOT-total records searched - used only for status ; checks when the process is queued (passed by reference) ; Output vars: Set pcs of ^TMP($J,RTN,"IN") as follows: ; 1=total Resps rec'd for date/time range ; 2=Ins Buf extract subtotal ; 3=Pre-Reg extract subtotal ; 4=Non-ver extract subtotal ; 5=No Act Ins subtotal |
|
INX | ; IN exit pt
|
|
OUT(RTN,BDT,EDT,TOT) | ; Outgoing Data
|
|
OUTX | ; OUT exit pt
|
|
CUR(RTN,BDT,EDT,TOT) | ; Current Status - stats - timeframe independent
; Input params: RTN-routine name as subs in ^TMP($J), **TOT-total recs ; searched - used only for status checks when the process is queued ; passed by reference ; Output vars: Set pcs of ^TMP($J,RTN,"CUR") as follows: ; 1=total Pending Resps (Transmitted-2) ; 2=total Queued Inqs (Ready to Transmit-1/Retry-6) ; 3=total Deferred Inqs (Hold-4) ; 4=Ins Cos w/o National ID ; 5=Payers w/eIV locally enabled is NO ;/vd-IB*2*687 - Reworded the description. ; ; 6=total user action required (symbol'='*' or '#' or '!' or '?' or '-') ; 6=total user action required (symbol'='#' or '!' or '?' or '-') ;IB*737/DTG stop use of '*' verified ; 7=total Man. Ver'd Ins Buf entries (symbol='*') ;IB*737/DTG stop use of '*' verified ; 8=total eIV Processed Ver. (symbol='+') ; 9=total awaiting processing (symbol='?' or BLANK) ; 10=total Ins Buf entries w/symbol='#' ; 11=total Ins Buf entries w/symbol='!' ; 12=total Ins Buf entries w/symbol='?' ; 13=total Ins Buf entries w/symbol='-' ; ; 14=total Ins Buffer entries w/symbol not in ('*','#','!','?','-') ; 14=total Ins Buffer entries w/symbol not in ('#','!','?','-') ;IB*737/DTG stop use of '*' verified ; 15=total Ins Buffer entries w/symbol='$' ; 16=total Ins Buffet entries w/symbol= % ; IB*2.0*621 - Added 16-21 ; 17=total Insurance Buffer ; 18=Total Appointment ; 19=total Ele Ins Cov Discovery (EICD) ; 20=total EICD Triggered Einsurance Verification ; 21=total MBI Inquiry ; 22=total IIU Payer 'Received IIU Data' set to NO ;IB*2.0*687 |
|
CURM | ;
; Save data to global |
|
CURX | ; CUR exit point
|
|
GETFLAGS(PIEN,APPIEN,PDATA,BDT,EDT,APP,RPTDATA) | ;
; PIEN - Payer ien in file 365.12 ; APPIEN - Application ien in subfile 365.121 ; PDATA - 0 node of Payer file entry ; BDT - Start date/time ; EDT - End date/time ; APP - Payer Application EIV or IIU ; RPTDATA - output array, passed by reference ; |
|
PYR(RTN,BDT,EDT,TOT) | ; Determine Incoming Data
; Input params: RTN-routine name for ^TMP($J), BDT-start dt/time, ; EDT-end dt/time, **TOT-total records searched - used only for status ; checks when the process is queued (passed by reference) ; Output vars: Set ^TMP($J,RTN,"PYR",APP,PAYER NAME,IEN of file 365.12)="" ;IB*2.0*687 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DIC(36 - [#36] | GET1^DIQ |
^IBCN(365.1 - [#365.1] | GET1^DIQ |