source: FOIAVistA/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDFN5.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1IBDFN5 ;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 ;
4PRNTSMRY(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
Note: See TracBrowser for help on using the repository browser.