Last change
on this file since 1785 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
993 bytes
|
Line | |
---|
1 | SPNLRF ;ISC-SF/GB-SCD PATIENT HEALTH SUMMARY ;9/25/95 11:13
|
---|
2 | ;;2.0;Spinal Cord Dysfunction;**20**;01/02/1997
|
---|
3 | ASK(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
|
---|
26 | GATHER(DFN,FDATE,TDATE,HIUSERS,QLIST) ; No need to gather
|
---|
27 | Q
|
---|
28 | PRINT(QLIST) ;
|
---|
29 | D ENX^GMTSDVR(QLIST("DFN"),QLIST("TYPE"))
|
---|
30 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.