Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRVXCH1

GMRVXCH1.m

Go to the documentation of this file.
  1. GMRVXCH1 ;HIRMFO/YH-NEW QUALIFIER/CATEGORY ;8/21/96
  1. ;;4.0;Vitals/Measurements;;Apr 25, 1997
  1. ADDCAT ;ADD NEW CATEGORIES TO #120.53
  1. D BMES^XPDUTL("Adding new categories to 120.53 file...")
  1. N GMRVTXT,GMRVCAT,GMRVTYP,GMRVLINE,GDA
  1. 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
  1. . 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
  1. . . Q:$D(^GMRD(120.53,GMRVCAT(1),1,"B",GMRVTYP(1)))
  1. . . I '$D(^GMRD(120.53,GMRVCAT(1),1,0)) S ^GMRD(120.53,GMRVCAT(1),1,0)="^120.531P^0^0"
  1. . . S GDA=+$P(^GMRD(120.53,GMRVCAT(1),1,0),"^",3)+1
  1. . . S ^GMRD(120.53,GMRVCAT(1),1,GDA,0)=GMRVTYP(1)_"^"_$P(GMRVLINE,";",3)
  1. . . S ^GMRD(120.53,GMRVCAT(1),1,"B",GMRVTYP(1),GDA)="",^GMRD(120.53,"C",GMRVTYP(1),GMRVCAT(1),GDA)=""
  1. . . S $P(^GMRD(120.53,GMRVCAT(1),1,0),"^",3)=GDA,$P(^(0),"^",4)=$P(^(0),"^",4)+1
  1. . . Q
  1. . E D
  1. . . S GDA=+$P(^GMRD(120.53,0),"^",3)+1
  1. . . S ^GMRD(120.53,GDA,0)=GMRVCAT,^GMRD(120.53,GDA,1,0)="^120.531P^1^1"
  1. . . S ^GMRD(120.53,"B",GMRVCAT,GDA)=""
  1. . . S ^GMRD(120.53,GDA,1,1,0)=GMRVTYP(1)_"^"_$P(GMRVLINE,";",3)
  1. . . S ^GMRD(120.53,GDA,1,"B",GMRVTYP(1),1)=""
  1. . . S ^GMRD(120.53,"C",GMRVTYP(1),GDA,1)=""
  1. . . S $P(^GMRD(120.53,0),"^",3)=GDA,$P(^(0),"^",4)=$P(^(0),"^",4)+1
  1. . . Q
  1. . Q
  1. Q
  1. ADDCHAR ;ADD NEW QUALIFIERS TO #120.52
  1. D BMES^XPDUTL("Adding new qualifiers to 120.52 file...")
  1. N GMRVTXT,GMRVCAT,GMRVCHA,GMRVTYP,GMRVLINE,GDA
  1. F GMRVTXT=1:1 S GMRVLINE=$P($T(CHRTABL+GMRVTXT),";;",2) Q:GMRVLINE="" D
  1. . S GMRVTYP=$P(GMRVLINE,";",2) Q:GMRVTYP="" S GMRVTYP(1)=$O(^GMRD(120.51,"B",GMRVTYP,0)) Q:GMRVTYP(1)'>0
  1. . 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
  1. . . I $D(^GMRD(120.52,"B",GMRVCHA)) D OLD^GMRVXCH3 Q
  1. . . D NEW^GMRVXCH3
  1. . . Q
  1. . Q
  1. Q
  1. CHRTABL ;;QUALIFIER;TYPE;CATEGORY
  1. ;;FEMORAL;PULSE;LOCATION
  1. ;;POPLITEAL;PULSE;LOCATION
  1. ;;POSTERIOR TIBIAL;PULSE;LOCATION
  1. ;;DORSALIS PEDIS;PULSE;LOCATION
  1. ;;BRACHIAL;PULSE;LOCATION
  1. ;;ULNAR;PULSE;LOCATION
  1. ;;PALPATED;PULSE;METHOD
  1. ;;DOPPLER;PULSE;METHOD
  1. ;;AUSCULTATE;PULSE;METHOD
  1. ;;RIGHT;PULSE;SITE
  1. ;;LEFT;PULSE;SITE
  1. ;;CUFF;BLOOD PRESSURE;METHOD
  1. ;;NON-INVASIVE;BLOOD PRESSURE;METHOD
  1. ;;DOPPLER;BLOOD PRESSURE;METHOD
  1. ;;PALPATED;BLOOD PRESSURE;METHOD
  1. ;;ADULT;BLOOD PRESSURE;CUFF SIZE;
  1. ;;SM ADULT;BLOOD PRESSURE;CUFF SIZE
  1. ;;LG ADULT;BLOOD PRESSURE;CUFF SIZE
  1. ;;THIGH;BLOOD PRESSURE;CUFF SIZE
  1. ;;PEDIATRIC;BLOOD PRESSURE;CUFF SIZE
  1. ;;CHAIR;WEIGHT;METHOD
  1. ;;STANDING;WEIGHT;METHOD
  1. ;;BED;WEIGHT;METHOD
  1. ;;RIGHT;CIRCUMFERENCE/GIRTH;SITE
  1. ;;LEFT;CIRCUMFERENCE/GIRTH;SITE
  1. ;;HEAD;CIRCUMFERENCE/GIRTH;LOCATION
  1. ;;ABDOMINAL;CIRCUMFERENCE/GIRTH;LOCATION
  1. ;;CALF;CIRCUMFERENCE/GIRTH;LOCATION
  1. ;;THIGH;CIRCUMFERENCE/GIRTH;LOCATION
  1. ;;LOWER ARM;CIRCUMFERENCE/GIRTH;LOCATION
  1. ;;UPPER ARM;CIRCUMFERENCE/GIRTH;LOCATION
  1. ;;OTHER;CIRCUMFERENCE/GIRTH;LOCATION
  1. ;;WRIST;CIRCUMFERENCE/GIRTH;LOCATION
  1. ;;ANKLE;CIRCUMFERENCE/GIRTH;LOCATION
  1. ;;ACTUAL;HEIGHT;QUALITY
  1. ;;ESTIMATED;HEIGHT;QUALITY
  1. ;;MASK;PULSE OXIMETRY;METHOD
  1. ;;T-PIECE;PULSE OXIMETRY;METHOD
  1. ;;FACE TENT;PULSE OXIMETRY;METHOD
  1. ;;AEROSOL/HUMIDIFIED MASK;PULSE OXIMETRY;METHOD
  1. ;;NASAL CANNULA;PULSE OXIMETRY;METHOD
  1. ;;NON RE-BREATHER;PULSE OXIMETRY;METHOD
  1. ;;PARTIAL RE-BREATHER;PULSE OXIMETRY;METHOD
  1. ;;TRACHEOSTOMY COLLAR;PULSE OXIMETRY;METHOD
  1. ;;VENTILATOR;PULSE OXIMETRY;METHOD
  1. ;;VENTURI MASK;PULSE OXIMETRY;METHOD
  1. ;;SITTING;RESPIRATION;POSITION
  1. ;;STANDING;RESPIRATION;POSITION
  1. ;;LYING;RESPIRATION;POSITION
  1. ;;SITTING;PULSE;POSITION
  1. ;;STANDING;PULSE;POSITION
  1. ;;LYING;PULSE;POSITION
  1. Q
  1. CATTABL ;;CATEGORY;TYPE;MIN^MAX^REQ^PRINT ORDER^EDIT ORDER^DEFAULT CHAR.
  1. ;;METHOD;PULSE;^1^^3^3
  1. ;;SITE;PULSE;^1^^1^2
  1. ;;METHOD;BLOOD PRESSURE;^1^^3^3^PALPATED
  1. ;;CUFF SIZE;BLOOD PRESSURE;^1^^4^4^ADULT
  1. ;;METHOD;WEIGHT;^1^^2^2^STANDING
  1. ;;SITE;CIRCUMFERENCE/GIRTH;^1^^1^2
  1. ;;LOCATION;CIRCUMFERENCE/GIRTH;^1^^2^1
  1. ;;QUALITY;HEIGHT;^1^^1^1^
  1. ;;POSITION;RESPIRATION;^1^^2^2
  1. ;;POSITION;PULSE;^1^^4^4
  1. ;;METHOD;PULSE OXIMETRY;^1^^1^1
  1. Q