Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMTSDS

GMTSDS.m

Go to the documentation of this file.
GMTSDS ; SLC/KER - Discharge Summary              ; 09/21/2001
 ;;2.7;Health Summary;**12,28,35,45,47**;Oct 20, 1995
 ;                          
 ; External References
 ;    DBIA  2902  MAIN^TIULAPIC
 ;    DBIA 10006  ^DIC (file #8935.1)
 ;                        
MAIN ; Control branching
 N ADATE,ADMIT,ASUB,ATDATE,ATTNDNG,ATTYPE,ATYPE,AUTHOR,CHILD,CONEED
 N COSAME,COSGEDBY,COSIG,CURIEN,DISCHG,GMTSA,GMTSAI,GMTSAII,GMTSCNT
 N GMTSD,GMTSDIC,GMTSEXSG,GMTSI,GMTSIEN,GMTSII,GMTSIQ,GMTSJ,GMTSK
 N GMTSODIC,GMTSPDIC,GMTSTDIC,GMTSPR,GMTSREC,GMTST,GMTSX,GMTSXTRA
 N I,PARIEN,PDATE,PN,PSUB,PTYPE,REASON,SIGNEDBY,STATUS,TSPEC,TYPE
 N TIUTYPE,TIUFPRIV,TIUNAM,GMTSTIUC,DIC,X,Y S (TIUNAM,X)="DISCHARGE SUMMARY",GMTSTIUC="DCS"
 S DIC="^TIU(8925.1,",DIC(0)="X",DIC("S")="I $P($G(^(0)),U,4)=""CL"",$P($G(^(0)),U)=TIUNAM"
 D ^DIC Q:+($G(Y))=0  S TIUTYPE=+Y K ^TMP("TIU",$J)
 D MAIN^TIULAPIC(DFN,TIUTYPE,GMTS1,GMTS2,GMTSNDM,1)
 Q:'$D(^TMP("TIU",$J))  D PNOTE^GMTSPN Q