| 1 | SPNPSFAC ;SD/CM- RETURNS SITES WHERE PT HAS BEEN TREATED ;10-5-99
|
|---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**11**;01/02/1997
|
|---|
| 3 | START ;
|
|---|
| 4 | S U="^"
|
|---|
| 5 | W !!!,"This option shows the facilities (other VA sites) at which"
|
|---|
| 6 | W !,"a patient has been treated.",!!
|
|---|
| 7 | I '$D(^DGCN(391.91,"B")) W !!,*7,"No records on file! Consult IRM regarding installation of CIRN.",!! Q
|
|---|
| 8 | PICK S DIC=154,DIC(0)="AEMQZ" D ^DIC G:Y<0 EXIT
|
|---|
| 9 | S SPNDA=$P(Y,U)
|
|---|
| 10 | I '$D(^DGCN(391.91,"B",SPNDA)) W !!,"Pt has not been treated at any other VA site.",! G PICK
|
|---|
| 11 | W !!,"Pt Has Been Treated at",?36,"Date Last Treated",!
|
|---|
| 12 | S SPNIEN=0 F S SPNIEN=$O(^DGCN(391.91,"B",SPNDA,SPNIEN)) Q:'+SPNIEN W !,$P(^DIC(4,$P(^DGCN(391.91,SPNIEN,0),U,2),0),U,1),?36,$$FMTE^XLFDT($P($G(^DGCN(391.91,SPNIEN,0)),U,3),"5DZ")
|
|---|
| 13 | W !! G PICK
|
|---|
| 14 | G EXIT
|
|---|
| 15 | EXIT ;
|
|---|
| 16 | K SPNDA,SPNIEN,DIC
|
|---|
| 17 | Q
|
|---|
