©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PXRMVAL ; SLC/KER - Validate Codes (ICD/ICP/CPT main) ; 05/16/2000
Source file <PXRMVAL.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ^DIC (FIELD,FILE)^DID ^DIR |
| Clinical Reminders | 2 | ($$CPT,$$ICD,$$ICP)^PXRMVALC ($$FILE,$$TYPE)^PXRMVALU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Validate a code format (ICD or CPT)
|
|
| CODE(X,DIC) | ; Extrinsic Function to check code format and value
|
|
| FN(X) | ; File Name (DBIA #2052)
|
|
| VAL(X,Y) | ; Validate code
|
|
| FD | ; File and file root based on DIC
|
|
| DD(X) | ; DD Exist? (DBIA #2052)
|
|
| FI(SO) | ; Prompt user for file (FI,DIC)
|
|
| SO(X) | ; Prompt user for source code (CODE)
|
|
| GL(X) | ; Global Location (DBIA #2052)
|
| FileNo | Call Tags |
|---|---|
| ^DIC - [#1] | Classic Fileman Calls |
| Name | Line Occurrences |
|---|---|
| $$DD | FD+2 |
| $$FI | EN+5 |
| $$FN | FI+3 |
| $$GL | FD+2, FD+3 |
| $$SO | EN+3 |
| $$VAL | EN+11 |
| EN | CODE+1 |
| FD | EN+1, EN+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CODE | VAL+1~*, VAL+2, VAL+3, VAL+4, VAL+5 |
| DIC | EN+1~*, EN+5*, EN+6, EN+8, EN+9, CODE~, CODE+1*, FI+1~, FI+7*, FD+1* , FD+2, FD+3*, FD+4, FD+5*, FD+6* |
| DIC("A" | FI+4*, FI+5* |
| DIC("B" | FI+4* |
| DIC("S" | FI+6* |
| DIC(0 | FI+7* |
| DINUM | FI+1~ |
| DIR | SO+1~ |
| DIR("A" | SO+3* |
| DIR("B" | SO+4* |
| DIR(0 | SO+2* |
| DIROUT | SO+1~, SO+5 |
| DIRUT | SO+1~, SO+5 |
| DLAYGO | FI+1~ |
| DO | FI+1~ |
| DTOUT | SO+1~, SO+5, FI+1~ |
| DUOUT | SO+1~, SO+5, FI+1~ |
| FI | EN+1~*, EN+5, EN+8*, EN+9*, EN+11, FD+1*, FD+3*, FD+5*, FD+6* |
| FILEDEF | FI+1~, FI+2*, FI+3*, FI+4 |
| FILENM | FI+1~, FI+3* |
| FILENUM | VAL+1~*, VAL+2, VAL+3, VAL+4 |
| OX | EN+1~*, EN+3*, EN+5, EN+6, EN+8, EN+9 |
| PXRMF | DD+1~, GL+1~, FN+1~ |
| PXRMF("GLOBAL | NAME" , GL+1 |
| PXRMF("LABEL" | DD+2 |
| PXRMF("NAME" | FN+1 |
| SO | FI~, FI+2*, FI+5, FI+7* |
| TY | EN+1~, EN+8*, EN+9 |
| X | EN+1*, EN+3*, EN+6, EN+8, EN+9, EN+11, CODE~, CODE+1*, VAL~, VAL+1 , SO~, SO+2*, SO+4, SO+5*, SO+6, FI+1~, DD~, DD+1*, DD+2*, GL~ , GL+1*, FN~, FN+1* |
| Y | EN+1!*, EN+3*, EN+6*, EN+8*, EN+9*, EN+11*, CODE+1~, VAL~, VAL+1, SO+1~ , SO+5, FI+1~, FI+7 |