IBDFN5 ;ALB/CJM - ENCOUNTER FORM - (entry points for used to print Health Summaries);6/16/93
;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
;
PRNTSMRY(GMTSTYP) ;prints the health summary
;INPUTS:
;DFN
;GMTSTYP is a ptr to the HEALTH SUMMARY TYPE file
;
;
;check that required variables are defined
Q:'$G(GMTSTYP)!'$G(DFN)
I '$L($T(ENX^GMTSDVR)),$L($T(SELTYP1^GMTS)),$L($T(EN^GMTS1)) D
.;protect stuff that might be killed
.N S1,S2,S2,GMI,GMTSEG,GMTSEGI,GMI,GMTSTITL,GMTSCVD,GMTSICF,GMTSCKP,GMW,GMTSEGC
.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
.N %T,DIC,GMTS,GMTSLO,GMTSPNM,GMTSRB,GMTSWARD,GMTSDOB,X,Y,VA,VAIN,VAINDT,VADM,VAEL,VAPA,VAERR,GMTSSN,GMTS0,GMTS1,GMTS2
.N GMTSAGE,GMTSTIM,GMTSEGH,GMTSEGL,GMTSHDR,GMTSNPG,GMTSPG,GMTSX,ENTRY,Z1,GMTSDTM,GMTSLOCK,GMTSLPG,SEX,POP,C,GMTSTOF
.S GMTSTITL=$G(^GMT(142,GMTSTYP,"T")) S:GMTSTITL="" GMTSTITL=$P($G(^GMT(142,GMTSTYP,0)),"^")
.D SELTYP1^GMTS
.D EN^GMTS1
I $L($T(ENX^GMTSDVR)) D ENX^GMTSDVR(DFN,GMTSTYP)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDFN5 1138 printed Dec 13, 2024@02:52:58 Page 2
IBDFN5 ;ALB/CJM - ENCOUNTER FORM - (entry points for used to print Health Summaries);6/16/93
+1 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
+2 ;
PRNTSMRY(GMTSTYP) ;prints the health summary
+1 ;INPUTS:
+2 ;DFN
+3 ;GMTSTYP is a ptr to the HEALTH SUMMARY TYPE file
+4 ;
+5 ;
+6 ;check that required variables are defined
+7 if '$GET(GMTSTYP)!'$GET(DFN)
QUIT
+8 IF '$LENGTH($TEXT(ENX^GMTSDVR))
IF $LENGTH($TEXT(SELTYP1^GMTS))
IF $LENGTH($TEXT(EN^GMTS1))
Begin DoDot:1
+9 ;protect stuff that might be killed
+10 NEW S1,S2,S2,GMI,GMTSEG,GMTSEGI,GMI,GMTSTITL,GMTSCVD,GMTSICF,GMTSCKP,GMW,GMTSEGC
+11 NEW GMTSNPG,GMTSPG,GMTSQIT,GMTSHDR,GMTSHD2,GMTSBRK,GMTSLCMP,GMTSDTC,GMTSEGN,GMTSE,GMTSEGR,GMTSEQ,GMTSEGH,GMTSEGL,GMTSDLM,GMTSDLS,GMTSNDM,GMTSN,GMTSQ,GMTSQIT,ZTSK,GMTSDLS,GMTSN,GMTSDLM
+12 NEW %T,DIC,GMTS,GMTSLO,GMTSPNM,GMTSRB,GMTSWARD,GMTSDOB,X,Y,VA,VAIN,VAINDT,VADM,VAEL,VAPA,VAERR,GMTSSN,GMTS0,GMTS1,GMTS2
+13 NEW GMTSAGE,GMTSTIM,GMTSEGH,GMTSEGL,GMTSHDR,GMTSNPG,GMTSPG,GMTSX,ENTRY,Z1,GMTSDTM,GMTSLOCK,GMTSLPG,SEX,POP,C,GMTSTOF
+14 SET GMTSTITL=$GET(^GMT(142,GMTSTYP,"T"))
if GMTSTITL=""
SET GMTSTITL=$PIECE($GET(^GMT(142,GMTSTYP,0)),"^")
+15 DO SELTYP1^GMTS
+16 DO EN^GMTS1
End DoDot:1
+17 IF $LENGTH($TEXT(ENX^GMTSDVR))
DO ENX^GMTSDVR(DFN,GMTSTYP)
+18 QUIT
