©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
LRNPXA0 ; IHS/DIR/FJE - NEW PERSON CONVERSION FOR ^LAR("Z" ; [ 1/23/93 ]
Source file <LRNPXA0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEVICE | ; device selection for exception report for file conversions
|
|
| ADD | ; add a new sort template to be used for exception logging and editing
|
|
| HEAD(X) | ; writes header for all exception reports
|
|
| EXCEPT(LRFILE,LRD0) | ;- LOGS EXCEPTIONS FROM CONVERSION OF DATA FROM 6 AND 16
; exceptions are put into a SORT template so the the site can ; then use fileman enter edit to correct problems found. |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIBT( | EXCEPT+7* |
| ^DIBT("B" | EXCEPT+5, EXCEPT+6 |
| ^DIC - [#1] | HEAD+2 |
| Name | Line Occurrences |
|---|---|
| ADD | EXCEPT+5 |
| DEVICE | DEVICE+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | DEVICE+1!, DEVICE+2* |
| %ZIS("A" | DEVICE+2* |
| %ZIS("B" | DEVICE+2* |
| DIC | EXCEPT+4~, ADD+2* |
| DIC("DR" | ADD+2* |
| DIC(0 | ADD+2* |
| DLAYGO | ADD+2*, ADD+3! |
| IOM | HEAD+3, HEAD+4 |
| ION | DEVICE+3 |
| IOST | DEVICE+3 |
| LRD0 | EXCEPT~, EXCEPT+7 |
| LRFILE | EXCEPT~, EXCEPT+5, EXCEPT+6, ADD+3 |
| >> LRIO | DEVICE+3*, DEVICE+4* |
| LRSORT | EXCEPT+4~, EXCEPT+6*, EXCEPT+7, ADD+3* |
| LRTIT | HEAD+1~, HEAD+2*, HEAD+3, HEAD+4* |
| >> LRTSK | HEAD+4 |
| POP | DEVICE+1~, DEVICE+3, DEVICE+4 |
| U | HEAD+2 |
| X | EXCEPT+4~, ADD+1~, ADD+3*, HEAD~, HEAD+2 |
| Y | EXCEPT+4~, ADD+1~, ADD+3 |