source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSXPD2.m@ 1651

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1GMTSXPD2 ; SLC/KER - Health Summary Dist (Component) ; 08/27/2002
2 ;;2.7;Health Summary;**35,56**;Oct 20, 1995
3 ;
4 ; External References
5 ; DBIA 1340 ^DIC(19.1,
6 ; DBIA 2052 $$GET1^DID
7 ;
8 Q
9 ; Check Input
10NAME(X) ; Check Name (required)
11 S X=$G(X) K:X[""""!($A(X)=45) X Q:'$D(X) ""
12 I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
13 I $L($G(X)),'$D(^GMT(142.1,+($G(Y)),0)) D
14 . 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
15 S X=$G(X) Q X
16ROUT(X) ; Check Routine (required)
17 S X=$G(X) K:X[""""!($A(X)=45) X Q:'$D(X) ""
18 K:$L(X)>17!($L(X)<3)!'(X?1U1.7UN1";"1U1.7UN) X Q:'$D(X) ""
19 I @("$L($T("_$P(X,";")_"^"_$P(X,";",2)_"))'>0") K X
20 S X=$G(X) Q X
21TIML(X) ; Check Time Limits
22 S X=$G(X) Q:X="1"!(X="Y") "Y" Q ""
23ABBR(X) ; Check Abbreviation
24 S X=$G(X) S:X[""""!($A(X)=45) X="" S:$L(X)>4!($L(X)<2)!'(X?2.4UN) X="" Q X
25OCCL(X) ; Check Occurrence Limits
26 S X=$G(X) Q:X="1"!(X="Y") "Y" Q ""
27LOCK(X) ; Check Lock
28 S X=$G(X) S:X[""""!($A(X)=45) X="" S:$L(X)>30!($L(X)<1) X="" Q:'$L(X) ""
29 S:'$D(^DIC(19.1,"B",X)) X="" Q X
30DHDN(X) ; Check Default Header Name
31 S X=$G(X) S:X[""""!($A(X)=45) X="" S:$L(X)>20!($L(X)<2) X="" Q X
32HOSL(X) ; Check Hospital Locaiton Flag
33 S X=$G(X) Q:X="1"!(X="Y") "Y" Q ""
34ICDT(X) ; Check ICD Text Flag
35 S X=$G(X) Q:X="1"!(X="Y") "Y" Q ""
36PROV(X) ; Check Provider Narrative Flag
37 S X=$G(X) Q:X="1"!(X="Y") "Y" Q ""
38PREF(X) ; Check Prefix
39 S X=$G(X) N GMTS S GMTS=$$GET1^DID(142.1,13,,"LABEL") Q:'$L(GMTS) ""
40 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
41CPTM(X) ; Check CPT Modifier Flag
42 S X=$G(X) N GMTS S GMTS=$$GET1^DID(142.1,14,,"LABEL") Q:'$L(GMTS) ""
43 Q:X="1"!(X="Y") "Y" Q ""
44DAF(X) ; Check Disable Flag
45 S X=$G(X) Q:X="T" "T" Q:X="T" "P" Q ""
46OOM(X) ; Check Out of Order Message
47 S X=$G(X) Q:$L(X)<3 "" Q:$L(X)>78 "" Q X
48 Q
Note: See TracBrowser for help on using the repository browser.