| 1 | IBDFN5 ;ALB/CJM - ENCOUNTER FORM - (entry points for used to print Health Summaries);6/16/93
|
|---|
| 2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | PRNTSMRY(GMTSTYP) ;prints the health summary
|
|---|
| 5 | ;INPUTS:
|
|---|
| 6 | ;DFN
|
|---|
| 7 | ;GMTSTYP is a ptr to the HEALTH SUMMARY TYPE file
|
|---|
| 8 | ;
|
|---|
| 9 | ;
|
|---|
| 10 | ;check that required variables are defined
|
|---|
| 11 | Q:'$G(GMTSTYP)!'$G(DFN)
|
|---|
| 12 | I '$L($T(ENX^GMTSDVR)),$L($T(SELTYP1^GMTS)),$L($T(EN^GMTS1)) D
|
|---|
| 13 | .;protect stuff that might be killed
|
|---|
| 14 | .N S1,S2,S2,GMI,GMTSEG,GMTSEGI,GMI,GMTSTITL,GMTSCVD,GMTSICF,GMTSCKP,GMW,GMTSEGC
|
|---|
| 15 | .N GMTSNPG,GMTSPG,GMTSQIT,GMTSHDR,GMTSHD2,GMTSBRK,GMTSLCMP,GMTSDTC,GMTSEGN,GMTSE,GMTSEGR,GMTSEQ,GMTSEGH,GMTSEGL,GMTSDLM,GMTSDLS,GMTSNDM,GMTSN,GMTSQ,GMTSQIT,ZTSK,GMTSDLS,GMTSN,GMTSDLM
|
|---|
| 16 | .N %T,DIC,GMTS,GMTSLO,GMTSPNM,GMTSRB,GMTSWARD,GMTSDOB,X,Y,VA,VAIN,VAINDT,VADM,VAEL,VAPA,VAERR,GMTSSN,GMTS0,GMTS1,GMTS2
|
|---|
| 17 | .N GMTSAGE,GMTSTIM,GMTSEGH,GMTSEGL,GMTSHDR,GMTSNPG,GMTSPG,GMTSX,ENTRY,Z1,GMTSDTM,GMTSLOCK,GMTSLPG,SEX,POP,C,GMTSTOF
|
|---|
| 18 | .S GMTSTITL=$G(^GMT(142,GMTSTYP,"T")) S:GMTSTITL="" GMTSTITL=$P($G(^GMT(142,GMTSTYP,0)),"^")
|
|---|
| 19 | .D SELTYP1^GMTS
|
|---|
| 20 | .D EN^GMTS1
|
|---|
| 21 | I $L($T(ENX^GMTSDVR)) D ENX^GMTSDVR(DFN,GMTSTYP)
|
|---|
| 22 | Q
|
|---|
