- 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
- 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