- GMTSXPD2 ; SLC/KER - Health Summary Dist (Component) ; 08/27/2002
- ;;2.7;Health Summary;**35,56**;Oct 20, 1995
- ;
- ; External References
- ; DBIA 1340 ^DIC(19.1,
- ; DBIA 2052 $$GET1^DID
- ;
- Q
- ; Check Input
- NAME(X) ; Check Name (required)
- S X=$G(X) K:X[""""!($A(X)=45) X Q:'$D(X) ""
- I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
- I $L($G(X)),'$D(^GMT(142.1,+($G(Y)),0)) D
- . K:$D(^GMT(142.1,"B",X)) X Q:'$D(X) Q:+($G(Y))'>0 I $P($G(^GMT(142.1,+($G(Y)),0)),"^",1)'=$G(X) K X
- S X=$G(X) Q X
- ROUT(X) ; Check Routine (required)
- S X=$G(X) K:X[""""!($A(X)=45) X Q:'$D(X) ""
- K:$L(X)>17!($L(X)<3)!'(X?1U1.7UN1";"1U1.7UN) X Q:'$D(X) ""
- I @("$L($T("_$P(X,";")_"^"_$P(X,";",2)_"))'>0") K X
- S X=$G(X) Q X
- TIML(X) ; Check Time Limits
- S X=$G(X) Q:X="1"!(X="Y") "Y" Q ""
- ABBR(X) ; Check Abbreviation
- S X=$G(X) S:X[""""!($A(X)=45) X="" S:$L(X)>4!($L(X)<2)!'(X?2.4UN) X="" Q X
- OCCL(X) ; Check Occurrence Limits
- S X=$G(X) Q:X="1"!(X="Y") "Y" Q ""
- LOCK(X) ; Check Lock
- S X=$G(X) S:X[""""!($A(X)=45) X="" S:$L(X)>30!($L(X)<1) X="" Q:'$L(X) ""
- S:'$D(^DIC(19.1,"B",X)) X="" Q X
- DHDN(X) ; Check Default Header Name
- S X=$G(X) S:X[""""!($A(X)=45) X="" S:$L(X)>20!($L(X)<2) X="" Q X
- HOSL(X) ; Check Hospital Locaiton Flag
- S X=$G(X) Q:X="1"!(X="Y") "Y" Q ""
- ICDT(X) ; Check ICD Text Flag
- S X=$G(X) Q:X="1"!(X="Y") "Y" Q ""
- PROV(X) ; Check Provider Narrative Flag
- S X=$G(X) Q:X="1"!(X="Y") "Y" Q ""
- PREF(X) ; Check Prefix
- S X=$G(X) N GMTS S GMTS=$$GET1^DID(142.1,13,,"LABEL") Q:'$L(GMTS) ""
- S:X[""""!($A(X)=45) X="" S:$L(X)>4!($L(X)<2) X="" S:$E(X,1,2)'?2U X="" S:X'?1U.UN X="" Q X
- CPTM(X) ; Check CPT Modifier Flag
- S X=$G(X) N GMTS S GMTS=$$GET1^DID(142.1,14,,"LABEL") Q:'$L(GMTS) ""
- Q:X="1"!(X="Y") "Y" Q ""
- DAF(X) ; Check Disable Flag
- S X=$G(X) Q:X="T" "T" Q:X="T" "P" Q ""
- OOM(X) ; Check Out of Order Message
- S X=$G(X) Q:$L(X)<3 "" Q:$L(X)>78 "" Q X
- Q
- GMTSXPD2 ; SLC/KER - Health Summary Dist (Component) ; 08/27/2002
- +1 ;;2.7;Health Summary;**35,56**;Oct 20, 1995
- +2 ;
- +3 ; External References
- +4 ; DBIA 1340 ^DIC(19.1,
- +5 ; DBIA 2052 $$GET1^DID
- +6 ;
- +7 QUIT
- +8 ; Check Input
- NAME(X) ; Check Name (required)
- +1 SET X=$GET(X)
- IF X[""""!($ASCII(X)=45)
- KILL X
- IF '$DATA(X)
- QUIT ""
- +2 IF $DATA(X)
- IF $LENGTH(X)>30!($LENGTH(X)<3)!'(X'?1P.E)
- KILL X
- +3 IF $LENGTH($GET(X))
- IF '$DATA(^GMT(142.1,+($GET(Y)),0))
- Begin DoDot:1
- +4 IF $DATA(^GMT(142.1,"B",X))
- KILL X
- IF '$DATA(X)
- QUIT
- IF +($GET(Y))'>0
- QUIT
- IF $PIECE($GET(^GMT(142.1,+($GET(Y)),0)),"^",1)'=$GET(X)
- KILL X
- End DoDot:1
- +5 SET X=$GET(X)
- QUIT X
- ROUT(X) ; Check Routine (required)
- +1 SET X=$GET(X)
- IF X[""""!($ASCII(X)=45)
- KILL X
- IF '$DATA(X)
- QUIT ""
- +2 IF $LENGTH(X)>17!($LENGTH(X)<3)!'(X?1U1.7UN1";"1U1.7UN)
- KILL X
- IF '$DATA(X)
- QUIT ""
- +3 IF @("$L($T("_$PIECE(X,";")_"^"_$PIECE(X,";",2)_"))'>0")
- KILL X
- +4 SET X=$GET(X)
- QUIT X
- TIML(X) ; Check Time Limits
- +1 SET X=$GET(X)
- IF X="1"!(X="Y")
- QUIT "Y"
- QUIT ""
- ABBR(X) ; Check Abbreviation
- +1 SET X=$GET(X)
- IF X[""""!($ASCII(X)=45)
- SET X=""
- IF $LENGTH(X)>4!($LENGTH(X)<2)!'(X?2.4UN)
- SET X=""
- QUIT X
- OCCL(X) ; Check Occurrence Limits
- +1 SET X=$GET(X)
- IF X="1"!(X="Y")
- QUIT "Y"
- QUIT ""
- LOCK(X) ; Check Lock
- +1 SET X=$GET(X)
- IF X[""""!($ASCII(X)=45)
- SET X=""
- IF $LENGTH(X)>30!($LENGTH(X)<1)
- SET X=""
- IF '$LENGTH(X)
- QUIT ""
- +2 IF '$DATA(^DIC(19.1,"B",X))
- SET X=""
- QUIT X
- DHDN(X) ; Check Default Header Name
- +1 SET X=$GET(X)
- IF X[""""!($ASCII(X)=45)
- SET X=""
- IF $LENGTH(X)>20!($LENGTH(X)<2)
- SET X=""
- QUIT X
- HOSL(X) ; Check Hospital Locaiton Flag
- +1 SET X=$GET(X)
- IF X="1"!(X="Y")
- QUIT "Y"
- QUIT ""
- ICDT(X) ; Check ICD Text Flag
- +1 SET X=$GET(X)
- IF X="1"!(X="Y")
- QUIT "Y"
- QUIT ""
- PROV(X) ; Check Provider Narrative Flag
- +1 SET X=$GET(X)
- IF X="1"!(X="Y")
- QUIT "Y"
- QUIT ""
- PREF(X) ; Check Prefix
- +1 SET X=$GET(X)
- NEW GMTS
- SET GMTS=$$GET1^DID(142.1,13,,"LABEL")
- IF '$LENGTH(GMTS)
- QUIT ""
- +2 IF X[""""!($ASCII(X)=45)
- SET X=""
- IF $LENGTH(X)>4!($LENGTH(X)<2)
- SET X=""
- IF $EXTRACT(X,1,2)'?2U
- SET X=""
- IF X'?1U.UN
- SET X=""
- QUIT X
- CPTM(X) ; Check CPT Modifier Flag
- +1 SET X=$GET(X)
- NEW GMTS
- SET GMTS=$$GET1^DID(142.1,14,,"LABEL")
- IF '$LENGTH(GMTS)
- QUIT ""
- +2 IF X="1"!(X="Y")
- QUIT "Y"
- QUIT ""
- DAF(X) ; Check Disable Flag
- +1 SET X=$GET(X)
- IF X="T"
- QUIT "T"
- IF X="T"
- QUIT "P"
- QUIT ""
- OOM(X) ; Check Out of Order Message
- +1 SET X=$GET(X)
- IF $LENGTH(X)<3
- QUIT ""
- IF $LENGTH(X)>78
- QUIT ""
- QUIT X
- +2 QUIT
