IBDFN5.m

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

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