IBCEQ1A ;ALB/BSL,TMK - PROVIDER ID QUERY REPORT ;25-AUG-03
Source file <IBCEQ1A.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
RPTOUT | ; Print from data in ^XTMP
|
|
HDR(IBPG,IBSTOP,IBZ,FF) | ; Main hdr
; FF = 0 if continuation pg so it writes it to report, but not mail msg |
|
HDR1(IBPG,IBSTOP,IBZ,IBCONT) | ; Hdr err typ
|
|
INSHDR(IBPG,IBSTOP,IBINM,IBZ,IBICONT) | ; Ins Co info
|
|
ASK(IBSTOP) | ; Ask continue
; If passed by ref, IBSTOP returned = 1 if print aborted |
|
WRT(FF,TEXT,NOT) | ; Wrt/store line
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBA(355.3 - [#355.3] | GET1^DIQ |
^IBA(355.9 - [#355.9] | EXTERNAL^DILFD |