IBCNERPL ;IB/BAA/AWC - IBCN HL7 RESPONSE REPORT PRINT;25 Feb 2015
Source file <IBCNERPL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(IBCNERTN,INCNESPJ) | ; Entry point
|
|
; Get Print Info
; ?3,"Payer Name",?27,"Patient Name",?50,"SSN",?56,"Dt Sent",?76,"Dt Rec'd",?96,"Trace #",?115,"Buffer #" |
||
EXIT | ;
|
|
EOL | ; display "end of page" message and set exit flag
|
|
EHDR | ; print header for excel
; IB*737/DTG new tag, header for excel only |
|
HEADER | ; print header for each page
|
|
LINE(LINE) | ; Print line of data
; IB*737/DTG handle Excel Header different than report ; I $Y+1>MAXCNT D HEADER I $G(ZTSTOP)!IBPXT Q |
|
CENTER(LINE) | ; return length of a centered line
; LINE - line to center |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|