IBCVA1 ;ALB/MJB - SET MCCR VARIABLES CONT. ;09 JUN 88 14:49
Source file <IBCVA1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
4 | ;Event variables set
|
|
EN4 | ||
INP | ||
OCC | ||
COND | ||
5 | ;Billing variables set
|
|
EN5 | ||
REVC | ||
SOCC | ||
CONDN | ||
PROCX | ; Entrypoint from output formatter
|
|
PROC | ; -build array of procedures in IBPROC
|
|
PROCQ | ||
ALLPROC(IBIFN,IBPROC) | ; Returns all procedures for bill IBIFN in array IBPROC
; IBPROC = # of procedures found ; IBPROC(prnt order)=0-node of 'CP' entry with piece 15 = the ; modifiers separated by commas ; IBPROC(prnt order,"AUX")="AUX" node of 'CP' entry for CMS-1500 forms ; Pass IBPROC by reference |
|
VC | ;returns a bills value codes, IBIFN must be defined: IBVC=count,IBVC(VIFN)=CODE ^ NAME ^ VALUE ^ $$?
|
|
SETMODS(IBMOD,IBZ,IBXSAVE) | ; Set modifiers into IBXSAVE
; IBMOD = the list of modifier iens for the proc, separated by commas ; IBZ = the line counter to return the data in |