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 |