Context Navigation

C0CVIT2.m@ 1800

Last change on this file since 1800 was 1586, checked in by Sam Habiel, 12 years ago

Changed license to AGPL. Some clean-up for XINDEX

Property svn:mergeinfo set to (toggle deleted branches)
/ccr/branches/ohum/o-old/p/C0CVIT2.m 1290
/ccr/branches/ohum/p/C0CVIT2.m 1291-1543
/ccr/branches/ohum/p/p/C0CVIT2.m 1287-1289

File size: 20.4 KB

Rev	Line
[1544]	1	C0CVIT2 ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
[1586]	2	;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
[1544]	3	;Copyright 2008,2009 George Lilly, University of Minnesota and others.
	4	;
[1586]	5	; This program is free software: you can redistribute it and/or modify
	6	; it under the terms of the GNU Affero General Public License as
	7	; published by the Free Software Foundation, either version 3 of the
	8	; License, or (at your option) any later version.
[1544]	9	;
[1586]	10	; This program is distributed in the hope that it will be useful,
	11	; but WITHOUT ANY WARRANTY; without even the implied warranty of
	12	; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	13	; GNU Affero General Public License for more details.
[1544]	14	;
[1586]	15	; You should have received a copy of the GNU Affero General Public License
	16	; along with this program. If not, see <http://www.gnu.org/licenses/>.
[1544]	17	;
	18	W "NO ENTRY FROM TOP",!
	19	Q
	20	;
	21	EXTRACT(VITXML,DFN,VITOUT) ; EXTRACT VITAL SIGNS INTO XML TEMPLATE
	22	; VITXML AND VITOUT ARE PASSED BY NAME SO GLOBALS CAN BE USED
	23	;
	24	; USE THE FOLLOWING TEMPLATE FOR THE RNF2 ARRAYS
	25	; THAT GET PASSED TO *GET ROUTINES
	26	;C0C[NAME]=$NA(^TMP("C0CCCR",$J,DFN,"C0C(NAME))
	27	N C0CVIT
	28	S C0CVIT=$NA(^TMP("C0CCCR",$J,DFN,"C0CVIT"))
	29	; USE THE FOLLOWING TEMPLATE FOR GETTING/GENERATING THE RNF2 ARRAYS
	30	; THAT GET INSERTED INTO THE XML TEMPLATE
	31	; D GET[VISTA/RPMS](DFN,C0CIMM) ; GET VARS
	32	I $$RPMS^C0CUTIL() D GETRPMS(DFN,C0CVIT) ; GET VARS
	33	I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D GETVISTA(DFN,C0CVIT)
	34	; USE THE FOLLOWING TEMPATE FOR MAPPING RNF2 ARRAYS TO XML TEMPLATE
	35	; D MAP([NAME]XML,C0C[NAME],[NAME]OUT) ;MAP RESULTS FOR PROCEDURES
	36	D MAP(VITXML,C0CVIT,VITOUT) ;MAP RESULTS FOR PROCEDURES
	37	Q
	38	;
	39	GETVISTA(DFN,C0CVIT) ; CALLS VITALS^ORQQVI TO GET VITAL SIGNS.
	40	; ERETURNS THEM IN RNF2 ARRAYS PASSED BY NAME
	41	; C0CVIT: VITAL SIGNS
	42	; READY TO BE MAPPED TO XML BY MAP^C0CVIT2
	43	; THESE RETURN ARRAYS ARE NOT INITIALIZED, BUT ARE ADDED TO IF THEY
	44	; EXIST.
	45	;
	46	; KILL OF ARRAYS IS TAKEN CARE OF IN ^C0CCCR (K ^TMP("C0CCCR",$J))
	47	;
	48	; SETUP RPC/API CALL HERE
	49	; USE START AND END DATES FROM PARAMETERS IF REQUIRED
	50	;
	51	N VIT,DATA,START,END
	52	; RPC REQUIRES FM DATES NOT T-* DATES
	53	D DT^DILF(,$$GET^C0CPARMS("VITLIMIT"),.END) ; GET THE LIMIT PARM
	54	D DT^DILF(,$$GET^C0CPARMS("VITSTART"),.START) ; GET START PARM
	55	; RPC CALL (ORY,DFN,ORSDT,OREDT):
	56	;ORY: return variable
	57	;DFN: patient identifier from Patient File [#2]
	58	;ORSDT: start date/time in Fileman format
	59	;OREDT: end date/time in Fileman format
	60	; OUTPUT FORMAT:
	61	;vital measurement ien^vital type^rate^date/time taken
	62	D VITALS^ORQQVI(.VIT,DFN,START,END) ; RUN QUERY VITALS CALL
	63	I '$D(VIT) S @VITOUT@(0)=0 K VIT Q ; RETURN NOT FOUND, KILL ARRAY AND QUIT
	64	I $P(VIT(1),U,2)="No vitals found." D Q ; signal no vitals and quit
[1586]	65	. I $D(VITOUT) S @VITOUT@(0)=0
[1544]	66	. K VIT
	67	;
	68	; PREFORM SORT HERE IF NEEDED
	69	;
	70	; SORT IS REQUIRED FOR VITAL SIGNS - LATEST VITALS NEED TO BE LISTED FIRST
	71	; COPIED SORT LOGIC:
	72	N VSORT,VDATES,VCNT ; ARRAY FOR DATE SORTED VITALS INDEX
	73	D VITSORT(.VDATES) ; PULL OUT THE DATES INTO AN ARRAY
	74	S VCNT=$$SORTDT^C0CUTIL(.VSORT,.VDATES,-1) ; PUT VITALS IN REVERSE
	75	; VSORT IS VITALS IN REVERSE ORDER
	76	;
	77	; MAP EACH ROW OF RPC/API TO RNF1 ARRAY
	78	; RNF1 ARRAY FORMAT:
	79	; VAR("NAME_OF_RIM_VARIABLE")=VALUE
	80	;
	81	; VITAL SIGNS ARE DONE DIFFERENTLY DUE TO THE DIFFERENT TYPES OF VITAL SIGNS
	82	; THIS LOOP WILL GET EACH ROW, DETERMINE THE TYPE, AND CALL THE RESPECTIVE PROCESSING METHOD
	83	; THAT WILL DO THE MAPPING TO RNF1 STYLE ARRAYS
	84	N C0CVI,C0CC,ZRNF
	85	;S C0CVI="" ; INITIALIZE FOR $O
	86	F C0CC=1:1:VSORT(0) S C0CVI=VSORT(C0CC) D ; FOR EACH VITAL SIGN IN THE LIST
	87	. I DEBUG W VIT(C0CVI),!
	88	. ; FIGURE OUT WHICH TYPE OF VITAL SIGN IT IS (HEIGHT, WEIGHT, BLOOD PRESSURE, TEMPERATURE, RESPIRATION, PULSE, PAIN, OTHER)
	89	. D:$P(VIT(C0CVI),U,3)="HT" HEIGHT1($$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT"),$P(^GMR(120.5,$P(VIT(C0CVI),U,1),0),U,6),$P(VIT(C0CVI),U,3),"in")
	90	. D:$P(VIT(C0CVI),U,3)="WT" WEIGHT1($$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT"),$P(^GMR(120.5,$P(VIT(C0CVI),U,1),0),U,6),$P(VIT(C0CVI),U,3),"lbs")
	91	. D:$P(VIT(C0CVI),U,3)="BP" BP1($$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT"),$P(^GMR(120.5,$P(VIT(C0CVI),U,1),0),U,6),$P(VIT(C0CVI),U,3),"")
	92	. D:$P(VIT(C0CVI),U,3)="T" TMP1($$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT"),$P(^GMR(120.5,$P(VIT(C0CVI),U,1),0),U,6),$P(VIT(C0CVI),U,3),"F")
	93	. D:$P(VIT(C0CVI),U,3)="R" RESP1($$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT"),$P(^GMR(120.5,$P(VIT(C0CVI),U,1),0),U,6),$P(VIT(C0CVI),U,3),"")
	94	. D:$P(VIT(C0CVI),U,3)="P" PULSE1($$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT"),$P(^GMR(120.5,$P(VIT(C0CVI),U,1),0),U,6),$P(VIT(C0CVI),U,3),"")
	95	. D:$P(VIT(C0CVI),U,3)="PN" PAIN1($$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT"),$P(^GMR(120.5,$P(VIT(C0CVI),U,1),0),U,6),$P(VIT(C0CVI),U,3),"")
	96	. D:'$D(ZRNF) OTHER1($$FMDTOUTC^C0CUTIL($P(C0CVI,U,4),"DT"),"OTHER VITAL",$P(^GMR(120.5,$P(VIT(C0CVI),U,1),0),U,6),$P(VIT(C0CVI),U,3),"UNKNOWN") ;IF THE VITAL ISN'T DEFINED IT IS OTHER
	97	. D RNF1TO2^C0CRNF(C0CVIT,"ZRNF") ;ADD THIS ROW TO THE ARRAY
	98	. K ZRNF
	99	; SAVE RIM VARIABLES SEE C0CRIMA
	100	N ZRIM S ZRIM=$NA(^TMP("C0CRIM","VARS",DFN,"VITALS"))
	101	M @ZRIM=@C0CVIT@("V")
	102	Q
	103	;
	104	GETRPMS(DFN,C0CVIT) ; CALLS QUERY^BEHOVM TO GET VITAL SIGNS.
	105	; ERETURNS THEM IN RNF2 ARRAYS PASSED BY NAME
	106	; C0CVIT: VITAL SIGNS
	107	; READY TO BE MAPPED TO XML BY MAP^C0CVIT2
	108	; THESE RETURN ARRAYS ARE NOT INITIALIZED, BUT ARE ADDED TO IF THEY
	109	; EXIST.
	110	;
	111	; KILL OF ARRAYS IS TAKEN CARE OF IN ^C0CCCR (K ^TMP("C0CCCR",$J))
	112	;
	113	; SETUP RPC/API CALL HERE
	114	; USE START AND END DATES FROM PARAMETERS IF REQUIRED
	115	;
	116	; RPMS VITAL RPC ONLY RETURNS LATEST VITAL IN SPECIFIED DATE RANGE NOT ALL VITALS IN DATE RANGE
	117	; WE NEED TO SETUP THE VARIABLES THE INTERNAL CALL NEEDS TO BYPASS A HARD CODE OF ONE VITAL FOR DATE RANGE
	118	N C0CEDT,C0CSDT,VIT,DATA,START,END
	119	; RPC REQUIRES FM DATES NOT T-* DATES
	120	D DT^DILF(,$$GET^C0CPARMS("VITLIMIT"),.END) ; GET THE LIMIT PARM
	121	D DT^DILF(,$$GET^C0CPARMS("VITSTART"),.START) ; GET START PARM
	122	; RPC OUTPUT FORMAT:
	123	; vfile ien^vital name^vital abbr^date/time taken(FM FORMAT)^value+units (US & metric)
	124	D QUERY^BEHOVM("LISTX") ; RUN QUERY VITALS CALL
	125	I '$D(^TMP("CIAVMRPC",$J)) S @VITOUT@(0)=0 K ^TMP("CIAVMRPC",$J) Q ; RETURN NOT FOUND, KILL ARRAY AND QUIT
	126	; MOVE THE ARRAY TO LOCAL VARIABLE
	127	M VIT=^TMP("CIAVMRPC",$J,0)
	128	; RPC CLEANUP
	129	K ^TMP("CIAVMRPC",$J),VITS,RMAX,START,END,DATA,METRIC,VSTR,VUNT
	130	;
	131	; PREFORM SORT HERE IF NEEDED
	132	;
	133	; SORT IS REQUIRED FOR VITAL SIGNS - LATEST VITALS NEED TO BE LISTED FIRST
	134	; COPIED SORT LOGIC:
	135	N VSORT,VDATES,VCNT ; ARRAY FOR DATE SORTED VITALS INDEX
	136	D VITSORT(.VDATES) ; PULL OUT THE DATES INTO AN ARRAY
	137	S VCNT=$$SORTDT^C0CUTIL(.VSORT,.VDATES,-1) ; PUT VITALS IN REVERSE
	138	; VSORT IS VITALS IN REVERSE ORDER
	139	;
	140	; MAP EACH ROW OF RPC/API TO RNF1 ARRAY
	141	; RNF1 ARRAY FORMAT:
	142	; VAR("NAME_OF_RIM_VARIABLE")=VALUE
	143	;
	144	; VITAL SIGNS ARE DONE DIFFERENTLY DUE TO THE DIFFERENT TYPES OF VITAL SIGNS
	145	; THIS LOOP WILL GET EACH ROW, DETERMINE THE TYPE, AND CALL THE RESPECTIVE PROCESSING METHOD
	146	; THAT WILL DO THE MAPPING TO RNF1 STYLE ARRAYS
	147	N C0CVI,C0CC,ZRNF
	148	;S C0CVI="" ; INITIALIZE FOR $O
	149	F C0CC=1:1:VSORT(0) S C0CVI=VSORT(C0CC) D ; FOR EACH VITAL SIGN IN THE LIST
	150	. I DEBUG W VIT(C0CVI),!
	151	. ; FIGURE OUT WHICH TYPE OF VITAL SIGN IT IS (HEIGHT, WEIGHT, BLOOD PRESSURE, TEMPERATURE, RESPIRATION, PULSE, PAIN, OTHER)
	152	. D:$P(VIT(C0CVI),U,3)="HT" HEIGHT
	153	. D:$P(VIT(C0CVI),U,3)="WT" WEIGHT
	154	. D:$P(VIT(C0CVI),U,3)="BP" BP
	155	. D:$P(VIT(C0CVI),U,3)="TMP" TMP
	156	. D:$P(VIT(C0CVI),U,3)="RS" RESP
	157	. D:$P(VIT(C0CVI),U,3)="PU" PULSE
	158	. D:$P(VIT(C0CVI),U,3)="PA" PAIN
	159	. D:'$D(ZRNF) OTHER ;IF THE VITAL ISN'T DEFINED IT IS OTHER
	160	. D RNF1TO2^C0CRNF(C0CVIT,"ZRNF") ;ADD THIS ROW TO THE ARRAY
	161	. K ZRNF
	162	; SAVE RIM VARIABLES SEE C0CRIMA
	163	N ZRIM S ZRIM=$NA(^TMP("C0CRIM","VARS",DFN,"VITALS"))
	164	M @ZRIM=@C0CVIT@("V")
	165	Q
	166	;
[1586]	167	HEIGHT ;
[1544]	168	I DEBUG W "IN VITAL: HEIGHT",!
	169	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC ; UNIQUE OBJID
	170	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	171	S ZRNF("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT")
	172	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
	173	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	174	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	175	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	176	S ZRNF("VITALSIGNSDESCCODEVALUE")="248327008"
	177	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
	178	S ZRNF("VITALSIGNSCODEVERSION")=""
	179	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VIT(C0CVI),U,1),12)),U,4)
	180	S ZRNF("VITALSIGNSTESTRESULTVALUE")=$P($P(VIT(C0CVI),U,5)," ",1)
	181	S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
	182	Q
	183	;
[1586]	184	WEIGHT ;
[1544]	185	I DEBUG W "IN VITAL: WEIGHT",!
	186	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
	187	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	188	S ZRNF("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT")
	189	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
	190	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	191	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	192	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	193	S ZRNF("VITALSIGNSDESCCODEVALUE")="107647005"
	194	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
	195	S ZRNF("VITALSIGNSCODEVERSION")=""
	196	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VIT(C0CVI),U,1),12)),U,4)
	197	S ZRNF("VITALSIGNSTESTRESULTVALUE")=$P($P(VIT(C0CVI),U,5)," ",1)
	198	S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
	199	Q
	200	;
[1586]	201	BP ;
[1544]	202	I DEBUG W "IN VITAL: BLOOD PRESSURE",!
	203	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
	204	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	205	S ZRNF("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT")
	206	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
	207	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	208	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	209	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	210	S ZRNF("VITALSIGNSDESCCODEVALUE")="392570002"
	211	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
	212	S ZRNF("VITALSIGNSCODEVERSION")=""
	213	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VIT(C0CVI),U,1),12)),U,4)
	214	S ZRNF("VITALSIGNSTESTRESULTVALUE")=$P($P(VIT(C0CVI),U,5)," ",1)
	215	S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
	216	Q
	217	;
[1586]	218	TMP ;
[1544]	219	I DEBUG W "IN VITAL: TEMPERATURE",!
	220	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
	221	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	222	S ZRNF("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT")
	223	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
	224	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	225	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	226	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	227	S ZRNF("VITALSIGNSDESCCODEVALUE")="309646008"
	228	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
	229	S ZRNF("VITALSIGNSCODEVERSION")=""
	230	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VIT(C0CVI),U,1),12)),U,4)
	231	S ZRNF("VITALSIGNSTESTRESULTVALUE")=$P($P(VIT(C0CVI),U,5)," ",1)
	232	S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
	233	Q
	234	;
[1586]	235	RESP ;
[1544]	236	I DEBUG W "IN VITAL: RESPIRATION",!
	237	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
	238	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	239	S ZRNF("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT")
	240	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
	241	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	242	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	243	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	244	S ZRNF("VITALSIGNSDESCCODEVALUE")="366147009"
	245	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
	246	S ZRNF("VITALSIGNSCODEVERSION")=""
	247	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VIT(C0CVI),U,1),12)),U,4)
	248	S ZRNF("VITALSIGNSTESTRESULTVALUE")=$P($P(VIT(C0CVI),U,5)," ",1)
	249	S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
	250	Q
	251	;
[1586]	252	PULSE ;
[1544]	253	I DEBUG W "IN VITAL: PULSE",!
	254	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
	255	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	256	S ZRNF("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT")
	257	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
	258	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	259	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	260	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	261	S ZRNF("VITALSIGNSDESCCODEVALUE")="366199006"
	262	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
	263	S ZRNF("VITALSIGNSCODEVERSION")=""
	264	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VIT(C0CVI),U,1),12)),U,4)
	265	S ZRNF("VITALSIGNSTESTRESULTVALUE")=$P($P(VIT(C0CVI),U,5)," ",1)
	266	S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
	267	Q
	268	;
[1586]	269	PAIN ;
[1544]	270	I DEBUG W "IN VITAL: PAIN",!
	271	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
	272	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	273	S ZRNF("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT")
	274	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
	275	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	276	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	277	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	278	S ZRNF("VITALSIGNSDESCCODEVALUE")="22253000"
	279	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
	280	S ZRNF("VITALSIGNSCODEVERSION")=""
	281	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VIT(C0CVI),U,1),12)),U,4)
	282	S ZRNF("VITALSIGNSTESTRESULTVALUE")=$P($P(VIT(C0CVI),U,5)," ",1)
	283	S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
	284	Q
	285	;
[1586]	286	OTHER ;
[1544]	287	I DEBUG W "IN VITAL: OTHER",!
	288	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
	289	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	290	S ZRNF("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^C0CUTIL($P(VIT(C0CVI),U,4),"DT")
	291	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")=$P(VIT(C0CVI),U,2)
	292	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	293	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	294	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	295	S ZRNF("VITALSIGNSDESCCODEVALUE")=""
	296	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")=""
	297	S ZRNF("VITALSIGNSCODEVERSION")=""
	298	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VIT(C0CVI),U,1),12)),U,4)
	299	S ZRNF("VITALSIGNSTESTRESULTVALUE")=$P($P(VIT(C0CVI),U,5)," ",1)
	300	S ZRNF("VITALSIGNSTESTRESULTUNIT")=$P($P(VIT(C0CVI),U,5)," ",2)
	301	Q
	302	;
	303	;TEMPORARY, THINKING ON HOW TO REFACTOR (CJE)
[1586]	304	HEIGHT1(DT,ACTOR,VALUE,UNIT) ;
[1544]	305	I DEBUG W "IN VITAL: HEIGHT",!
	306	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC ; UNIQUE OBJID
	307	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	308	S ZRNF("VITALSIGNSEXACTDATETIME")=DT
	309	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
	310	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	311	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	312	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	313	S ZRNF("VITALSIGNSDESCCODEVALUE")="248327008"
	314	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
	315	S ZRNF("VITALSIGNSCODEVERSION")=""
	316	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_ACTOR
	317	S ZRNF("VITALSIGNSTESTRESULTVALUE")=VALUE
	318	S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
	319	Q
	320	;
[1586]	321	WEIGHT1(DT,ACTOR,VALUE,UNIT) ;
[1544]	322	I DEBUG W "IN VITAL: WEIGHT",!
	323	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
	324	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	325	S ZRNF("VITALSIGNSEXACTDATETIME")=DT
	326	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
	327	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	328	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	329	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	330	S ZRNF("VITALSIGNSDESCCODEVALUE")="107647005"
	331	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
	332	S ZRNF("VITALSIGNSCODEVERSION")=""
	333	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_ACTOR
	334	S ZRNF("VITALSIGNSTESTRESULTVALUE")=VALUE
	335	S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
	336	Q
	337	;
[1586]	338	BP1(DT,ACTOR,VALUE,UNIT) ;
[1544]	339	I DEBUG W "IN VITAL: BLOOD PRESSURE",!
	340	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
	341	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	342	S ZRNF("VITALSIGNSEXACTDATETIME")=DT
	343	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
	344	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	345	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	346	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	347	S ZRNF("VITALSIGNSDESCCODEVALUE")="392570002"
	348	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
	349	S ZRNF("VITALSIGNSCODEVERSION")=""
	350	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_ACTOR
	351	S ZRNF("VITALSIGNSTESTRESULTVALUE")=VALUE
	352	S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
	353	Q
	354	;
[1586]	355	TMP1(DT,ACTOR,VALUE,UNIT) ;
[1544]	356	I DEBUG W "IN VITAL: TEMPERATURE",!
	357	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
	358	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	359	S ZRNF("VITALSIGNSEXACTDATETIME")=DT
	360	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
	361	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	362	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	363	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	364	S ZRNF("VITALSIGNSDESCCODEVALUE")="309646008"
	365	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
	366	S ZRNF("VITALSIGNSCODEVERSION")=""
	367	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_ACTOR
	368	S ZRNF("VITALSIGNSTESTRESULTVALUE")=VALUE
	369	S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
	370	Q
	371	;
[1586]	372	RESP1(DT,ACTOR,VALUE,UNIT) ;
[1544]	373	I DEBUG W "IN VITAL: RESPIRATION",!
	374	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
	375	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	376	S ZRNF("VITALSIGNSEXACTDATETIME")=DT
	377	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
	378	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	379	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	380	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	381	S ZRNF("VITALSIGNSDESCCODEVALUE")="366147009"
	382	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
	383	S ZRNF("VITALSIGNSCODEVERSION")=""
	384	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_ACTOR
	385	S ZRNF("VITALSIGNSTESTRESULTVALUE")=VALUE
	386	S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
	387	Q
	388	;
[1586]	389	PULSE1(DT,ACTOR,VALUE,UNIT) ;
[1544]	390	I DEBUG W "IN VITAL: PULSE",!
	391	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
	392	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	393	S ZRNF("VITALSIGNSEXACTDATETIME")=DT
	394	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
	395	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	396	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	397	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	398	S ZRNF("VITALSIGNSDESCCODEVALUE")="366199006"
	399	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
	400	S ZRNF("VITALSIGNSCODEVERSION")=""
	401	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_ACTOR
	402	S ZRNF("VITALSIGNSTESTRESULTVALUE")=VALUE
	403	S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
	404	Q
	405	;
[1586]	406	PAIN1(DT,ACTOR,VALUE,UNIT) ;
[1544]	407	I DEBUG W "IN VITAL: PAIN",!
	408	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
	409	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	410	S ZRNF("VITALSIGNSEXACTDATETIME")=DT
	411	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
	412	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	413	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	414	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	415	S ZRNF("VITALSIGNSDESCCODEVALUE")="22253000"
	416	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
	417	S ZRNF("VITALSIGNSCODEVERSION")=""
	418	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_ACTOR
	419	S ZRNF("VITALSIGNSTESTRESULTVALUE")=VALUE
	420	S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
	421	Q
	422	;
[1586]	423	OTHER1(DT,TEXT,ACTOR,VALUE,UNIT) ;
[1544]	424	I DEBUG W "IN VITAL: OTHER",!
	425	S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
	426	S ZRNF("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
	427	S ZRNF("VITALSIGNSEXACTDATETIME")=DT
	428	S ZRNF("VITALSIGNSDESCRIPTIONTEXT")=TEXT
	429	S ZRNF("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
	430	S ZRNF("VITALSIGNSTESTOBJECTID")="VITALTEST"_C0CC
	431	S ZRNF("VITALSIGNSTESTTYPETEXT")="OBSERVED"
	432	S ZRNF("VITALSIGNSDESCCODEVALUE")=""
	433	S ZRNF("VITALSIGNSDESCCODINGSYSTEM")=""
	434	S ZRNF("VITALSIGNSCODEVERSION")=""
	435	S ZRNF("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_ACTOR
	436	S ZRNF("VITALSIGNSTESTRESULTVALUE")=VALUE
	437	S ZRNF("VITALSIGNSTESTRESULTUNIT")=UNIT
	438	Q
	439	;
	440	VITSORT(VDT) ; RUN DATE SORTING ALGORITHM
	441	; VDT IS PASSED BY REFERENCE AND WILL CONTAIN THE ARRAY
	442	; OF DATES IN THE VITALS RESULTS
	443	N VDTI,VDTJ,VTDCNT
	444	S VTDCNT=0 ; COUNT TO BUILD ARRAY
	445	S VDTJ="" ; USED TO VISIT THE RESULTS
	446	F VDTI=0:0 D Q:$O(VIT(VDTJ))="" ; VISIT ALL RESULTS
	447	. S VDTJ=$O(VIT(VDTJ)) ; NEXT RESULT
	448	. S VTDCNT=VTDCNT+1 ; INCREMENT COUNTER
	449	. S VDT(VTDCNT)=$P(VIT(VDTJ),U,4) ; PULL OUT THE DATE
	450	S VDT(0)=VTDCNT
	451	Q
	452	;
	453	MAP(VITXML,C0CVIT,VITOUT) ; MAP VITAL SIGNS XML
	454	;
	455	N ZTEMP S ZTEMP=$NA(^TMP("C0CCCR",$J,DFN,"VITTEMP")) ;WORK AREA FOR TEMPLATE
	456	K @ZTEMP
	457	N ZBLD
	458	S ZBLD=$NA(^TMP("C0CCCR",$J,DFN,"VITBLD")) ; BUILD LIST AREA
	459	D QUEUE^C0CXPATH(ZBLD,VITXML,1,1) ; FIRST LINE
	460	N ZINNER
	461	; XPATH NEEDS TO MATCH YOUR SECTION
	462	D QUERY^C0CXPATH(VITXML,"//VitalSigns/Result","ZINNER") ;ONE VITAL SIGN
	463	N ZTMP,ZVAR,ZI
	464	S ZI=""
	465	F S ZI=$O(@C0CVIT@("V",ZI)) Q:ZI="" D ;FOR EACH VITAL SIGN
	466	. S ZTMP=$NA(@ZTEMP@(ZI)) ;THIS VITAL SIGN XML
	467	. S ZVAR=$NA(@C0CVIT@("V",ZI)) ;THIS VITAL SIGN VARIABLES
	468	. D MAP^C0CXPATH("ZINNER",ZVAR,ZTMP) ; MAP THE VITAL SIGN
	469	. D QUEUE^C0CXPATH(ZBLD,ZTMP,1,@ZTMP@(0)) ;QUEUE FOR BUILD
	470	D QUEUE^C0CXPATH(ZBLD,VITXML,@VITXML@(0),@VITXML@(0))
	471	N ZZTMP ; IS THIS NEEDED?
	472	D BUILD^C0CXPATH(ZBLD,VITOUT) ;BUILD FINAL XML
	473	K @ZTEMP,@ZBLD
	474	Q
	475	;

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: ccr/trunk/p/C0CVIT2.m@ 1800

Download in other formats: