|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 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.
