GMRVXCH1 ;HIRMFO/YH-NEW QUALIFIER/CATEGORY ;8/21/96
;;4.0;Vitals/Measurements;;Apr 25, 1997
ADDCAT ;ADD NEW CATEGORIES TO #120.53
D BMES^XPDUTL("Adding new categories to 120.53 file...")
N GMRVTXT,GMRVCAT,GMRVTYP,GMRVLINE,GDA
F GMRVTXT=1:1 S GMRVLINE=$P($T(CATTABL+GMRVTXT),";;",2) Q:GMRVLINE="" S GMRVTYP=$P(GMRVLINE,";",2) Q:GMRVTYP="" S GMRVTYP(1)=$O(^GMRD(120.51,"B",GMRVTYP,"")) Q:GMRVTYP(1)'>0 S GMRVCAT=$P(GMRVLINE,";") Q:GMRVCAT="" D
. I $D(^GMRD(120.53,"B",GMRVCAT)) S GMRVCAT(1)=$O(^GMRD(120.53,"B",GMRVCAT,0)) D:$D(^GMRD(120.53,GMRVCAT(1),0)) Q
. . Q:$D(^GMRD(120.53,GMRVCAT(1),1,"B",GMRVTYP(1)))
. . I '$D(^GMRD(120.53,GMRVCAT(1),1,0)) S ^GMRD(120.53,GMRVCAT(1),1,0)="^120.531P^0^0"
. . S GDA=+$P(^GMRD(120.53,GMRVCAT(1),1,0),"^",3)+1
. . S ^GMRD(120.53,GMRVCAT(1),1,GDA,0)=GMRVTYP(1)_"^"_$P(GMRVLINE,";",3)
. . S ^GMRD(120.53,GMRVCAT(1),1,"B",GMRVTYP(1),GDA)="",^GMRD(120.53,"C",GMRVTYP(1),GMRVCAT(1),GDA)=""
. . S $P(^GMRD(120.53,GMRVCAT(1),1,0),"^",3)=GDA,$P(^(0),"^",4)=$P(^(0),"^",4)+1
. . Q
. E D
. . S GDA=+$P(^GMRD(120.53,0),"^",3)+1
. . S ^GMRD(120.53,GDA,0)=GMRVCAT,^GMRD(120.53,GDA,1,0)="^120.531P^1^1"
. . S ^GMRD(120.53,"B",GMRVCAT,GDA)=""
. . S ^GMRD(120.53,GDA,1,1,0)=GMRVTYP(1)_"^"_$P(GMRVLINE,";",3)
. . S ^GMRD(120.53,GDA,1,"B",GMRVTYP(1),1)=""
. . S ^GMRD(120.53,"C",GMRVTYP(1),GDA,1)=""
. . S $P(^GMRD(120.53,0),"^",3)=GDA,$P(^(0),"^",4)=$P(^(0),"^",4)+1
. . Q
. Q
Q
ADDCHAR ;ADD NEW QUALIFIERS TO #120.52
D BMES^XPDUTL("Adding new qualifiers to 120.52 file...")
N GMRVTXT,GMRVCAT,GMRVCHA,GMRVTYP,GMRVLINE,GDA
F GMRVTXT=1:1 S GMRVLINE=$P($T(CHRTABL+GMRVTXT),";;",2) Q:GMRVLINE="" D
. S GMRVTYP=$P(GMRVLINE,";",2) Q:GMRVTYP="" S GMRVTYP(1)=$O(^GMRD(120.51,"B",GMRVTYP,0)) Q:GMRVTYP(1)'>0
. S GMRVCHA=$P(GMRVLINE,";") Q:GMRVCHA="" S GMRVCAT=$P(GMRVLINE,";",3),GMRVCAT(1)=$O(^GMRD(120.53,"B",GMRVCAT,0)) Q:GMRVCAT(1)'>0 I $D(^GMRD(120.53,GMRVCAT(1),0)) D
. . I $D(^GMRD(120.52,"B",GMRVCHA)) D OLD^GMRVXCH3 Q
. . D NEW^GMRVXCH3
. . Q
. Q
Q
CHRTABL ;;QUALIFIER;TYPE;CATEGORY
;;FEMORAL;PULSE;LOCATION
;;POPLITEAL;PULSE;LOCATION
;;POSTERIOR TIBIAL;PULSE;LOCATION
;;DORSALIS PEDIS;PULSE;LOCATION
;;BRACHIAL;PULSE;LOCATION
;;ULNAR;PULSE;LOCATION
;;PALPATED;PULSE;METHOD
;;DOPPLER;PULSE;METHOD
;;AUSCULTATE;PULSE;METHOD
;;RIGHT;PULSE;SITE
;;LEFT;PULSE;SITE
;;CUFF;BLOOD PRESSURE;METHOD
;;NON-INVASIVE;BLOOD PRESSURE;METHOD
;;DOPPLER;BLOOD PRESSURE;METHOD
;;PALPATED;BLOOD PRESSURE;METHOD
;;ADULT;BLOOD PRESSURE;CUFF SIZE;
;;SM ADULT;BLOOD PRESSURE;CUFF SIZE
;;LG ADULT;BLOOD PRESSURE;CUFF SIZE
;;THIGH;BLOOD PRESSURE;CUFF SIZE
;;PEDIATRIC;BLOOD PRESSURE;CUFF SIZE
;;CHAIR;WEIGHT;METHOD
;;STANDING;WEIGHT;METHOD
;;BED;WEIGHT;METHOD
;;RIGHT;CIRCUMFERENCE/GIRTH;SITE
;;LEFT;CIRCUMFERENCE/GIRTH;SITE
;;HEAD;CIRCUMFERENCE/GIRTH;LOCATION
;;ABDOMINAL;CIRCUMFERENCE/GIRTH;LOCATION
;;CALF;CIRCUMFERENCE/GIRTH;LOCATION
;;THIGH;CIRCUMFERENCE/GIRTH;LOCATION
;;LOWER ARM;CIRCUMFERENCE/GIRTH;LOCATION
;;UPPER ARM;CIRCUMFERENCE/GIRTH;LOCATION
;;OTHER;CIRCUMFERENCE/GIRTH;LOCATION
;;WRIST;CIRCUMFERENCE/GIRTH;LOCATION
;;ANKLE;CIRCUMFERENCE/GIRTH;LOCATION
;;ACTUAL;HEIGHT;QUALITY
;;ESTIMATED;HEIGHT;QUALITY
;;MASK;PULSE OXIMETRY;METHOD
;;T-PIECE;PULSE OXIMETRY;METHOD
;;FACE TENT;PULSE OXIMETRY;METHOD
;;AEROSOL/HUMIDIFIED MASK;PULSE OXIMETRY;METHOD
;;NASAL CANNULA;PULSE OXIMETRY;METHOD
;;NON RE-BREATHER;PULSE OXIMETRY;METHOD
;;PARTIAL RE-BREATHER;PULSE OXIMETRY;METHOD
;;TRACHEOSTOMY COLLAR;PULSE OXIMETRY;METHOD
;;VENTILATOR;PULSE OXIMETRY;METHOD
;;VENTURI MASK;PULSE OXIMETRY;METHOD
;;SITTING;RESPIRATION;POSITION
;;STANDING;RESPIRATION;POSITION
;;LYING;RESPIRATION;POSITION
;;SITTING;PULSE;POSITION
;;STANDING;PULSE;POSITION
;;LYING;PULSE;POSITION
Q
CATTABL ;;CATEGORY;TYPE;MIN^MAX^REQ^PRINT ORDER^EDIT ORDER^DEFAULT CHAR.
;;METHOD;PULSE;^1^^3^3
;;SITE;PULSE;^1^^1^2
;;METHOD;BLOOD PRESSURE;^1^^3^3^PALPATED
;;CUFF SIZE;BLOOD PRESSURE;^1^^4^4^ADULT
;;METHOD;WEIGHT;^1^^2^2^STANDING
;;SITE;CIRCUMFERENCE/GIRTH;^1^^1^2
;;LOCATION;CIRCUMFERENCE/GIRTH;^1^^2^1
;;QUALITY;HEIGHT;^1^^1^1^
;;POSITION;RESPIRATION;^1^^2^2
;;POSITION;PULSE;^1^^4^4
;;METHOD;PULSE OXIMETRY;^1^^1^1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVXCH1 4295 printed Oct 16, 2024@17:58:35 Page 2
GMRVXCH1 ;HIRMFO/YH-NEW QUALIFIER/CATEGORY ;8/21/96
+1 ;;4.0;Vitals/Measurements;;Apr 25, 1997
ADDCAT ;ADD NEW CATEGORIES TO #120.53
+1 DO BMES^XPDUTL("Adding new categories to 120.53 file...")
+2 NEW GMRVTXT,GMRVCAT,GMRVTYP,GMRVLINE,GDA
+3 FOR GMRVTXT=1:1
SET GMRVLINE=$PIECE($TEXT(CATTABL+GMRVTXT),";;",2)
if GMRVLINE=""
QUIT
SET GMRVTYP=$PIECE(GMRVLINE,";",2)
if GMRVTYP=""
QUIT
SET GMRVTYP(1)=$ORDER(^GMRD(120.51,"B",GMRVTYP,""))
if GMRVTYP(1)'>0
QUIT
SET GMRVCAT=$PIECE(GMRVLINE,";")
if GMRVCAT=""
QUIT
Begin DoDot:1
+4 IF $DATA(^GMRD(120.53,"B",GMRVCAT))
SET GMRVCAT(1)=$ORDER(^GMRD(120.53,"B",GMRVCAT,0))
if $DATA(^GMRD(120.53,GMRVCAT(1),0))
Begin DoDot:2
+5 if $DATA(^GMRD(120.53,GMRVCAT(1),1,"B",GMRVTYP(1)))
QUIT
+6 IF '$DATA(^GMRD(120.53,GMRVCAT(1),1,0))
SET ^GMRD(120.53,GMRVCAT(1),1,0)="^120.531P^0^0"
+7 SET GDA=+$PIECE(^GMRD(120.53,GMRVCAT(1),1,0),"^",3)+1
+8 SET ^GMRD(120.53,GMRVCAT(1),1,GDA,0)=GMRVTYP(1)_"^"_$PIECE(GMRVLINE,";",3)
+9 SET ^GMRD(120.53,GMRVCAT(1),1,"B",GMRVTYP(1),GDA)=""
SET ^GMRD(120.53,"C",GMRVTYP(1),GMRVCAT(1),GDA)=""
+10 SET $PIECE(^GMRD(120.53,GMRVCAT(1),1,0),"^",3)=GDA
SET $PIECE(^(0),"^",4)=$PIECE(^(0),"^",4)+1
+11 QUIT
End DoDot:2
QUIT
+12 IF '$TEST
Begin DoDot:2
+13 SET GDA=+$PIECE(^GMRD(120.53,0),"^",3)+1
+14 SET ^GMRD(120.53,GDA,0)=GMRVCAT
SET ^GMRD(120.53,GDA,1,0)="^120.531P^1^1"
+15 SET ^GMRD(120.53,"B",GMRVCAT,GDA)=""
+16 SET ^GMRD(120.53,GDA,1,1,0)=GMRVTYP(1)_"^"_$PIECE(GMRVLINE,";",3)
+17 SET ^GMRD(120.53,GDA,1,"B",GMRVTYP(1),1)=""
+18 SET ^GMRD(120.53,"C",GMRVTYP(1),GDA,1)=""
+19 SET $PIECE(^GMRD(120.53,0),"^",3)=GDA
SET $PIECE(^(0),"^",4)=$PIECE(^(0),"^",4)+1
+20 QUIT
End DoDot:2
+21 QUIT
End DoDot:1
+22 QUIT
ADDCHAR ;ADD NEW QUALIFIERS TO #120.52
+1 DO BMES^XPDUTL("Adding new qualifiers to 120.52 file...")
+2 NEW GMRVTXT,GMRVCAT,GMRVCHA,GMRVTYP,GMRVLINE,GDA
+3 FOR GMRVTXT=1:1
SET GMRVLINE=$PIECE($TEXT(CHRTABL+GMRVTXT),";;",2)
if GMRVLINE=""
QUIT
Begin DoDot:1
+4 SET GMRVTYP=$PIECE(GMRVLINE,";",2)
if GMRVTYP=""
QUIT
SET GMRVTYP(1)=$ORDER(^GMRD(120.51,"B",GMRVTYP,0))
if GMRVTYP(1)'>0
QUIT
+5 SET GMRVCHA=$PIECE(GMRVLINE,";")
if GMRVCHA=""
QUIT
SET GMRVCAT=$PIECE(GMRVLINE,";",3)
SET GMRVCAT(1)=$ORDER(^GMRD(120.53,"B",GMRVCAT,0))
if GMRVCAT(1)'>0
QUIT
IF $DATA(^GMRD(120.53,GMRVCAT(1),0))
Begin DoDot:2
+6 IF $DATA(^GMRD(120.52,"B",GMRVCHA))
DO OLD^GMRVXCH3
QUIT
+7 DO NEW^GMRVXCH3
+8 QUIT
End DoDot:2
+9 QUIT
End DoDot:1
+10 QUIT
CHRTABL ;;QUALIFIER;TYPE;CATEGORY
+1 ;;FEMORAL;PULSE;LOCATION
+2 ;;POPLITEAL;PULSE;LOCATION
+3 ;;POSTERIOR TIBIAL;PULSE;LOCATION
+4 ;;DORSALIS PEDIS;PULSE;LOCATION
+5 ;;BRACHIAL;PULSE;LOCATION
+6 ;;ULNAR;PULSE;LOCATION
+7 ;;PALPATED;PULSE;METHOD
+8 ;;DOPPLER;PULSE;METHOD
+9 ;;AUSCULTATE;PULSE;METHOD
+10 ;;RIGHT;PULSE;SITE
+11 ;;LEFT;PULSE;SITE
+12 ;;CUFF;BLOOD PRESSURE;METHOD
+13 ;;NON-INVASIVE;BLOOD PRESSURE;METHOD
+14 ;;DOPPLER;BLOOD PRESSURE;METHOD
+15 ;;PALPATED;BLOOD PRESSURE;METHOD
+16 ;;ADULT;BLOOD PRESSURE;CUFF SIZE;
+17 ;;SM ADULT;BLOOD PRESSURE;CUFF SIZE
+18 ;;LG ADULT;BLOOD PRESSURE;CUFF SIZE
+19 ;;THIGH;BLOOD PRESSURE;CUFF SIZE
+20 ;;PEDIATRIC;BLOOD PRESSURE;CUFF SIZE
+21 ;;CHAIR;WEIGHT;METHOD
+22 ;;STANDING;WEIGHT;METHOD
+23 ;;BED;WEIGHT;METHOD
+24 ;;RIGHT;CIRCUMFERENCE/GIRTH;SITE
+25 ;;LEFT;CIRCUMFERENCE/GIRTH;SITE
+26 ;;HEAD;CIRCUMFERENCE/GIRTH;LOCATION
+27 ;;ABDOMINAL;CIRCUMFERENCE/GIRTH;LOCATION
+28 ;;CALF;CIRCUMFERENCE/GIRTH;LOCATION
+29 ;;THIGH;CIRCUMFERENCE/GIRTH;LOCATION
+30 ;;LOWER ARM;CIRCUMFERENCE/GIRTH;LOCATION
+31 ;;UPPER ARM;CIRCUMFERENCE/GIRTH;LOCATION
+32 ;;OTHER;CIRCUMFERENCE/GIRTH;LOCATION
+33 ;;WRIST;CIRCUMFERENCE/GIRTH;LOCATION
+34 ;;ANKLE;CIRCUMFERENCE/GIRTH;LOCATION
+35 ;;ACTUAL;HEIGHT;QUALITY
+36 ;;ESTIMATED;HEIGHT;QUALITY
+37 ;;MASK;PULSE OXIMETRY;METHOD
+38 ;;T-PIECE;PULSE OXIMETRY;METHOD
+39 ;;FACE TENT;PULSE OXIMETRY;METHOD
+40 ;;AEROSOL/HUMIDIFIED MASK;PULSE OXIMETRY;METHOD
+41 ;;NASAL CANNULA;PULSE OXIMETRY;METHOD
+42 ;;NON RE-BREATHER;PULSE OXIMETRY;METHOD
+43 ;;PARTIAL RE-BREATHER;PULSE OXIMETRY;METHOD
+44 ;;TRACHEOSTOMY COLLAR;PULSE OXIMETRY;METHOD
+45 ;;VENTILATOR;PULSE OXIMETRY;METHOD
+46 ;;VENTURI MASK;PULSE OXIMETRY;METHOD
+47 ;;SITTING;RESPIRATION;POSITION
+48 ;;STANDING;RESPIRATION;POSITION
+49 ;;LYING;RESPIRATION;POSITION
+50 ;;SITTING;PULSE;POSITION
+51 ;;STANDING;PULSE;POSITION
+52 ;;LYING;PULSE;POSITION
+53 QUIT
CATTABL ;;CATEGORY;TYPE;MIN^MAX^REQ^PRINT ORDER^EDIT ORDER^DEFAULT CHAR.
+1 ;;METHOD;PULSE;^1^^3^3
+2 ;;SITE;PULSE;^1^^1^2
+3 ;;METHOD;BLOOD PRESSURE;^1^^3^3^PALPATED
+4 ;;CUFF SIZE;BLOOD PRESSURE;^1^^4^4^ADULT
+5 ;;METHOD;WEIGHT;^1^^2^2^STANDING
+6 ;;SITE;CIRCUMFERENCE/GIRTH;^1^^1^2
+7 ;;LOCATION;CIRCUMFERENCE/GIRTH;^1^^2^1
+8 ;;QUALITY;HEIGHT;^1^^1^1^
+9 ;;POSITION;RESPIRATION;^1^^2^2
+10 ;;POSITION;PULSE;^1^^4^4
+11 ;;METHOD;PULSE OXIMETRY;^1^^1^1
+12 QUIT
