104 lines
4.1 KiB
Mathematica
104 lines
4.1 KiB
Mathematica
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
|