Difference between revisions of "ROUTINE C9CGMTSOBJ"

From VistApedia
Jump to: navigation, search
Line 1: Line 1:
 
__TOC__
 
__TOC__
 
<pre>
 
<pre>
 +
C9CGMTSOBJ * *  242 LINES,  10209 BYTES,  RSUM: 12810294/57868899 Page 1
 +
        UCI: EHR,EHR    Site: Central Regional HospitalMAY 7,2015@12:44
 +
</pre>
 +
== C9CGMTSOBJ^C9CGMTSOBJ ==
 +
<pre>
 +
  1 C9CGMTSOBJ --
 +
            ; SLC/KER - HS Object - Create/Test/Display  ; 01/06/2003
 +
  2 +1    ;;2.7;Health Summary;**58,63,LOCAL**;Oct 20, 1995;Build 1
 +
  3 +2    ;
 +
  4 +3    ; External References
 +
  5 +4    ;  DBIA  2320  $$DEL^%ZISH
 +
  6 +5    ;  DBIA  2320  $$FTG^%ZISH
 +
  7 +6    ;  DBIA  2320  $$PWD^%ZISH
 +
  8 +7    ;  DBIA  2320  CLOSE^%ZISH
 +
  9 +8    ;  DBIA  2320  OPEN^%ZISH
 +
10 +9    ;  DBIA 10006  ^DIC (file #142.5 and #2)
 +
11 +10    ;  DBIA 10013  ^DIK
 +
12 +11    ;  DBIA  2054  $$CREF^DILF
 +
13 +12    ;  DBIA  2054  $$OREF^DILF
 +
14 +13    ;  DBIA 10026  ^DIR
 +
15 +14    ;  DBIA 10103  $$NOW^XLFDT
 +
16 +15    ;
 +
17 +16    Q
 +
</pre>
 +
== MGR^C9CGMTSOBJ ==
 +
<pre>
 +
18 MGR    ; Create/Modify Health Summary Object (Manager)
 +
19 +1    N GMTSMGR S GMTSMGR="" G OBJ
 +
20 +2    ;
 +
</pre>
 +
== DEVOBJ^C9CGMTSOBJ ==
 +
<pre>
 +
21 DEVOBJ ; Create/Modify Health Summary Object (Developer)
 +
22 +1    N GMTSDEV S GMTSDEV=5000
 +
23 +2    ;
 +
24 OBJ    ; Create/Modify Health Summary Object
 +
25 +1    ;  Option:  GMTS OBJ ENTER/EDIT
 +
26 +2    ;            Create/Modify Health Summary Object
 +
27 +3    N BOLD,DA,DFN,DIC,DIE,DIR,DIROUT,DLAYGO,DR,DTOUT,DUOUT,GMP,GMTS
 +
28 +4    N GMTSBLK,GMTSCHD,GMTSCON,GMTSDEC,GMTSDEF,GMTSDIF,GMTSDLD,GMTSDT
 +
29 +5    N GMTSHDR,GMTSI,GMTSL,GMTSLBL,GMTSLEN,GMTSLIM,GMTSNEW,GMTSO,GMTSOBJ
 +
30 +6    N GMTSOBN,GMTSPER,GMTSPRO,GMTSPX1,GMTSPX2,GMTSQ,GMTSR,GMTSRDT,GMTSR
 +
            HD
 +
31 +7    N GMTST,GMTSTD,GMTSTIM,GMTSTYP,GMTSUNIT,GMTSUNT,GMTSV,GMTSVER,GMTSX
 +
32 +8    N IOINHI,IOINORM,NORM,OBJ,D,D0,D1,DI,DILN,X,Y
 +
33 +9    S DIC("S")="I +Y<50000000!(+Y>59999999)" K:+($G(GMTSDEV))=5000 DIC(
 +
            "S")
 +
34 +10    D OBJ^GMTSOBA
 +
35 +11    Q
 +
36 +12    ;
 +
</pre>
 +
== CRE^C9CGMTSOBJ ==
 +
<pre>
 +
37 CRE(NAME) --
 +
            ; Create/Modify Health Summary Object named 'NAME'
 +
38 +1    ;
 +
39 +2    ;  Input    NAME    Name of Object to Create or Edit
 +
40 +3    ;  Output  Internal Entry Number of Object file if
 +
41 +4    ;            found or created
 +
42 +5    ;
 +
43 +6    N X,BOLD,DA,DFN,DIC,DIE,DIR,DIROUT,DLAYGO,DR,DTOUT,DUOUT,GMP,GMTS
 +
44 +7    N GMTSBLK,GMTSCHD,GMTSCON,GMTSDEC,GMTSDEF,GMTSDIF,GMTSDLD,GMTSDT
 +
45 +8    N GMTSHDR,GMTSI,GMTSL,GMTSLBL,GMTSLEN,GMTSLIM,GMTSNAM,GMTSNEW,GMTSO
 +
46 +9    N GMTSOBJ,GMTSOBN,GMTSPER,GMTSPRO,GMTSPX1,GMTSPX2,GMTSQ,GMTSR,GMTSR
 +
            DT
 +
47 +10    N GMTSRHD,GMTST,GMTSTD,GMTSTIM,GMTSTYP,GMTSUNIT,GMTSUNT,GMTSV,GMTSV
 +
            ER
 +
48 +11    N GMTSX,IOINHI,IOINORM,NORM,OBJ,D,D0,D1,DI,DILN,Y S GMTSNAM=$G(NAME
 +
            )
 +
49 +12    S:'$L(GMTSNAM) GMTSNAM=$$NAME^C9CGMTSOBV("") Q:'$L(GMTSNAM) -1
 +
50 +13    S DIC("S")="I +Y<50000000!(+Y>59999999)" K:+($G(GMTSDEV))=5000 DIC(
 +
            "S")
 +
51 +14    D OBJ^GMTSOBA K DIC S DIC="^GMT(142.5,",DIC(0)="XM",X=GMTSNAM
 +
52 +15    D ^DIC,CRD^C9CGMTSOBV(+Y),^DIC S X=+Y S:X'>0 X=-1
 +
53 +16    Q X
 +
54 +17    ;
 +
</pre>
 +
== TYPE^C9CGMTSOBJ ==
 +
<pre>
 +
55 TYPE(NAME) --
 +
            ; Edit Health Summary Type named NAME
 +
56 +1    ;
 +
57 +2    ;  Input    NAME    Name of Health Summary Type to Edit
 +
58 +3    ;  Output  None
 +
59 +4    D ET^GMTSOBA2($G(NAME))
 +
60 +5    Q
 +
61 +6    ;
 +
62 INQ    ; Inquire to Health Summary Object
 +
63 +1    ;  Option:  GMTS OBJ INQ
 +
64 +2    ;            Health Summary Object Inquiry
 +
65 +3    N DIC,D,D0,D1,DI,DILN,GMTSP,GMTSPL,GMTSL,GMTSEXIT
 +
66 +4    S U="^",DIC="^GMT(142.5,",DIC(0)="AEMQF",GMTSP=$G(IOST),GMTSPL=0,GM
 +
            TSL=0,GMTSEXIT=0
 +
67 +5    S DIC("A")=" Select Health Summary Object:  " D ^DIC K DIC("A")
 +
68 +6    W:$L($G(IOF)) @IOF W:+($G(Y))>0 ! D:+($G(Y))>0 SO^C9CGMTSOBS(+Y),CO
 +
            NT^C9CGMTSOBS
 +
69 +7    Q
 +
70 +8    ;
 +
</pre>
 +
== DEVDEL^C9CGMTSOBJ ==
 +
<pre>
 +
71 DEVDEL ; Delete Health Summary Object (Developer)
 +
72 +1    N GMTSDEV S GMTSDEV=5000
 +
73 +2    ;
 +
</pre>
 +
== DEL^C9CGMTSOBJ ==
 +
<pre>
 +
74 DEL    ; Delete Health Summary Object
 +
75 +1    ;  Option:  GMTS OBJ DELETE
 +
76 +2    ;            Delete Health Summary Object
 +
77 +3    N D,D0,D1,DI,DILN,DIC,DIR,DIK,DA,X,Y,GMTSP,GMTSPL,GMTSL,GMTSEXIT S
 +
            U="^",(DIK,DIC)="^GMT(142.5,",DIC(0)="AEMQF"
 +
78 +4    I $$UACT^GMTSU2(+($G(DUZ)))'>0 W !!," >> You are not authorized to
 +
            delete a Health Summary Object." Q
 +
79 +5    S DIC("A")=" Select Health Summary Object to Delete:  "
 +
80 +6    S DIC("S")="I (+($P($G(^GMT(142.5,+Y,0)),""^"",17))=0!(+($P($G(^GMT
 +
            (142.5,+Y,0)),""^"",17))=+($G(DUZ))))&(+($P($G(^GMT(142.5,+Y,0)),"
 +
            "^"",20))'>0)"
 +
81 +7    S:'$D(GMTSDEV) DIC("S")="I +($$DEL^C9CGMTSOBV(+Y))>0"
 +
82 +8    K:$D(GMTSDEV) DIC("S") I +($G(Y))>50000000,+($G(Y))<59999999,'$D(GM
 +
            TSDEV) W !,"    Can not delete a nationally exported object." Q
 +
83 +9    D ^DIC I +($G(Y))>0 D
 +
84 +10    . N GMTSDEL,GMTSO S GMTSDEL="" W ! D SO^C9CGMTSOBS(+Y)
 +
85 +11    . S DA=+Y,GMTSO=$P($G(^GMT(142.5,+Y,0)),"^",1)
 +
86 +12    . S:$L(GMTSO) GMTSO=" """_GMTSO_""""
 +
87 +13    . S DIR("B")="NO",DIR(0)="YAO",DIR("A")=" Delete Health Summary Obj
 +
            ect"_GMTSO_"?  "
 +
88 +14    . S (DIR("?"),DIR("??"))="    Enter either 'Y' or 'N'."
 +
89 +15    . W ! D ^DIR I +Y>0 D ^DIK
 +
90 +16    . I '$D(^GMT(142.5,+DA,0)) W !,"    <deleted>",!
 +
91 +17    Q
 +
92 +18    ;
 +
</pre>
 +
== TEST^C9CGMTSOBJ ==
 +
<pre>
 +
93 TEST  ; Test Health Summary Object
 +
94 +1    ;  Option:  GMTS OBJ TEST
 +
95 +2    ;            Test a Health Summary Object
 +
96 +3    N BOLD,D,D0,D1,DI,DILN,DA,DFN,DIC,DIE,DIR,DIROUT,DLAYGO,DR,DTOUT
 +
97 +4    N DUOUT,GMP,GMTS,GMTSBLK,GMTSCHD,GMTSCON,GMTSDEC,GMTSDEF,GMTSDIF
 +
98 +5    N GMTSDLD,GMTSDT,GMTSHDR,GMTSI,GMTSL,GMTSLBL,GMTSLEN,GMTSLIM,GMTSNE
 +
            W
 +
99 +6    N GMTSO,GMTSOBJ,GMTSOBN,GMTSPER,GMTSPRO,GMTSPX1,GMTSPX2,GMTSQ,GMTSR
 +
100 +7    N GMTSRDT,GMTSRHD,GMTST,GMTSTD,GMTSTIM,GMTSTYP,GMTSUNIT,GMTSUNT
 +
101 +8    N GMTSV,GMTSVER,GMTSX,IOINHI,IOINORM,NORM,OBJ,X,Y
 +
102 +9    D PAT^C9CGMTSOBV I +($G(DFN))'>0 W !!,"    No Patient Selected" Q
 +
103 +10    S GMTSL=$G(IOSL) N IOSL S IOSL=99999999
 +
104 +11    S DIC="^GMT(142.5,",DIC("A")=" Select HEALTH SUMMARY OBJECT to test
 +
            :  ",U="^"
 +
105 +12    S DIC(0)="AEMQ" K DLAYGO D ^DIC S GMTSOBJ=+($G(Y))
 +
106 +13    I +GMTSOBJ'>0 W !!,"    No Health Summary Object Selected" Q
 +
107 +14    K ^TMP("GMTSOBJ",$J,DFN) D GET(DFN,GMTSOBJ),DEV^C9CGMTSOBS
 +
108 +15    Q
 +
109 +16    ;
 +
</pre>
 +
== EXP^C9CGMTSOBJ ==
 +
<pre>
 +
110 EXP    ; Export a Health Summary Object
 +
111 +1    D EN^C9CGMTSOBE
 +
112 +2    Q
 +
113 +3    ;
 +
</pre>
 +
== INS^C9CGMTSOBJ ==
 +
<pre>
 +
114 INS    ; Install Imported Health Summary Object
 +
115 +1    D EN^C9CGMTSOBI
 +
116 +2    Q
 +
117 +3    ;
 +
</pre>
 +
== GET^C9CGMTSOBJ ==
 +
<pre>
 +
118 GET(DFN,OBJ) --
 +
            ; Get Health Summary Object
 +
119 +1    ;
 +
120 +2    ;  Input    DFN    IEN for Patient (#2)
 +
121 +3    ;            OBJ    IEN for Health Summary Object (#142.5)
 +
122 +4    ;
 +
123 +5    ;  Output  Global array of Health Summary data
 +
124 +6    ;
 +
125 +7    ;                    ^TMP("GMTSOBJ",$J,DFN,#,0)
 +
126 +8    ;
 +
127 +9    K ^TMP("GMTSOBJ",$J,DFN) D ARY(DFN,OBJ,$NA(^TMP("GMTSOBJ",$J,DFN)))
 +
128 +10    Q
 +
129 +11    ;
 +
</pre>
 +
== TIU^C9CGMTSOBJ ==
 +
<pre>
 +
130 TIU(DFN,OBJ,C9CMARK,C9CORDER) --
 +
            ; Get Health Summary Object (TIU)
 +
131 +1    ;
 +
132 +2    ;  Input    DFN    IEN for Patient (#2)
 +
133 +3    ;            OBJ    IEN for Health Summary Object (#142.5)
 +
134 +4    ;            C9CMARK  IEN for CRH MARKER TEXT (#300001)
 +
135 +5    ;            ORDER  == "CHRONOLOGICAL" if objects are ordered
 +
136 +6    ;                    by earliest first- order,
 +
137 +7    ;                    == undefined or "" (empty) if most recent firs
 +
            t
 +
138 +8    ;
 +
139 +9    ;  Output  Global array of Health Summary data
 +
140 +10    ;
 +
141 +11    ;                    ^TMP("TIUHSOBJ",$J,"FGBL",0)
 +
142 +12    ;                    ^TMP("TIUHSOBJ",$J,"FGBL",#,0)
 +
143 +13    ;
 +
144 +14    N ERRMSG,HSTYPE
 +
145 +15    ;;BEGIN CRH DJW 7/2012 - admit Marker Text
 +
146 +16    I $G(C9CMARK)]"" D
 +
147 +17    . I C9CMARK'=+C9CMARK S C9CMARK=$O(^DIZ(300001,"B",C9CMARK,""))
 +
148 +18    . I C9CMARK=+C9CMARK K:$D(^DIZ(300001,C9CMARK,0))[0 C9CMARK Q  ; in
 +
            put is IEN
 +
149 +19    . K C9CMARK Q  ;if not a good IEN, kill off
 +
150 +20    S C9CMADM=$$MSTRECADM(DFN)
 +
151 +21    ;;END CRH
 +
152 +22    S HSTYPE=$P($G(^GMT(142.5,OBJ,0)),U,3)
 +
153 +23    I $G(HSTYPE)="" Q "No Health Summary Report Found"
 +
154 +24    I $D(^GMT(142,HSTYPE,1))'>0 D  Q ERRMSG
 +
155 +25    . S ERRMSG="There are no components in the Health Summary Type:  "_
 +
            $P($G(^GMT(142,HSTYPE,0)),U)
 +
156 +26    K ^TMP("TIUHSOBJ",$J) D ARY(DFN,OBJ,$NA(^TMP("TIUHSOBJ",$J,"FGBL"))
 +
            )
 +
157 +27    Q:+($G(^TMP("TIUHSOBJ",$J,"FGBL",0)))>0 "~@"_$NA(^TMP("TIUHSOBJ",$J
 +
            ,"FGBL"))
 +
158 +28    Q "No Health Summary Report Found"
 +
</pre>
 +
== MSTRECADM^C9CGMTSOBJ ==
 +
<pre>
 +
159 MSTRECADM(DFN) --
 +
            ;
 +
160 +1    N (DUZ,U,DT,DFN) N VAROOT,INDATA,VAHOW,VAIP
 +
161 +2    SET VAROOT="INDATA",VAHOW=2,VAIP("D")="LAST"
 +
162 +3    DO IN5^VADPT
 +
163 +4    Q $P(INDATA(13,1),U)
 +
164 +5    ;
 +
</pre>
 +
== ARY^C9CGMTSOBJ ==
 +
<pre>
 +
165 ARY(DFN,OBJ,ROOT) --
 +
            ; Build Array ROOT
 +
166 +1    ;
 +
167 +2    ;  Input    DFN    IEN for Patient (#2)
 +
168 +3    ;            OBJ    IEN for Health Summary Object (#142.5)
 +
169 +4    ;            ROOT    Closed root (global or local array)
 +
170 +5    ;
 +
171 +6    ;  Output  Array of Health Summary data in ROOT
 +
172 +7    ;
 +
173 +8    N GMTSBLK,GMTSFILE,GMTSHFN,GMTSNC,GMTSNCT,GMTSND,GMTSNDT,GMTSNN,GMT
 +
            SIOM
 +
174 +9    N GMTSPATH,GMTSPRE,GMTSRT,GMTSRTO,GMTSRTC,GMTSRNN,GMTSRNC,GMTS0,POP
 +
            ,X,Y
 +
175 +10    Q:$G(^GMT(142.5,+($G(OBJ)),0))=""  S GMTSRT=$G(ROOT)
 +
176 +11    Q:'$L(GMTSRT)  Q:$E(GMTSRT,1)'="^"&($E(GMTSRT,1)'?1U)
 +
177 +12    S GMTSRTO=$$OREF^DILF(GMTSRT),GMTSRTC=$$CREF^DILF(GMTSRT)
 +
178 +13    Q:'$L(GMTSRTO)  Q:'$L(GMTSRTC)  Q:'$L($TR(GMTSRTC,")",""))
 +
179 +14    Q:$E(GMTSRTO,$L(GMTSRTO))'=","&($E(GMTSRTO,$L(GMTSRTO))'="(")
 +
180 +15    Q:GMTSRTO'[$TR(GMTSRTC,")","")  S GMTS0=GMTSRTO_"0)"
 +
181 +16    S GMTSPATH=$$PWD^%ZISH,GMTSFILE=$J_$TR($$NOW^XLFDT,".","")_".DAT"
 
182 +17    D OPEN^%ZISH("WRITEFILE",GMTSPATH,GMTSFILE,"W"),DIS(+($G(DFN)),+($G
 
182 +17    D OPEN^%ZISH("WRITEFILE",GMTSPATH,GMTSFILE,"W"),DIS(+($G(DFN)),+($G
 
             (OBJ)))
 
             (OBJ)))

Revision as of 16:57, 7 May 2015

C9CGMTSOBJ * *  242 LINES,  10209 BYTES,  RSUM: 12810294/57868899 Page 1
        UCI: EHR,EHR    Site: Central Regional HospitalMAY 7,2015@12:44

C9CGMTSOBJ^C9CGMTSOBJ

  1 C9CGMTSOBJ --
            ; SLC/KER - HS Object - Create/Test/Display   ; 01/06/2003
  2 +1     ;;2.7;Health Summary;**58,63,LOCAL**;Oct 20, 1995;Build 1
  3 +2     ;
  4 +3     ; External References
  5 +4     ;   DBIA  2320  $$DEL^%ZISH
  6 +5     ;   DBIA  2320  $$FTG^%ZISH
  7 +6     ;   DBIA  2320  $$PWD^%ZISH
  8 +7     ;   DBIA  2320  CLOSE^%ZISH
  9 +8     ;   DBIA  2320  OPEN^%ZISH
 10 +9     ;   DBIA 10006  ^DIC (file #142.5 and #2)
 11 +10    ;   DBIA 10013  ^DIK
 12 +11    ;   DBIA  2054  $$CREF^DILF
 13 +12    ;   DBIA  2054  $$OREF^DILF
 14 +13    ;   DBIA 10026  ^DIR
 15 +14    ;   DBIA 10103  $$NOW^XLFDT
 16 +15    ;
 17 +16    Q

MGR^C9CGMTSOBJ

 18 MGR    ; Create/Modify Health Summary Object (Manager)
 19 +1     N GMTSMGR S GMTSMGR="" G OBJ
 20 +2     ;

DEVOBJ^C9CGMTSOBJ

 21 DEVOBJ ; Create/Modify Health Summary Object (Developer)
 22 +1     N GMTSDEV S GMTSDEV=5000
 23 +2     ;
 24 OBJ    ; Create/Modify Health Summary Object
 25 +1     ;   Option:  GMTS OBJ ENTER/EDIT
 26 +2     ;            Create/Modify Health Summary Object
 27 +3     N BOLD,DA,DFN,DIC,DIE,DIR,DIROUT,DLAYGO,DR,DTOUT,DUOUT,GMP,GMTS
 28 +4     N GMTSBLK,GMTSCHD,GMTSCON,GMTSDEC,GMTSDEF,GMTSDIF,GMTSDLD,GMTSDT
 29 +5     N GMTSHDR,GMTSI,GMTSL,GMTSLBL,GMTSLEN,GMTSLIM,GMTSNEW,GMTSO,GMTSOBJ
 30 +6     N GMTSOBN,GMTSPER,GMTSPRO,GMTSPX1,GMTSPX2,GMTSQ,GMTSR,GMTSRDT,GMTSR
            HD
 31 +7     N GMTST,GMTSTD,GMTSTIM,GMTSTYP,GMTSUNIT,GMTSUNT,GMTSV,GMTSVER,GMTSX
 32 +8     N IOINHI,IOINORM,NORM,OBJ,D,D0,D1,DI,DILN,X,Y
 33 +9     S DIC("S")="I +Y<50000000!(+Y>59999999)" K:+($G(GMTSDEV))=5000 DIC(
            "S")
 34 +10    D OBJ^GMTSOBA
 35 +11    Q
 36 +12    ;

CRE^C9CGMTSOBJ

 37 CRE(NAME) --
            ; Create/Modify Health Summary Object named 'NAME'
 38 +1     ;
 39 +2     ;   Input    NAME    Name of Object to Create or Edit
 40 +3     ;   Output   Internal Entry Number of Object file if
 41 +4     ;            found or created
 42 +5     ;
 43 +6     N X,BOLD,DA,DFN,DIC,DIE,DIR,DIROUT,DLAYGO,DR,DTOUT,DUOUT,GMP,GMTS
 44 +7     N GMTSBLK,GMTSCHD,GMTSCON,GMTSDEC,GMTSDEF,GMTSDIF,GMTSDLD,GMTSDT
 45 +8     N GMTSHDR,GMTSI,GMTSL,GMTSLBL,GMTSLEN,GMTSLIM,GMTSNAM,GMTSNEW,GMTSO
 46 +9     N GMTSOBJ,GMTSOBN,GMTSPER,GMTSPRO,GMTSPX1,GMTSPX2,GMTSQ,GMTSR,GMTSR
            DT
 47 +10    N GMTSRHD,GMTST,GMTSTD,GMTSTIM,GMTSTYP,GMTSUNIT,GMTSUNT,GMTSV,GMTSV
            ER
 48 +11    N GMTSX,IOINHI,IOINORM,NORM,OBJ,D,D0,D1,DI,DILN,Y S GMTSNAM=$G(NAME
            )
 49 +12    S:'$L(GMTSNAM) GMTSNAM=$$NAME^C9CGMTSOBV("") Q:'$L(GMTSNAM) -1
 50 +13    S DIC("S")="I +Y<50000000!(+Y>59999999)" K:+($G(GMTSDEV))=5000 DIC(
            "S")
 51 +14    D OBJ^GMTSOBA K DIC S DIC="^GMT(142.5,",DIC(0)="XM",X=GMTSNAM
 52 +15    D ^DIC,CRD^C9CGMTSOBV(+Y),^DIC S X=+Y S:X'>0 X=-1
 53 +16    Q X
 54 +17    ;

TYPE^C9CGMTSOBJ

 55 TYPE(NAME) --
            ; Edit Health Summary Type named NAME
 56 +1     ;
 57 +2     ;   Input    NAME    Name of Health Summary Type to Edit
 58 +3     ;   Output   None
 59 +4     D ET^GMTSOBA2($G(NAME))
 60 +5     Q
 61 +6     ;
 62 INQ    ; Inquire to Health Summary Object
 63 +1     ;   Option:  GMTS OBJ INQ
 64 +2     ;            Health Summary Object Inquiry
 65 +3     N DIC,D,D0,D1,DI,DILN,GMTSP,GMTSPL,GMTSL,GMTSEXIT
 66 +4     S U="^",DIC="^GMT(142.5,",DIC(0)="AEMQF",GMTSP=$G(IOST),GMTSPL=0,GM
            TSL=0,GMTSEXIT=0
 67 +5     S DIC("A")=" Select Health Summary Object:  " D ^DIC K DIC("A")
 68 +6     W:$L($G(IOF)) @IOF W:+($G(Y))>0 ! D:+($G(Y))>0 SO^C9CGMTSOBS(+Y),CO
            NT^C9CGMTSOBS
 69 +7     Q
 70 +8     ;

DEVDEL^C9CGMTSOBJ

 71 DEVDEL ; Delete Health Summary Object (Developer)
 72 +1     N GMTSDEV S GMTSDEV=5000
 73 +2     ;

DEL^C9CGMTSOBJ

 74 DEL    ; Delete Health Summary Object
 75 +1     ;   Option:  GMTS OBJ DELETE
 76 +2     ;            Delete Health Summary Object
 77 +3     N D,D0,D1,DI,DILN,DIC,DIR,DIK,DA,X,Y,GMTSP,GMTSPL,GMTSL,GMTSEXIT S
            U="^",(DIK,DIC)="^GMT(142.5,",DIC(0)="AEMQF"
 78 +4     I $$UACT^GMTSU2(+($G(DUZ)))'>0 W !!," >> You are not authorized to
            delete a Health Summary Object." Q
 79 +5     S DIC("A")=" Select Health Summary Object to Delete:  "
 80 +6     S DIC("S")="I (+($P($G(^GMT(142.5,+Y,0)),""^"",17))=0!(+($P($G(^GMT
            (142.5,+Y,0)),""^"",17))=+($G(DUZ))))&(+($P($G(^GMT(142.5,+Y,0)),"
            "^"",20))'>0)"
 81 +7     S:'$D(GMTSDEV) DIC("S")="I +($$DEL^C9CGMTSOBV(+Y))>0"
 82 +8     K:$D(GMTSDEV) DIC("S") I +($G(Y))>50000000,+($G(Y))<59999999,'$D(GM
            TSDEV) W !,"     Can not delete a nationally exported object." Q
 83 +9     D ^DIC I +($G(Y))>0 D
 84 +10    . N GMTSDEL,GMTSO S GMTSDEL="" W ! D SO^C9CGMTSOBS(+Y)
 85 +11    . S DA=+Y,GMTSO=$P($G(^GMT(142.5,+Y,0)),"^",1)
 86 +12    . S:$L(GMTSO) GMTSO=" """_GMTSO_""""
 87 +13    . S DIR("B")="NO",DIR(0)="YAO",DIR("A")=" Delete Health Summary Obj
            ect"_GMTSO_"?  "
 88 +14    . S (DIR("?"),DIR("??"))="     Enter either 'Y' or 'N'."
 89 +15    . W ! D ^DIR I +Y>0 D ^DIK
 90 +16    . I '$D(^GMT(142.5,+DA,0)) W !,"     <deleted>",!
 91 +17    Q
 92 +18    ;

TEST^C9CGMTSOBJ

 93 TEST   ; Test Health Summary Object
 94 +1     ;   Option:  GMTS OBJ TEST
 95 +2     ;            Test a Health Summary Object
 96 +3     N BOLD,D,D0,D1,DI,DILN,DA,DFN,DIC,DIE,DIR,DIROUT,DLAYGO,DR,DTOUT
 97 +4     N DUOUT,GMP,GMTS,GMTSBLK,GMTSCHD,GMTSCON,GMTSDEC,GMTSDEF,GMTSDIF
 98 +5     N GMTSDLD,GMTSDT,GMTSHDR,GMTSI,GMTSL,GMTSLBL,GMTSLEN,GMTSLIM,GMTSNE
            W
 99 +6     N GMTSO,GMTSOBJ,GMTSOBN,GMTSPER,GMTSPRO,GMTSPX1,GMTSPX2,GMTSQ,GMTSR
100 +7     N GMTSRDT,GMTSRHD,GMTST,GMTSTD,GMTSTIM,GMTSTYP,GMTSUNIT,GMTSUNT
101 +8     N GMTSV,GMTSVER,GMTSX,IOINHI,IOINORM,NORM,OBJ,X,Y
102 +9     D PAT^C9CGMTSOBV I +($G(DFN))'>0 W !!,"    No Patient Selected" Q
103 +10    S GMTSL=$G(IOSL) N IOSL S IOSL=99999999
104 +11    S DIC="^GMT(142.5,",DIC("A")=" Select HEALTH SUMMARY OBJECT to test
            :  ",U="^"
105 +12    S DIC(0)="AEMQ" K DLAYGO D ^DIC S GMTSOBJ=+($G(Y))
106 +13    I +GMTSOBJ'>0 W !!,"    No Health Summary Object Selected" Q
107 +14    K ^TMP("GMTSOBJ",$J,DFN) D GET(DFN,GMTSOBJ),DEV^C9CGMTSOBS
108 +15    Q
109 +16    ;

EXP^C9CGMTSOBJ

110 EXP    ; Export a Health Summary Object
111 +1     D EN^C9CGMTSOBE
112 +2     Q
113 +3     ;

INS^C9CGMTSOBJ

114 INS    ; Install Imported Health Summary Object
115 +1     D EN^C9CGMTSOBI
116 +2     Q
117 +3     ;

GET^C9CGMTSOBJ

118 GET(DFN,OBJ) --
            ; Get Health Summary Object
119 +1     ;
120 +2     ;   Input    DFN     IEN for Patient (#2)
121 +3     ;            OBJ     IEN for Health Summary Object (#142.5)
122 +4     ;
123 +5     ;   Output   Global array of Health Summary data
124 +6     ;
125 +7     ;                    ^TMP("GMTSOBJ",$J,DFN,#,0)
126 +8     ;
127 +9     K ^TMP("GMTSOBJ",$J,DFN) D ARY(DFN,OBJ,$NA(^TMP("GMTSOBJ",$J,DFN)))
128 +10    Q
129 +11    ;

TIU^C9CGMTSOBJ

130 TIU(DFN,OBJ,C9CMARK,C9CORDER) --
            ; Get Health Summary Object (TIU)
131 +1     ;
132 +2     ;   Input    DFN     IEN for Patient (#2)
133 +3     ;            OBJ     IEN for Health Summary Object (#142.5)
134 +4     ;            C9CMARK  IEN for CRH MARKER TEXT (#300001)
135 +5     ;            ORDER   == "CHRONOLOGICAL" if objects are ordered
136 +6     ;                    by earliest first- order,
137 +7     ;                    == undefined or "" (empty) if most recent firs
            t
138 +8     ;
139 +9     ;   Output   Global array of Health Summary data
140 +10    ;
141 +11    ;                    ^TMP("TIUHSOBJ",$J,"FGBL",0)
142 +12    ;                    ^TMP("TIUHSOBJ",$J,"FGBL",#,0)
143 +13    ;
144 +14    N ERRMSG,HSTYPE
145 +15    ;;BEGIN CRH DJW 7/2012 - admit Marker Text
146 +16    I $G(C9CMARK)]"" D
147 +17    . I C9CMARK'=+C9CMARK S C9CMARK=$O(^DIZ(300001,"B",C9CMARK,""))
148 +18    . I C9CMARK=+C9CMARK K:$D(^DIZ(300001,C9CMARK,0))[0 C9CMARK Q  ; in
            put is IEN
149 +19    . K C9CMARK Q  ;if not a good IEN, kill off
150 +20    S C9CMADM=$$MSTRECADM(DFN)
151 +21    ;;END CRH
152 +22    S HSTYPE=$P($G(^GMT(142.5,OBJ,0)),U,3)
153 +23    I $G(HSTYPE)="" Q "No Health Summary Report Found"
154 +24    I $D(^GMT(142,HSTYPE,1))'>0 D  Q ERRMSG
155 +25    . S ERRMSG="There are no components in the Health Summary Type:  "_
            $P($G(^GMT(142,HSTYPE,0)),U)
156 +26    K ^TMP("TIUHSOBJ",$J) D ARY(DFN,OBJ,$NA(^TMP("TIUHSOBJ",$J,"FGBL"))
            )
157 +27    Q:+($G(^TMP("TIUHSOBJ",$J,"FGBL",0)))>0 "~@"_$NA(^TMP("TIUHSOBJ",$J
            ,"FGBL"))
158 +28    Q "No Health Summary Report Found"

MSTRECADM^C9CGMTSOBJ

159 MSTRECADM(DFN) --
            ;
160 +1     N (DUZ,U,DT,DFN) N VAROOT,INDATA,VAHOW,VAIP
161 +2     SET VAROOT="INDATA",VAHOW=2,VAIP("D")="LAST"
162 +3     DO IN5^VADPT
163 +4     Q $P(INDATA(13,1),U)
164 +5     ;

ARY^C9CGMTSOBJ

165 ARY(DFN,OBJ,ROOT) --
            ; Build Array ROOT
166 +1     ;
167 +2     ;   Input    DFN     IEN for Patient (#2)
168 +3     ;            OBJ     IEN for Health Summary Object (#142.5)
169 +4     ;            ROOT    Closed root (global or local array)
170 +5     ;
171 +6     ;   Output   Array of Health Summary data in ROOT
172 +7     ;
173 +8     N GMTSBLK,GMTSFILE,GMTSHFN,GMTSNC,GMTSNCT,GMTSND,GMTSNDT,GMTSNN,GMT
            SIOM
174 +9     N GMTSPATH,GMTSPRE,GMTSRT,GMTSRTO,GMTSRTC,GMTSRNN,GMTSRNC,GMTS0,POP
            ,X,Y
175 +10    Q:$G(^GMT(142.5,+($G(OBJ)),0))=""  S GMTSRT=$G(ROOT)
176 +11    Q:'$L(GMTSRT)  Q:$E(GMTSRT,1)'="^"&($E(GMTSRT,1)'?1U)
177 +12    S GMTSRTO=$$OREF^DILF(GMTSRT),GMTSRTC=$$CREF^DILF(GMTSRT)
178 +13    Q:'$L(GMTSRTO)  Q:'$L(GMTSRTC)  Q:'$L($TR(GMTSRTC,")",""))
179 +14    Q:$E(GMTSRTO,$L(GMTSRTO))'=","&($E(GMTSRTO,$L(GMTSRTO))'="(")
180 +15    Q:GMTSRTO'[$TR(GMTSRTC,")","")  S GMTS0=GMTSRTO_"0)"
181 +16    S GMTSPATH=$$PWD^%ZISH,GMTSFILE=$J_$TR($$NOW^XLFDT,".","")_".DAT"
182 +17    D OPEN^%ZISH("WRITEFILE",GMTSPATH,GMTSFILE,"W"),DIS(+($G(DFN)),+($G
            (OBJ)))
183 +18    D CLOSE^%ZISH("WRITEFILE") K ^TMP("GMTSOBJ",$J,"OGBL")
184 +19    S Y=$$FTG^%ZISH(GMTSPATH,GMTSFILE,$NA(^TMP("GMTSOBJ",$J,"OGBL",1)),
            4)
185 +20    S GMTSHFN(GMTSFILE)="",Y=$$DEL^%ZISH(GMTSPATH,$NA(GMTSHFN))
186 +21    S (GMTSBLK,GMTSNCT,GMTSPRE)=0 S GMTSNN="^TMP(""GMTSOBJ"","_$J_",""O
            GBL"")"
187 +22    S GMTSNC="^TMP(""GMTSOBJ"","_$J_",""OGBL"","
188 +23    F  S GMTSNN=$Q(@GMTSNN) Q:GMTSNN=""!(GMTSNN'[GMTSNC)  D
189 +24    . S GMTSND=@GMTSNN,GMTSNDT=$$TRIM^C9CGMTSOBV(GMTSND)
190 +25    . I 'GMTSBLK S:GMTSNDT="" GMTSBLK=1 Q:GMTSBLK
191 +26    . Q:GMTSPRE&(GMTSNDT="")  S GMTSNCT=GMTSNCT+1
192 +27    . S @(GMTSRTO_GMTSNCT_",0)")=GMTSND
193 +28    . S @GMTS0=$G(@GMTS0)+1
194 +29    . S GMTSPRE=$S(GMTSNDT="":1,1:0)
195 +30    K ^TMP("GMTSOBJ",$J,"OGBL")
196 +31    Q
197 +32    ;

SHOW^C9CGMTSOBJ

198 SHOW(X) ; Show a Health Summary Object Definition
199 +1     ;
200 +2     ;   Input    X       IEN for Health Summary Object (#142.5)
201 +3     ;
202 +4     D SO^C9CGMTSOBS(+($G(X)))
203 +5     Q

EXTRACT^C9CGMTSOBJ

204 EXTRACT(X,ARY) --
            ; Show a Health Summary Object Definition
205 +1     ;
206 +2     ;   Input    X       IEN for Health Summary Object (#142.5)
207 +3     ;   Output   ARY()   Array of fields and values
208 +4     ;                    (passed by reference)
209 +5     ;
210 +6     ;      ARY(IEN,<field #>,"I") = Internal Value
211 +7     ;      ARY(IEN,<field #>,"E") = External Value
212 +8     ;      ARY(IEN,<field #>,"NAME") = Field Name
213 +9     ;      ARY(IEN,<field #>,"PROMT") = Mixed Case of Field Name
214 +10    ;
215 +11    D GET^C9CGMTSOBS2(+($G(X)),.ARY)
216 +12    Q

DEF^C9CGMTSOBJ

217 DEF(X,ARY) --
            ; Extract a Health Summary Object Definition
218 +1     ;
219 +2     ;   Input    X       IEN for Health Summary Object (#142.5)
220 +3     ;   Output   ARY()   Array of fields and values
221 +4     ;                    (passed by reference)
222 +5     ;
223 +6     ;      ARY("D",0) = # of lines in Definition
224 +7     ;      ARY("D",#) = Definition Text
225 +8     ;      ARY("E",0) = # of lines in Example
226 +9     ;      ARY("E",#) = Example Text
227 +10    ;
228 +11    D DEF^C9CGMTSOBS(+($G(X)),.ARY)
229 +12    Q

DIS^C9CGMTSOBJ

230 DIS(DFN,OBJ) --
            ; Display Object
231 +1     ;
232 +2     ;   Input    DFN     IEN for Patient (#2)
233 +3     ;            OBJ     IEN for Health Summary Object (#142.5)
234 +4     ;
235 +5     ;   Output   Display of Health Summary data
236 +6     ;
237 +7     D DIS^C9CGMTSOBS2(+($G(DFN)),$G(OBJ))
238 +8     Q
239 STMP   ; Show TMP
240 +1     N GMTSNN,GMTSNC S GMTSNN="^TMP(""GMTSOBJ"","_$J_",""OGBL"")",GMTSNC
            ="^TMP(""GMTSOBJ"","_$J_",""OGBL"","
241 +2     F  S GMTSNN=$Q(@GMTSNN) Q:GMTSNN=""!(GMTSNN'[GMTSNC)  W !,GMTSNN,"=
            ",@GMTSNN
242 +3     Q
Retrieved from "https://vistapedia.com/index.php?title=ROUTINE_C9CGMTSOBJ&oldid=16167"