Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
438 bytes
|
Rev | Line | |
---|
[628] | 1 | LRACFILE ;SLC/DCM - SORT FILE ROOM PATIENTS BY SSN ; 6/2/87 11:30 ;
|
---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
---|
| 3 | 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
|
---|
| 4 | Q
|
---|
| 5 | 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
|
---|
| 6 | Q
|
---|
| 7 | ENT ;from LRAC1
|
---|
| 8 | S F="" F Q=0:0 S F=$O(^TMP($J,"SSN",F)) Q:F="" S F1="" D F1
|
---|
| 9 | K F1,F,^TMP($J,"SSN") Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.