GMTSOBS2 ; SLC/KER - HS Object - Show ; 05/22/2008
;;2.7;Health Summary;**58,89**;Oct 20, 1995;Build 61
;
; External References
; DBIA 2056 $$GET1^DIQ (file 142.5)
; DBIA 2052 $$GET1^DID (DD 142.5)
; DBIA 10103 $$NOW^XLFDT
; DBIA 10103 $$FMADD^XLFDT
Q
GET(X,GMTSARY) ; Get Fields
;
; Input X IEN of HS Object File 142.5
; Output GMTSARY Array of Fields and Values
; (passed by reference)
K GMTSARY N GMTSN,GMTSIEN S GMTSIEN=+($G(X)),GMTSN=$G(^GMT(142.5,+GMTSIEN,0)) Q:'$L(GMTSN)
N GMTSI,GMTSF,GMTSFLD,GMTSFLDN,GMTSFLDM,GMTSDI,GMTSDE
F GMTSI=1:1 D Q:$L(GMTSN,"^")=GMTSI
. S GMTSFLD=GMTSI S:GMTSFLD<10 GMTSFLD="0"_GMTSFLD S GMTSFLD=+("."_GMTSFLD)
. S GMTSFLDN=$$GET1^DID(142.5,+GMTSFLD,"","LABEL"),GMTSFLDM=$$EN2^GMTSUMX(GMTSFLDN)
. S GMTSDI=$$GET1^DIQ(142.5,(+GMTSIEN_","),GMTSFLD,"I"),GMTSDE=$$GET1^DIQ(142.5,(+GMTSIEN_","),GMTSFLD,"E")
. S GMTSARY(+GMTSIEN,+GMTSFLD,"I")=GMTSDI,GMTSARY(+GMTSIEN,+GMTSFLD,"E")=GMTSDE
. S GMTSARY(+GMTSIEN,+GMTSFLD,"NAME")=GMTSFLDN
. S:GMTSFLDM="Health Summary type" GMTSFLDM="Health Summary Type"
. S GMTSARY(+GMTSIEN,+GMTSFLD,"PROMPT")=GMTSFLDM
;Code to handle Overwrite No Data changes
S GMTSARY(+GMTSIEN,2,"NAME")="OVERWRITE NO DATA"
S GMTSARY(+GMTSIEN,2,"PROMPT")="Overwrite No Data Available Message"
S GMTSARY(+GMTSIEN,2,"I")=$G(^GMT(142.5,+GMTSIEN,2))
S GMTSARY(+GMTSIEN,2,"E")=$G(^GMT(142.5,+GMTSIEN,2))
;
S GMTSARY(+GMTSIEN,1,"NAME")="OBJECT DESCRIPTION"
S GMTSARY(+GMTSIEN,1,"PROMPT")="Object Description"
S GMTSI=0 F S GMTSI=$O(^GMT(142.5,+GMTSIEN,1,GMTSI)) Q:+GMTSI=0 D
. S GMTSARY(+GMTSIEN,1,"I",GMTSI,0)=$G(^GMT(142.5,GMTSIEN,1,GMTSI,0))
D DEF^GMTSOBS(+GMTSIEN,.GMTSARY)
Q
DIS(DFN,OBJ) ; Display Object
Q:+($G(DFN))'>0 Q:+($G(OBJ))'>0
K GMTSOBJ N DIE,DR,GMTSR,GMTSLBL,GMTSTYP,GMTSPER,GMTSHDR,GMTSRDT
N GMTSCON,GMTSRHD,GMTSIOM,GMTSCHD,GMTSLIM,GMTSBLK,GMTSQ,GMTSDEC
N GMTSDT,GMTSI,GMTSPX1,GMTSPX2,GMTSNOD,GMTSLBB,GMTSUNT,GMTSLEN
N GMTSDIF,GMTSOBJ,GMTSOBJE,GMTSULB S GMTSOBJ=+($G(OBJ))
S GMTSR=$G(^GMT(142.5,+GMTSOBJ,0))
S GMTSLBL=$P(GMTSR,U,2) S:$L(GMTSLBL) GMTSOBJ("LABEL")=GMTSLBL
S GMTSTYP=$P(GMTSR,U,3) Q:+GMTSTYP'>0 S GMTSPER=$P(GMTSR,U,4)
S GMTSPX1="",GMTSPX2="",GMTSLEN=+GMTSPER,GMTSUNT=$E(GMTSPER,$L(GMTSPER))
I +GMTSLEN>0,GMTSUNT?1U,"DWMY"[GMTSUNT D
. S GMTSPX1=$$NOW^XLFDT
. S:GMTSUNT="D" GMTSDIF=GMTSLEN S:GMTSUNT="W" GMTSDIF=GMTSLEN*7
. S:GMTSUNT="M" GMTSDIF=GMTSLEN*30.4 S:GMTSUNT="Y" GMTSDIF=GMTSLEN*365.25
. S GMTSDIF=$P(GMTSDIF,".",1),GMTSPX2=$$FMADD^XLFDT(GMTSPX1,-(GMTSDIF))
S GMTSNOD=$P(GMTSR,U,5) S:+GMTSNOD>0 GMTSOBJ("SUPPRESS COMPONENTS")=""
S GMTSHDR=$P(GMTSR,U,6) S:+GMTSHDR>0 GMTSOBJ=""
S GMTSULB=$P(GMTSR,U,7) S:+GMTSULB>0 GMTSOBJ("USE LABEL")=""
S GMTSLBB=$P(GMTSR,U,8) S:+GMTSLBB>0 GMTSOBJ("LABEL BLANK LINE")=""
S GMTSRDT=$P(GMTSR,U,9) S:+GMTSRDT>0 GMTSOBJ("DATE LINE")=""
S GMTSCON=$P(GMTSR,U,10) S:+GMTSCON>0 GMTSOBJ("CONFIDENTIAL")=""
S GMTSRHD=$P(GMTSR,U,11) S:+GMTSRHD>0 GMTSOBJ("REPORT HEADER")=""
S GMTSCHD=$P(GMTSR,U,12) S:+GMTSCHD>0 GMTSOBJ("COMPONENT HEADER")=""
S GMTSUND=$P(GMTSR,U,13) S:+GMTSUND>0 GMTSOBJ("UNDERLINE")=""
S GMTSLIM=$P(GMTSR,U,14) S:+GMTSLIM>0 GMTSOBJ("LIMITS")=""
S GMTSBLK=$P(GMTSR,U,15) S:+GMTSBLK>0 GMTSOBJ("BLANK LINE")=""
S GMTSDEC=$P(GMTSR,U,16) S:+GMTSDEC>0 GMTSOBJ("DECEASED")=""
S GMTSOBJ("NO DATA")=$G(^GMT(142.5,+OBJ,2))
K:GMTSCHD'>0 GMTSOBJ("LIMITS"),GMTSOBJ("BLANK LINE")
K:+($G(GMTSHDR))'>0 GMTSOBJ S GMTSIOM=$G(IOM),IOM=80,GMTSOBJE=""
D ENX^GMTSDVR(DFN,GMTSTYP,GMTSPX2,GMTSPX1) S:+GMTSIOM>0 IOM=+GMTSIOM
Q
SP ; Suppress Headers
N GMTSL,GMTST,TXT S (GMTST,GMTSL)="" S:$L($G(GMTSLBL)) GMTSL=GMTSLBL
S:+($G(GMTSRDT))'>0 GMTSL=GMTSL_$J("",((72-$L(GMTSDTM))-$L(GMTSL)))_GMTSDTM
I $L(GMTSL)&(+($G(GMTSPLB))>0) D E("") S TXT="",TXT=$J(" ",7)_GMTSL D E(TXT)
I $L($G(GMTSLBL))&(+($G(GMTSPLB))>0)&(+($G(GMTSLBB))>0) D E("")
S GMTSL="" S:+($G(GMTSRDT))>0 GMTSL=$J("",(72-$L(GMTSDTM)))_GMTSDTM
S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
S GMTSL="" S:GMTSCON>0 GMTSL="******************** CONFIDENTIAL HEALTH SUMMARY **********************"
S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
S GMTSL="" S:GMTSRHD>0 GMTSL="PATIENT NAME SSN-SSN-SSAN WARD/LOCATTION DATE OF BIRTH"
S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
S GMTSL="" S:GMTSRHD>0 GMTSL=" "
S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
S (GMTSL,GMTST)="" S:GMTSCHD'>0 GMTSL=GMTSDCN S:GMTSCHD>0 (GMTST,GMTSL)=GMTSDCH
S:GMTSCHD>0&(GMTSLIM)>0&($L(GMTSTIM)) (GMTST,GMTSL)=GMTSDCH_" (max 10 occurrences or "_GMTSTIM_")"
S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
S GMTSL="" S:+($G(GMTSUND))>0&($L(GMTST)) $P(GMTSL,"-",$L(GMTST))="-"
S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
S GMTSL="" S:GMTSDEC>0 GMTSL=" ** DECEASED "_GMTSDED_" **"
S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
S GMTSL="" S:GMTSBLK>0 GMTSL=" " S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
S GMTSL="<component data>" S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
W:'$D(GMTSEXT) !
Q
HS ; Health Summary Headers
N GMTSL,GMTST,TXT S GMTSL="" S:$L($G(GMTSLBL)) GMTSL=GMTSLBL
I $L(GMTSL)&(+($G(GMTSPLB))>0) D E(" ") S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
D:$L(GMTSL)&(+($G(GMTSPLB))>0)&(+($G(GMTSLBB))>0) E(" ")
S GMTSL=$J("",(72-$L(GMTSDTM)))_GMTSDTM
S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
S GMTSL="******************** CONFIDENTIAL HEALTH SUMMARY **********************"
S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
S GMTSL="PATIENT NAME SSN-SSN-SSAN WARD/LOCATTION DATE OF BIRTH"
S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
S GMTSL=" "_GMTSDCH_" (max 10 occurrences or "_GMTSTIM_")"
S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
S GMTSL=" ** DECEASED "_GMTSDED_" **"
S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
S GMTSL="<component data>"
S TXT="",TXT=TXT_$J(" ",7)_GMTSL D:$L(GMTSL) E(TXT)
W:'$D(GMTSEXT) !
Q
D(X) ; Display
I '$D(GMTSEXT) W !,$G(X) Q
N GMTSC S GMTSC=$G(GMTSARY("D",0))+1,GMTSARY("D",+GMTSC)=$G(X),GMTSARY("D",0)=GMTSC
Q
E(X) ; Example
I '$D(GMTSEXT) W !,$G(X) Q
N GMTSC S GMTSC=$G(GMTSARY("E",0))+1,GMTSARY("E",+GMTSC)=$G(X),GMTSARY("E",0)=GMTSC
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSOBS2 6415 printed Nov 22, 2024@17:08:34 Page 2
GMTSOBS2 ; SLC/KER - HS Object - Show ; 05/22/2008
+1 ;;2.7;Health Summary;**58,89**;Oct 20, 1995;Build 61
+2 ;
+3 ; External References
+4 ; DBIA 2056 $$GET1^DIQ (file 142.5)
+5 ; DBIA 2052 $$GET1^DID (DD 142.5)
+6 ; DBIA 10103 $$NOW^XLFDT
+7 ; DBIA 10103 $$FMADD^XLFDT
+8 QUIT
GET(X,GMTSARY) ; Get Fields
+1 ;
+2 ; Input X IEN of HS Object File 142.5
+3 ; Output GMTSARY Array of Fields and Values
+4 ; (passed by reference)
+5 KILL GMTSARY
NEW GMTSN,GMTSIEN
SET GMTSIEN=+($GET(X))
SET GMTSN=$GET(^GMT(142.5,+GMTSIEN,0))
if '$LENGTH(GMTSN)
QUIT
+6 NEW GMTSI,GMTSF,GMTSFLD,GMTSFLDN,GMTSFLDM,GMTSDI,GMTSDE
+7 FOR GMTSI=1:1
Begin DoDot:1
+8 SET GMTSFLD=GMTSI
if GMTSFLD<10
SET GMTSFLD="0"_GMTSFLD
SET GMTSFLD=+("."_GMTSFLD)
+9 SET GMTSFLDN=$$GET1^DID(142.5,+GMTSFLD,"","LABEL")
SET GMTSFLDM=$$EN2^GMTSUMX(GMTSFLDN)
+10 SET GMTSDI=$$GET1^DIQ(142.5,(+GMTSIEN_","),GMTSFLD,"I")
SET GMTSDE=$$GET1^DIQ(142.5,(+GMTSIEN_","),GMTSFLD,"E")
+11 SET GMTSARY(+GMTSIEN,+GMTSFLD,"I")=GMTSDI
SET GMTSARY(+GMTSIEN,+GMTSFLD,"E")=GMTSDE
+12 SET GMTSARY(+GMTSIEN,+GMTSFLD,"NAME")=GMTSFLDN
+13 if GMTSFLDM="Health Summary type"
SET GMTSFLDM="Health Summary Type"
+14 SET GMTSARY(+GMTSIEN,+GMTSFLD,"PROMPT")=GMTSFLDM
End DoDot:1
if $LENGTH(GMTSN,"^")=GMTSI
QUIT
+15 ;Code to handle Overwrite No Data changes
+16 SET GMTSARY(+GMTSIEN,2,"NAME")="OVERWRITE NO DATA"
+17 SET GMTSARY(+GMTSIEN,2,"PROMPT")="Overwrite No Data Available Message"
+18 SET GMTSARY(+GMTSIEN,2,"I")=$GET(^GMT(142.5,+GMTSIEN,2))
+19 SET GMTSARY(+GMTSIEN,2,"E")=$GET(^GMT(142.5,+GMTSIEN,2))
+20 ;
+21 SET GMTSARY(+GMTSIEN,1,"NAME")="OBJECT DESCRIPTION"
+22 SET GMTSARY(+GMTSIEN,1,"PROMPT")="Object Description"
+23 SET GMTSI=0
FOR
SET GMTSI=$ORDER(^GMT(142.5,+GMTSIEN,1,GMTSI))
if +GMTSI=0
QUIT
Begin DoDot:1
+24 SET GMTSARY(+GMTSIEN,1,"I",GMTSI,0)=$GET(^GMT(142.5,GMTSIEN,1,GMTSI,0))
End DoDot:1
+25 DO DEF^GMTSOBS(+GMTSIEN,.GMTSARY)
+26 QUIT
DIS(DFN,OBJ) ; Display Object
+1 if +($GET(DFN))'>0
QUIT
if +($GET(OBJ))'>0
QUIT
+2 KILL GMTSOBJ
NEW DIE,DR,GMTSR,GMTSLBL,GMTSTYP,GMTSPER,GMTSHDR,GMTSRDT
+3 NEW GMTSCON,GMTSRHD,GMTSIOM,GMTSCHD,GMTSLIM,GMTSBLK,GMTSQ,GMTSDEC
+4 NEW GMTSDT,GMTSI,GMTSPX1,GMTSPX2,GMTSNOD,GMTSLBB,GMTSUNT,GMTSLEN
+5 NEW GMTSDIF,GMTSOBJ,GMTSOBJE,GMTSULB
SET GMTSOBJ=+($GET(OBJ))
+6 SET GMTSR=$GET(^GMT(142.5,+GMTSOBJ,0))
+7 SET GMTSLBL=$PIECE(GMTSR,U,2)
if $LENGTH(GMTSLBL)
SET GMTSOBJ("LABEL")=GMTSLBL
+8 SET GMTSTYP=$PIECE(GMTSR,U,3)
if +GMTSTYP'>0
QUIT
SET GMTSPER=$PIECE(GMTSR,U,4)
+9 SET GMTSPX1=""
SET GMTSPX2=""
SET GMTSLEN=+GMTSPER
SET GMTSUNT=$EXTRACT(GMTSPER,$LENGTH(GMTSPER))
+10 IF +GMTSLEN>0
IF GMTSUNT?1U
IF "DWMY"[GMTSUNT
Begin DoDot:1
+11 SET GMTSPX1=$$NOW^XLFDT
+12 if GMTSUNT="D"
SET GMTSDIF=GMTSLEN
if GMTSUNT="W"
SET GMTSDIF=GMTSLEN*7
+13 if GMTSUNT="M"
SET GMTSDIF=GMTSLEN*30.4
if GMTSUNT="Y"
SET GMTSDIF=GMTSLEN*365.25
+14 SET GMTSDIF=$PIECE(GMTSDIF,".",1)
SET GMTSPX2=$$FMADD^XLFDT(GMTSPX1,-(GMTSDIF))
End DoDot:1
+15 SET GMTSNOD=$PIECE(GMTSR,U,5)
if +GMTSNOD>0
SET GMTSOBJ("SUPPRESS COMPONENTS")=""
+16 SET GMTSHDR=$PIECE(GMTSR,U,6)
if +GMTSHDR>0
SET GMTSOBJ=""
+17 SET GMTSULB=$PIECE(GMTSR,U,7)
if +GMTSULB>0
SET GMTSOBJ("USE LABEL")=""
+18 SET GMTSLBB=$PIECE(GMTSR,U,8)
if +GMTSLBB>0
SET GMTSOBJ("LABEL BLANK LINE")=""
+19 SET GMTSRDT=$PIECE(GMTSR,U,9)
if +GMTSRDT>0
SET GMTSOBJ("DATE LINE")=""
+20 SET GMTSCON=$PIECE(GMTSR,U,10)
if +GMTSCON>0
SET GMTSOBJ("CONFIDENTIAL")=""
+21 SET GMTSRHD=$PIECE(GMTSR,U,11)
if +GMTSRHD>0
SET GMTSOBJ("REPORT HEADER")=""
+22 SET GMTSCHD=$PIECE(GMTSR,U,12)
if +GMTSCHD>0
SET GMTSOBJ("COMPONENT HEADER")=""
+23 SET GMTSUND=$PIECE(GMTSR,U,13)
if +GMTSUND>0
SET GMTSOBJ("UNDERLINE")=""
+24 SET GMTSLIM=$PIECE(GMTSR,U,14)
if +GMTSLIM>0
SET GMTSOBJ("LIMITS")=""
+25 SET GMTSBLK=$PIECE(GMTSR,U,15)
if +GMTSBLK>0
SET GMTSOBJ("BLANK LINE")=""
+26 SET GMTSDEC=$PIECE(GMTSR,U,16)
if +GMTSDEC>0
SET GMTSOBJ("DECEASED")=""
+27 SET GMTSOBJ("NO DATA")=$GET(^GMT(142.5,+OBJ,2))
+28 if GMTSCHD'>0
KILL GMTSOBJ("LIMITS"),GMTSOBJ("BLANK LINE")
+29 if +($GET(GMTSHDR))'>0
KILL GMTSOBJ
SET GMTSIOM=$GET(IOM)
SET IOM=80
SET GMTSOBJE=""
+30 DO ENX^GMTSDVR(DFN,GMTSTYP,GMTSPX2,GMTSPX1)
if +GMTSIOM>0
SET IOM=+GMTSIOM
+31 QUIT
SP ; Suppress Headers
+1 NEW GMTSL,GMTST,TXT
SET (GMTST,GMTSL)=""
if $LENGTH($GET(GMTSLBL))
SET GMTSL=GMTSLBL
+2 if +($GET(GMTSRDT))'>0
SET GMTSL=GMTSL_$JUSTIFY("",((72-$LENGTH(GMTSDTM))-$LENGTH(GMTSL)))_GMTSDTM
+3 IF $LENGTH(GMTSL)&(+($GET(GMTSPLB))>0)
DO E("")
SET TXT=""
SET TXT=$JUSTIFY(" ",7)_GMTSL
DO E(TXT)
+4 IF $LENGTH($GET(GMTSLBL))&(+($GET(GMTSPLB))>0)&(+($GET(GMTSLBB))>0)
DO E("")
+5 SET GMTSL=""
if +($GET(GMTSRDT))>0
SET GMTSL=$JUSTIFY("",(72-$LENGTH(GMTSDTM)))_GMTSDTM
+6 SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+7 SET GMTSL=""
if GMTSCON>0
SET GMTSL="******************** CONFIDENTIAL HEALTH SUMMARY **********************"
+8 SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+9 SET GMTSL=""
if GMTSRHD>0
SET GMTSL="PATIENT NAME SSN-SSN-SSAN WARD/LOCATTION DATE OF BIRTH"
+10 SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+11 SET GMTSL=""
if GMTSRHD>0
SET GMTSL=" "
+12 SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+13 SET (GMTSL,GMTST)=""
if GMTSCHD'>0
SET GMTSL=GMTSDCN
if GMTSCHD>0
SET (GMTST,GMTSL)=GMTSDCH
+14 if GMTSCHD>0&(GMTSLIM)>0&($LENGTH(GMTSTIM))
SET (GMTST,GMTSL)=GMTSDCH_" (max 10 occurrences or "_GMTSTIM_")"
+15 SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+16 SET GMTSL=""
if +($GET(GMTSUND))>0&($LENGTH(GMTST))
SET $PIECE(GMTSL,"-",$LENGTH(GMTST))="-"
+17 SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+18 SET GMTSL=""
if GMTSDEC>0
SET GMTSL=" ** DECEASED "_GMTSDED_" **"
+19 SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+20 SET GMTSL=""
if GMTSBLK>0
SET GMTSL=" "
SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+21 SET GMTSL="<component data>"
SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+22 if '$DATA(GMTSEXT)
WRITE !
+23 QUIT
HS ; Health Summary Headers
+1 NEW GMTSL,GMTST,TXT
SET GMTSL=""
if $LENGTH($GET(GMTSLBL))
SET GMTSL=GMTSLBL
+2 IF $LENGTH(GMTSL)&(+($GET(GMTSPLB))>0)
DO E(" ")
SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+3 if $LENGTH(GMTSL)&(+($GET(GMTSPLB))>0)&(+($GET(GMTSLBB))>0)
DO E(" ")
+4 SET GMTSL=$JUSTIFY("",(72-$LENGTH(GMTSDTM)))_GMTSDTM
+5 SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+6 SET GMTSL="******************** CONFIDENTIAL HEALTH SUMMARY **********************"
+7 SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+8 SET GMTSL="PATIENT NAME SSN-SSN-SSAN WARD/LOCATTION DATE OF BIRTH"
+9 SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+10 SET GMTSL=" "_GMTSDCH_" (max 10 occurrences or "_GMTSTIM_")"
+11 SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+12 SET GMTSL=" ** DECEASED "_GMTSDED_" **"
+13 SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+14 SET GMTSL="<component data>"
+15 SET TXT=""
SET TXT=TXT_$JUSTIFY(" ",7)_GMTSL
if $LENGTH(GMTSL)
DO E(TXT)
+16 if '$DATA(GMTSEXT)
WRITE !
+17 QUIT
D(X) ; Display
+1 IF '$DATA(GMTSEXT)
WRITE !,$GET(X)
QUIT
+2 NEW GMTSC
SET GMTSC=$GET(GMTSARY("D",0))+1
SET GMTSARY("D",+GMTSC)=$GET(X)
SET GMTSARY("D",0)=GMTSC
+3 QUIT
E(X) ; Example
+1 IF '$DATA(GMTSEXT)
WRITE !,$GET(X)
QUIT
+2 NEW GMTSC
SET GMTSC=$GET(GMTSARY("E",0))+1
SET GMTSARY("E",+GMTSC)=$GET(X)
SET GMTSARY("E",0)=GMTSC
+3 QUIT
