source: WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNPSFAC.m@ 1261

Last change on this file since 1261 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 794 bytes
Line 
1SPNPSFAC ;SD/CM- RETURNS SITES WHERE PT HAS BEEN TREATED ;10-5-99
2 ;;2.0;Spinal Cord Dysfunction;**11**;01/02/1997
3START ;
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
8PICK 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
15EXIT ;
16 K SPNDA,SPNIEN,DIC
17 Q
Note: See TracBrowser for help on using the repository browser.