31 lines
993 B
Mathematica
31 lines
993 B
Mathematica
SPNLRF ;ISC-SF/GB-SCD PATIENT HEALTH SUMMARY ;9/25/95 11:13
|
|
;;2.0;Spinal Cord Dysfunction;**20**;01/02/1997
|
|
ASK(QLIST,ABORT) ; Report-specific questions
|
|
N DIC,Y,DTOUT,DUOUT
|
|
; Which patient?
|
|
S DIC="^SPNL(154,"
|
|
;S DIC("S")="I $P(^(0),U,3)=1" ; Select only from active patients
|
|
S DIC(0)="AEQM"
|
|
S DIC("A")="Select PATIENT: "
|
|
;S DIC("?")="Select the patient for whom you want the Health Summary"
|
|
D ^DIC I $D(DTOUT)!($D(DUOUT))!(Y<0) S ABORT=1 Q
|
|
S QLIST("DFN")=+Y ; IEN's are DINUM'd to the ^DPT
|
|
K DIC
|
|
; Which Health Summary Type?
|
|
I $$VFILE^DILFD(142)'>0 D Q
|
|
. W !!?5,"*** HEALTH SUMMARY TYPE file (#142) not found ***",$C(7)
|
|
. S ABORT=1
|
|
. Q
|
|
S DIC="^GMT(142,"
|
|
S DIC(0)="AEQM"
|
|
S DIC("A")="Select Health Summary Type Name: "
|
|
;S DIC("?")="Choose one, if you aren't sure, experiment!"
|
|
D ^DIC I $D(DTOUT)!($D(DUOUT))!(Y<0) S ABORT=1 Q
|
|
S QLIST("TYPE")=+Y
|
|
Q
|
|
GATHER(DFN,FDATE,TDATE,HIUSERS,QLIST) ; No need to gather
|
|
Q
|
|
PRINT(QLIST) ;
|
|
D ENX^GMTSDVR(QLIST("DFN"),QLIST("TYPE"))
|
|
Q
|