source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLRF.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 993 bytes
Line 
1SPNLRF ;ISC-SF/GB-SCD PATIENT HEALTH SUMMARY ;9/25/95 11:13
2 ;;2.0;Spinal Cord Dysfunction;**20**;01/02/1997
3ASK(QLIST,ABORT) ; Report-specific questions
4 N DIC,Y,DTOUT,DUOUT
5 ; Which patient?
6 S DIC="^SPNL(154,"
7 ;S DIC("S")="I $P(^(0),U,3)=1" ; Select only from active patients
8 S DIC(0)="AEQM"
9 S DIC("A")="Select PATIENT: "
10 ;S DIC("?")="Select the patient for whom you want the Health Summary"
11 D ^DIC I $D(DTOUT)!($D(DUOUT))!(Y<0) S ABORT=1 Q
12 S QLIST("DFN")=+Y ; IEN's are DINUM'd to the ^DPT
13 K DIC
14 ; Which Health Summary Type?
15 I $$VFILE^DILFD(142)'>0 D Q
16 . W !!?5,"*** HEALTH SUMMARY TYPE file (#142) not found ***",$C(7)
17 . S ABORT=1
18 . Q
19 S DIC="^GMT(142,"
20 S DIC(0)="AEQM"
21 S DIC("A")="Select Health Summary Type Name: "
22 ;S DIC("?")="Choose one, if you aren't sure, experiment!"
23 D ^DIC I $D(DTOUT)!($D(DUOUT))!(Y<0) S ABORT=1 Q
24 S QLIST("TYPE")=+Y
25 Q
26GATHER(DFN,FDATE,TDATE,HIUSERS,QLIST) ; No need to gather
27 Q
28PRINT(QLIST) ;
29 D ENX^GMTSDVR(QLIST("DFN"),QLIST("TYPE"))
30 Q
Note: See TracBrowser for help on using the repository browser.