PXRMVALU ; SLC/KER - Validate Codes (utility) ; 05/16/2000
Source file <PXRMVALU.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
FILE(X) | ; Get File
; ; Requires: ; ; X in the form of a classification code ; ; Returns: ; ; <file #>^<DIC>^<code type> ; |
|
TRIM(X) | ; Trim leading/trailing spaces
|
|
NEXT(X,FILE) | ; Next code in file
|
|
TYPE(X,Y) | ; Code type
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ICD0("BA" | FILE+20, FILE+26, NEXT+16 |
^ICD9("BA" | FILE+18, FILE+24, NEXT+13 |
^ICPT("B" | NEXT+20 |
Name | Line Occurrences |
---|---|
$$TRIM | NEXT+11, NEXT+13, NEXT+16, NEXT+20 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CO | TYPE+18~*, TYPE+19, TYPE+20 |
CONTROL | FILE+16~*, FILE+18, FILE+20, FILE+22*, FILE+23*, FILE+24, FILE+26, FILE+28* |
DIC | FILE+11~*, FILE+12, FILE+13*, FILE+14*, FILE+19*, FILE+21*, FILE+25*, FILE+27*, FILE+29*, FILE+30 , FILE+31*, FILE+32*, FILE+33*, FILE+34*, FILE+35*, FILE+36*, FILE+37* |
FI | FILE+11~*, FILE+12, FILE+13*, FILE+14*, FILE+19*, FILE+21*, FILE+25*, FILE+27*, FILE+29*, FILE+30 , FILE+31*, FILE+32*, FILE+33*, FILE+34*, FILE+35*, FILE+36*, FILE+37*, TYPE+18~*, TYPE+19, TYPE+20 |
FILE | NEXT~, NEXT+11*, NEXT+12, NEXT+15, NEXT+18 |
I | FILE+16~, FILE+17*, FILE+23* |
NCODE | NEXT+11~, NEXT+19*, NEXT+20 |
NEXT | NEXT+11~, NEXT+13*, NEXT+14, NEXT+16*, NEXT+17, NEXT+20*, NEXT+21 |
OK | FILE+16~, FILE+17*, FILE+19*, FILE+21*, FILE+23, FILE+25*, FILE+27* |
SEARCH | FILE+16~*, FILE+17, FILE+18, FILE+20, FILE+22*, FILE+23*, FILE+24, FILE+26, FILE+28* |
TYPE | FILE+11~*, FILE+12, FILE+13*, FILE+14*, FILE+19*, FILE+21*, FILE+25*, FILE+27*, FILE+29*, FILE+30 , FILE+31*, FILE+32*, FILE+33*, FILE+34*, FILE+35*, FILE+36*, FILE+37*, TYPE+18~*, TYPE+19*, TYPE+20* , TYPE+21 |
X | FILE~, FILE+10*, FILE+12, FILE+13, FILE+14, FILE+15, FILE+16, FILE+23, FILE+30, FILE+31 , FILE+32, FILE+33, FILE+34, FILE+35, FILE+36, TYPE~, TYPE+18, TYPE+21*, NEXT~, NEXT+11* , NEXT+12, NEXT+13*, NEXT+14*, NEXT+15, NEXT+16*, NEXT+17*, NEXT+18, NEXT+19, NEXT+20*, NEXT+21* , NEXT+22, TRIM~, TRIM+1*, TRIM+2*, TRIM+3 |
Y | TYPE~, TYPE+18 |