ICPTCR ;ALB/ABR - MUMPS CROSS REFERENCE ROUTINE ; 3/10/97
Source file <ICPTCR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CATEG | ; For CATEGORY x-refs (file 81.1, fields 4-BEGIN CPT RANGE, and
; 5-END CPT RANGE) ; CAT = category type; used to determine x-ref "M" or "R" ; where "M" is used only for Major categories, and ; "R" is used for all others (not major) categories. |
|
| CSET(DA,ICPTX,CAT) | ; category range x-ref on END range
|
|
| CKIL(DA,CAT) | ; x-ref kill on END range
|
|
| CBSET(DA,ICPTA) | ; x-ref on begin range for categories
|
|
| CBKIL(DA,ICPTA) | ; x-ref kill on begin range for categories
|
|
| CVAR | ; set begin range x-ref variables.
; ICPTX = end range |
|
| CXSET | ; set of category x-ref
|
|
| CXKIL | ; kill of category x-ref
|
|
| MODIFIER | ; Mod x-refs
; ICPTA = begin range ; ICPTX = end range ; M = If $G(M), do whole file x-ref, ; else, just x-ref within multiple |
|
| MSET(DA,ICPTX,M) | ; x-ref on end range
|
|
| MKIL(DA,ICPTX,M) | ; x-ref kill on end range
|
|
| MBSET(DA,ICPTA,M) | ; modifier begin range x-ref
|
|
| MBKIL(DA,ICPTA,M) | ; modifier begin range x-ref kill
|
|
| MXSET | ; set modifier x-ref
|
|
| MXKIL | ; kill modifier x-ref
|
|
| MXMSET | ; set full file x-ref on range
|
|
| MXMKIL | ; kill full file x-ref on range
|
