| [613] | 1 | TIULO1 ; SLC/JER - More embedded Objects ;12-MAY-1999 16:19:39
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**47**;Jun 20, 1997
|
|---|
| 3 | VISDATE(TIU) ; Visit date/time
|
|---|
| 4 | N TIUX,TIUY
|
|---|
| 5 | S TIUX=$S(+$G(TIU("VISIT")):$P($G(TIU("VISIT")),U,2),$L($G(TIU("VSTR"))):$P($G(TIU("VSTR")),";",2),1:"")
|
|---|
| 6 | I TIUX']"" S TIUY="VISIT DATE UNKNOWN" G VISDTX
|
|---|
| 7 | S TIUY=$$DATE^TIULS(TIUX,"MM/DD/YY HR:MIN")
|
|---|
| 8 | VISDTX Q $G(TIUY)
|
|---|
| 9 | LABS(DFN,TIUTEST,TIUEDT,TIULDT) ; Get Lab Results
|
|---|
| 10 | N TIUY,TIUTST,TIUX S TIUTST=+$O(^LAB(60,"B",TIUTEST,0))
|
|---|
| 11 | I '+$G(TIUTST) G LABX
|
|---|
| 12 | D TEST^LR7OR2(.TIUY,DFN,"",$G(TIUEDT),$G(TIULDT),"",TIUTST)
|
|---|
| 13 | S TIUX=$S($D(TIUY)#2:$G(@TIUY@(1)),1:"____")
|
|---|
| 14 | I $L(TIUX,U)>1 D
|
|---|
| 15 | . S TIUTST=$P(TIUX,U,4)_" "_$P(TIUX,U,6)_" "_$P(TIUX,U,5)_" ("
|
|---|
| 16 | . S TIUTST=TIUTST_$$DATE^TIULS($P(TIUX,U),"MM/DD/CCYY HR:MIN")_")"
|
|---|
| 17 | E S TIUTST=TIUX
|
|---|
| 18 | I $D(TIUY)#2 K @TIUY
|
|---|
| 19 | LABX Q $G(TIUTST)
|
|---|
| 20 | ;
|
|---|
| 21 | HPHONE(DFN) ;Current Home Telephone Number
|
|---|
| 22 | N VAPA
|
|---|
| 23 | D ADD^VADPT
|
|---|
| 24 | HPHX Q $G(VAPA(8))
|
|---|
| 25 | ;
|
|---|
| 26 | SADD(DFN) ;Single Line Street Address
|
|---|
| 27 | N VAPA,J
|
|---|
| 28 | D ADD^VADPT
|
|---|
| 29 | S:$D(VAPA(1)) J=VAPA(1) S:$D(VAPA(2)) J=J_" "_VAPA(2) S:$D(VAPA(3)) J=J_" "_VAPA(3)
|
|---|
| 30 | SADX Q J
|
|---|
| 31 | ;
|
|---|
| 32 | CISTZI(DFN) ;City, State, Zip
|
|---|
| 33 | N VAPA,J
|
|---|
| 34 | D ADD^VADPT
|
|---|
| 35 | S:$D(VAPA(4)) J=VAPA(4) S:$D(VAPA(5)) J=J_", "_$P(VAPA(5),U,2) S:$D(VAPA(6)) J=J_", "_VAPA(6)
|
|---|
| 36 | CSTX Q J
|
|---|
| 37 | ;
|
|---|
