- MDCPROTD ;ASMR/BLJ,SRG - CliO backend driver;02 Feb 2005 ; 12/10/15 10:58am
- ;;1.0;CLINICAL PROCEDURES;**38**;Sep 25, 2015;Build 290
- ;Per VA Directive 6402, this routine should not be modified
- ;
- ; External References -
- ; EN^XQOR - IA # 10101
- ;
- EN ;
- ; First, we'll get the root observation.
- New IEN,MDCERR,MDCOBS,MDGUID,X1,Y
- Set IEN=$Get(DA) If '+IEN Write "IEN FOR PROTOCOL UNDEFINED!",! Quit
- Do GETS^DIQ(704.117,IEN_",",".01;.08;.09","EINR","^TMP(""MDCOBS"",$J)","MDCERR")
- If $Data(MDCERR) Do Quit
- . Set MDCOBS("ERROR")=$Get(MDCERR("DIERR",1))_U_$Get(MDCERR("DIERR",1,"TEXT",1))
- Merge MDCOBS=^TMP("MDCOBS",$J,704.117,IEN_",") Kill ^TMP("MDCOBS",$J)
- Set MDCOBS("OLD_STATUS","E")=$$EXTERNAL^DILFD(704.117,".09",,$Get(X1))
- Set MDCOBS("OLD_STATUS","I")=$G(X1)
- Set MDCOBS("DOMAIN","VITALS")=0
- Set MDGUID=$$GET1^DIQ(704.117,IEN_",",.07)
- For Y=1:1 Quit:$Text(MAP+Y)="" If $Piece($Text(MAP+Y),";",4)=MDGUID Set MDCOBS("DOMAIN","VITALS")=1 Quit
- Quit
- ;
- PROT ;Call the protocol.
- N X
- Set X="MDC OBSERVATION UPDATE",DIC="101"
- Do EN^XQOR
- Quit
- ;
- ; This must be updated if Vitals EVER adds a new term that we map to. This only says our term it paired with a vital sign.
- ;
- MAP ; Contains the mappings from Vitals to CliO - vital;abbv;vuid;term_guid
- ;;ABDOMINAL GIRTH;{F70E6642-2719-22BE-BE87-DEF0A884F177}
- ;;AUDIOMETRY;{FFD29134-8BB2-248E-0412-93C2C08B076F}
- ;;BLOOD PRESSURE;{B15F2DF6-CE99-B847-FE6B-3D5F174A2BCD}
- ;;CENTRAL VENOUS PRESSURE;{D30F98A7-4C5D-12E8-AB4D-9C85A4332EC3}
- ;;CIRCUMFERENCE/GIRTH;{92A124D4-B75F-9FD9-1A51-605887BCEA79};
- ;;FETAL HEART TONES;{A2E22A44-E924-ADDE-2B8E-0251666B4DE6}
- ;;FUNDAL HEIGHT;{EEAB8762-624F-7BA3-4001-114FD229BA69}
- ;;HEAD CIRCUMFERENCE;{33827E3C-5DBB-083C-D8BE-4DFD7D42071F}
- ;;HEARING;{813CCC94-3D64-5093-BC6C-053EFD9948F9}
- ;;HEIGHT;{B440216B-0FB3-1950-7859-7C1BE398FE4A}
- ;;PAIN;{47A83DEA-BA95-38AD-DF2E-1F209122E684}
- ;;PULSE;{FCA63B76-EF4C-EBE5-33C1-F1EEBD7A7BC4}
- ;;PULSE OXIMETRY;{5F84DD55-3CCF-094C-2536-B51EB7FAD999}
- ;;RESPIRATION;{973ED2C0-0625-7DF9-17DC-8FFF7E376F23}
- ;;TEMPERATURE;{0F33223E-DF2C-6B8B-5201-5E091C5F9065}
- ;;TONOMETRY;{C06989EF-4B0F-4941-B1A7-FA9D81A480FF}
- ;;VISION CORRECTED;{ED022AC1-EBE4-E708-684D-63D00628A94C}
- ;;VISION UNCORRECTED;{BEA5E565-D728-F5B3-0A3A-0528C42A45C4}
- ;;WEIGHT;{CD2D8263-6B71-0E1C-0AFE-87B4B2C12632}
- Quit
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMDCPROTD 2377 printed Jan 18, 2025@02:43:45 Page 2
- MDCPROTD ;ASMR/BLJ,SRG - CliO backend driver;02 Feb 2005 ; 12/10/15 10:58am
- +1 ;;1.0;CLINICAL PROCEDURES;**38**;Sep 25, 2015;Build 290
- +2 ;Per VA Directive 6402, this routine should not be modified
- +3 ;
- +4 ; External References -
- +5 ; EN^XQOR - IA # 10101
- +6 ;
- EN ;
- +1 ; First, we'll get the root observation.
- +2 NEW IEN,MDCERR,MDCOBS,MDGUID,X1,Y
- +3
- *** ERROR ***
- SET IEN=$Get(DA)
- IF '+IEN
- WRITE "IEN FOR PROTOCOL UNDEFINED!",!
- QUIT
- +4 DO GETS^DIQ(704.117,IEN_",",".01;.08;.09","EINR","^TMP(""MDCOBS"",$J)","MDCERR")
- +5
- *** ERROR ***
- IF $Data(MDCERR)
- Begin DoDot:1
- +6
- *** ERROR ***