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 |
