©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
LRACFILE ; IHS/DIR/FJE - SORT FILE ROOM PATIENTS BY SSN 6/2/87 11:30 ;
Source file <LRACFILE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| F1 | ;F Q=0:0 S F1=$O(^TMP($J,"SSN",F,F1)) Q:F1="" S SSN=$E(F,6,8)_"-"_$E(F,9,10)_"-"_$E(F,1,5),LRDFN=F1 D F2
|
|
| F2 | ;Q:$D(^LR(LRDFN,0))[0 S DFN=$P(^LR(LRDFN,0),U,3),LRDPF=+$P(^(0),U,2) D PT^LRX S SSN=" "_SSN_" ",LRNM=F D PAT1^LRAC1
|
|
| ENT | ;from LRAC1
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LR - [#63] | F2+1 |
| ^TMP($J | F1+1, ENT+2, ENT+4! |
| Name | Line Occurrences |
|---|---|
| F1 | ENT+2 |
| F2 | F1+1 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | F2+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | F2+1* |
| F | F2+1, F1+1, ENT+2*, ENT+4! |
| F1 | F1+1*, ENT+2*, ENT+4! |
| >> HRCN | F2+1* |
| >> LRDFN | F2+1, F1+1* |
| >> LRDPF | F2+1* |
| >> LRNM | F2+1* |
| >> Q | F1+1*, ENT+2* |
| U | F2+1 |