| 1 | GMRVXCH2 ;HIRMFO/YH,RM-GMRV VITAL QUALIFIER FILE CONVERSION ;8/1/96
|
|---|
| 2 | ;;4.0;Vitals/Measurements;;Apr 25, 1997
|
|---|
| 3 | CONV52 ; Loop through 120.52 to convert
|
|---|
| 4 | S GMRVDA=0 F S GMRVDA=$O(^GMRD(120.52,GMRVDA)) Q:GMRVDA'>0 D
|
|---|
| 5 | . K GMRVVTYP S GMRVCHAR=$P($G(^GMRD(120.52,GMRVDA,0)),"^")
|
|---|
| 6 | . I '$D(^TMP($J,"GMRVCHAR",GMRVCHAR)) S ^TMP($J,"GMRVCHAR",GMRVCHAR)=""
|
|---|
| 7 | . S GMRVCNV=$G(^TMP($J,"GMRVCHAR",GMRVCHAR))
|
|---|
| 8 | . S GMRVCNV=$S(GMRVCNV]"":GMRVCNV,1:GMRVDA_";GMRD(120.52,")
|
|---|
| 9 | . S $P(^GMRD(120.52,GMRVDA,"CONV"),"^")=GMRVCNV
|
|---|
| 10 | . S GMRVTDA=0
|
|---|
| 11 | . F S GMRVTDA=$O(^GMRD(120.52,GMRVDA,1,GMRVTDA)) Q:GMRVTDA'>0 D
|
|---|
| 12 | . . S GMRVTYP=$P($G(^GMRD(120.52,GMRVDA,1,GMRVTDA,0)),"^")
|
|---|
| 13 | . . Q:GMRVTYP'>0 S GMRVVTYP(GMRVTYP)=GMRVTDA
|
|---|
| 14 | . . I '$D(^TMP($J,"GMRVCHAR",GMRVCHAR,GMRVTYP)) S ^TMP($J,"GMRVCHAR",GMRVCHAR,GMRVTYP)=$$QUAL(GMRVTYP,120.52,GMRVCHAR)
|
|---|
| 15 | . . Q
|
|---|
| 16 | . S GMRVTYP=0
|
|---|
| 17 | . F S GMRVTYP=$O(^TMP($J,"GMRVCHAR",GMRVCHAR,GMRVTYP)) Q:GMRVTYP'>0 D
|
|---|
| 18 | . . S GMRVTDA=$G(GMRVVTYP(GMRVTYP))
|
|---|
| 19 | . . I GMRVTDA'>0 D Q:GMRVTDA'>0
|
|---|
| 20 | . . . S X=GMRVTYP,DA(1)=GMRVDA,DIC="^GMRD(120.52,"_DA(1)_",1,"
|
|---|
| 21 | . . . S DIC(0)="L",DLAYGO=120.52
|
|---|
| 22 | . . . K DO,DINUM,DD D FILE^DICN S GMRVTDA=+Y
|
|---|
| 23 | . . . Q
|
|---|
| 24 | . . S GMRVCNV=$G(^TMP($J,"GMRVCHAR",GMRVCHAR,GMRVTYP))
|
|---|
| 25 | . . S GMRVCAT=$P(GMRVCNV,"^")
|
|---|
| 26 | . . I GMRVCAT]"" S GMRVCAT=$G(^TMP($J,"GMRVCAT",GMRVCAT))
|
|---|
| 27 | . . S $P(GMRVCNV,"^")=GMRVCAT
|
|---|
| 28 | . . S $P(^GMRD(120.52,GMRVDA,1,GMRVTDA,0),"^",2,4)=GMRVCNV
|
|---|
| 29 | . . Q
|
|---|
| 30 | . Q
|
|---|
| 31 | K DA,DIC,DLAYGO,GMRVCHAR,GMRVCNV,GMRVDA,GMRVTDA,GMRVTYP,GMRVVTYP,X
|
|---|
| 32 | Q
|
|---|
| 33 | MOVE53 ; Loop through 120.53 and move data from that
|
|---|
| 34 | ; file to the 120.52 file.
|
|---|
| 35 | S GMRVD0=0 F S GMRVD0=$O(^GMRD(120.53,GMRVD0)) Q:GMRVD0'>0 D
|
|---|
| 36 | . S GMRVCHAR=$P($G(^GMRD(120.53,GMRVD0,0)),"^") Q:GMRVCHAR=""
|
|---|
| 37 | . K GMRVFDA,GMRVIEN S GMRVFDA(99,120.52,"+1,",.01)=GMRVCHAR
|
|---|
| 38 | . D UPDATE^DIE("","GMRVFDA(99)","GMRVIEN") Q:GMRVIEN(1)'>0
|
|---|
| 39 | . I '$D(^TMP($J,"GMRVCHAR",GMRVCHAR)) S ^(GMRVCHAR)=GMRVD0_";GMRD(120.53,"
|
|---|
| 40 | . S GMRVDA=GMRVIEN(1),GMRVD1=0
|
|---|
| 41 | . F S GMRVD1=$O(^GMRD(120.53,GMRVD0,1,GMRVD1)) Q:GMRVD1'>0 D
|
|---|
| 42 | . . S GMRVTYP=$P($G(^GMRD(120.53,GMRVD0,1,GMRVD1,0)),"^")
|
|---|
| 43 | . . Q:$P($G(^GMRD(120.51,+GMRVTYP,0)),"^")'="BLOOD PRESSURE"
|
|---|
| 44 | . . K GMRVFDA,GMRVIEN
|
|---|
| 45 | . . S GMRVFDA(99,120.521,"+2,"_GMRVDA_",",.01)=GMRVTYP
|
|---|
| 46 | . . D UPDATE^DIE("","GMRVFDA(99)","GMRVIEN")
|
|---|
| 47 | . . I '$D(^TMP($J,"GMRVCHAR",GMRVCHAR,GMRVTYP)) S ^TMP($J,"GMRVCHAR",GMRVCHAR,GMRVTYP)=$$QUAL(GMRVTYP,120.53,GMRVCHAR)
|
|---|
| 48 | . . Q
|
|---|
| 49 | . Q
|
|---|
| 50 | K GMRVCHAR,GMRVD0,GMRVD1,GMRVDA,GMRVFDA,GMRVTYP
|
|---|
| 51 | Q
|
|---|
| 52 | QUAL(TYPE,FILE,CHAR) ; Given a Qualifier (CHAR), the Vital Type (TYPE)
|
|---|
| 53 | ; ptr and the file from which this which the qualifier is from
|
|---|
| 54 | ; (FILE), this function will return the generic Category (CAT).
|
|---|
| 55 | ;
|
|---|
| 56 | N CAT,GTYPE
|
|---|
| 57 | S GTYPE=$P($G(^GMRD(120.51,TYPE,0)),"^",2)
|
|---|
| 58 | I FILE=120.52 S CAT=$S(GTYPE="BP"!(GTYPE="P")!(GTYPE="T"):"LOCATION",GTYPE="R":"METHOD",GTYPE="WT":"QUALITY",1:"")
|
|---|
| 59 | I FILE=120.53 S CAT=$S(GTYPE="BP":"POSITION",1:"")
|
|---|
| 60 | Q CAT
|
|---|
| 61 | ;
|
|---|
| 62 | TYP(TYPE) ; This function will return the external text for the Vital
|
|---|
| 63 | ; Type pointed to by TYPE.
|
|---|
| 64 | Q $P($G(^GMRD(120.51,TYPE,0)),"^")
|
|---|
