| [613] | 1 | ONCOCOP ;WASH ISC/SRR,MLH-COMPUTED FIELDS FOR 165.5, DIRECT TO VARPRT ;8/9/93 09:49
|
|---|
| 2 | ;;2.11;ONCOLOGY;;Mar 07, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | GETPT ;GET POINTERS
|
|---|
| 5 | S X=$P($G(^ONCO(165.5,D0,0)),U,2),X=$P($G(^ONCO(160,+X,0)),U) Q:X="" S DFN=$P(X,";"),OVR="^"_$P(X,";",2)_DFN_","
|
|---|
| 6 | Q
|
|---|
| 7 | ;
|
|---|
| 8 | PID ;PATIENT ID (FIRST DIGIT LAST NAME,PLUS LAST 4 SSN
|
|---|
| 9 | D GETPT G EX:X="" S OVR=OVR_"0)",PD0=@OVR,X=$E($P(PD0,U),1)_$E($P(PD0,U,9),6,9) G EX
|
|---|
| 10 | Q
|
|---|
| 11 | STCT ;STATE-COUNTY FROM MAS DATA
|
|---|
| 12 | D GETPT G EX:X="" S OVR=OVR_".11)",O11=$G(@OVR),(OS,X)=$P(O11,U,5) G EX:X="" S (OC,X)=$P(O11,U,7) G EX:X="" S (OC,X)=$P($G(^DIC(5,OS,1,OC,0)),U) G EX:X="" S X=$P(^DIC(5,OS,0),U,2) G EX:X="" S X=X_"/"_OC G EX
|
|---|
| 13 | W !,"CTY=",X ;S OC=X$P($G(^DIC(5,OS,0)),U,2) G EX:X="",EX:$P(O11,U,7)="" S OCT=$O
|
|---|
| 14 | EX ;EXIT
|
|---|
| 15 | K DFN,OVR,OAD
|
|---|
| 16 | Q
|
|---|
