AUPNVMS2.m

AUPNVMS2 ; IHS/CMI/LAB - HELP FOR V MEASUREMENT 24-MAY-1993 ; 29 Aug 2011  4:39 PM

 ;;2.0;IHS PCC SUITE;**2,5,7,15**;MAY 14, 2009;Build 11

 ;

 ;BJPC patch 1

 ;  - peak flow change to 50-1000

HELP ; HELP FOR VARIOUS TYPES

 NEW AUPNMTYP,%

 S AUPNMTYP=$P(^AUPNVMSR(DA,0),U,1)

 S %=0 F  S %=$O(^AUTTMSR(AUPNMTYP,11,%)) Q:%'=+%  D EN^DDIOL(^AUTTMSR(AUPNMTYP,11,%,0))

 D EN^DDIOL("","","!")

 Q

 ;S AUPNMTYP="H"_$P(^AUTTMSR($P(^AUPNVMSR(DA,0),U,1),0),U,1) S:AUPNMTYP="HVU" AUPNMTYP="HVC"

 ;Q:$T(@AUPNMTYP)=""

 ;F %AUI=1:1 S L=$T(@AUPNMTYP+%AUI) Q:L=""!($P(L,";;",1)'=" ")  W $P(L,";;",2),!

 ;K AUPNMTYP

 ;Q

 ;

HELP1 ;PEP; called by other packages with AUPNMTYP already set;IHS/ANMC/LJF 1/30/98

 ; calling routine responsible for killing AUPNMTYP

 Q:$T(@AUPNMTYP)=""

 NEW %

 S AUPNMTYP=$P(^AUPNVMSR(DA,0),U,1)

 S %=0 F  S %=$O(^AUTTMSR(AUPNMTYP,11,%)) Q:%'=+%  D EN^DDIOL(^AUTTMSR(AUPNMTYP,11,%,0))

 D EN^DDIOL("","","!")

 Q

 ;F %AUI=1:1 S L=$T(@AUPNMTYP+%AUI) Q:L=""!($P(L,";;",1)'=" ")  W $P(L,";;",2),!

 Q

 ;IHS/ANMC/LJF 1/30/98 end of new subrtn

 ;

BHHELP ;PEP ; called by BH module dd

 S AUPNMTYP="H"_$P(^AUTTMSR($P(^AMHRMSR(DA,0),U,1),0),U,1) S:AUPNMTYP="HVU" AUPNMTYP="HVC"

 Q:$T(@AUPNMTYP)=""

 F %AUI=1:1 S L=$T(@AUPNMTYP+%AUI) Q:L=""!($P(L,";;",1)'=" ")  W $P(L,";;",2),!

 K AUPNMTYP

 Q

 ;

HAUD ;;

 ;; Enter 8 readings for right ear followed by 8 readings for left ear,

 ;; all followed by slashes (/).  Values must be between 0 and 110.

 ;; EXAMPLE:  100/100/100/95/90/90/85/80/105/105/105/105/100/100/95/90/

HBP ;;

 ;; Enter as SYSTOLIC/DIASTOLIC (120/80).  SYSTOLIC must be between

 ;; 20 and 275.  DIASTOLIC must be between 20 and 200.

HCXD ;;

 ;;Enter a value between 0 and 10.

HED ;;

 ;; Enter EDEMA as one of the following 0, 1+, 2+, 3+ or 4+

HEF ;;

 ;; Enter a value 0-100.

HHC ;;

 ;; To enter head circumference in inches, enter the inches (21)

 ;; inches and decimal (21.5), or inches and fraction (21 1/2).

 ;; Must be 10-30 inches and fractional/decimal part must be a 

 ;; multiple of 1/8 (.125).

 ;;

 ;; To enter head circumference in Centimeters (CHC) enter

 ;; the centimeters and decimal (30.2).

 ;; Centimeter range:  26 to 76 centimeters.

HHE ;;

 ;; Enter N for normal, or A for abnormal.

HPA ;;

 ;; Enter a value between 0 and 10.

HWC ;;

 ;; Enter a waist measurement value between 20 and 99 inches.

 ;; Up to 2 decimal digits.  E.g.  50.25 or 40

HHT ;;

 ;; Enter height in inches and fractions (64 3/4), or inches and

 ;; decimal (64.75).  Height must be between 10 and 90 inches.

 ;; Centimeter range:   26 and 203.

HPU ;;

 ;; Enter whole number between 30 and 250.

HPR ;;

 ;; Enter PRESENTATION as one of the following:

 ;;  (You may enter the number or the text or the abbreviation)

 ;;   1 - VERTEX - VT

 ;;   2 - COMPLETE BREACH - CB

 ;;   3 - DOUBLE FOOTLING - DF

 ;;   4 - SINGLE FOOTLING - SF

 ;;   5 - FRANK BREACH - FB

 ;;   6 - FACE - FA

 ;;   7 - UNSPECIFIED BREACH - UB

 ;;   8 - TRANSVERSE - TR

 ;;   9 - OTHER - OT

 ;;  U - UNKNOWN - UNK

HSN ;;

 ;; Enter a value between -6 and 4.

HTMP ;;

 ;; Enter as degrees fahrenheit.  Must be 70-120 degrees.

HTON ;;

 ;; Enter READING for RIGHT eye, followed by a SLASH, followed

 ;; by the READING for the LEFT eye.

 ;; SLASH is REQUIRED!

 ;; Examples:  18/18, /20, 18/, 10/13

 ;; Readings can be between 0 and 80.

HVC ;;

 ;; Enter denominators only.  The 20/ is assumed.  Enter right eye

 ;; / left eye in form n/n (20/20).  If right eye only enter n (20).

 ;; If left eye only enter /n (/20).  Must be between 10 and 999 or

 ;; must be HM, LP or NLP.

 ;; 

 ;; Numerator may be different than 20.  You will be prompted to

 ;; enter numerator seperately.

HVU ;;

 ;; SAME AS HVC. HVU CHANGED TO HVC BY HELP LOGIC.

HWT ;EP

 ;; If entering weight in LBS and OZs:   enter lbs oz (132 12),

 ;; lbs fraction (132 3/4), or ;; lbs.decimal (132.75).  

 ;; Weight must be 2-1000 lbs and fractional/decimal part must be a

 ;; multiple of 1/16 (.0625).

 ;;

 ;; Metric ranges:

 ;; Kilograms: enter between 1 and 340 (fractions and decimals allowed)

 ;; Grams: enter between 1000 and 340000 grams (fractions and decimals allowed)

 ;; Fractions must be entered as in 4000 1/2 or 4 2/3

HAG ;;

 ;; Enter Abdominal Girth.  Must be in the range 0-150. Up to 2 decimal digits.

 ;; e.g.  38.5 or 40 or 39.25

HFH ;;

 ;; Enter a Fundal Height.  Must be in the range 0-100.

HFT ;;

 ;; Enter Fetal Heart Tone.  Must be in the range 0-400.

HRS ;;Help for Respiration rate

 ;;Enter the respiration rate of the patient.  Must be in range 8-140.

HO2 ;;

 ;;Enter a % between 50 and 100.

HPF ;;

 ;;Enter a number between 50 and 1000.

HCEF ;EP - per Terry Cullen new measurement 3/17/04

 ;;Enter a number between 5 and 99.

 ;;

HASQF ;;

 ;; Enter an ASQ FINE MOTOR development score between 0 and 100.

 ;;

HASQG ;; 

 ;; Enter an ASQ GROSS MOTOR development score between 0 and 100.

 ;;

HASQL ;;

 ;; Enter an ASQ LANGUAGE development score between 0 and 100.

 ;;

HASQS ;;

 ;; Enter an ASQ SOCIAL development score between 0 and 100.

 ;;

HAKBP ;;

 ;; Enter as SYSTOLIC/DIASTOLIC (120/80).  SYSTOLIC must be between

 ;; 20 and 275.  DIASTOLIC must be between 20 and 200.

 ;; 

HPHQ2 ;;

 ;; Enter a total PHQ2 score.  Range 0-6

 ;; A score of 3 or higher is considered a positive screen and

 ;; further evaluation is indicated.

 ;; Enter a value between 0 and 6.

 ;; 

HPHQ9 ;;

 ;; Enter a total PHQ9 score. Range: 0 - 27

 ;; 0 - 4 No depression; 5 - 9 Minimal symptoms; 

 ;; 10 - 14  Mild symptoms; 15 - 19 Moderate symptoms; 20 or more Severe symptoms

 ;;

HAUDT ;;

 ;; Enter a total AUDIT score. Range 0 - 40

 ;; Zone I: Score 0 - 7  Low risk drinking or abstinence

 ;; Zone II: Score 8 - 15  Alcohol use in excess of low-risk guidelines 

 ;; Zone III: Score 16 - 19  Harmful and hazardous drinking 

 ;; Zone IV: Score 20 - 40  Referral to Specialist for Diagnostic Evaluation

 ;;  and Treatment

 ;; 

HCRFT ;;

 ;;

 ;; Enter a total CRAFFT score. Range: 0 - 6

 ;; Positive answers to two or more questions is highly predictive

 ;; of an alcohol or drug-related disorder. Further assessment is indicated. 

 ;; 

HASFD ;;

 ;; Enter number of days without asthma symptoms (chest tightness, cough,

 ;; shortness of breath, or wheezing) in the past two weeks.

 ;;     Value range:  0-14

 ;;

HBPF ;;

 ;; Also called 'personal best' peak flow recorded during periods of

 ;; symptom control. Often recorded from home and self-reported.

 ;;     Value range: 50-1000 L/min.

 ;;

HFEF ;;

 ;; Enter in percent the average flow of air during the middle portion of

 ;; expiration.  Value range: 0-150.  Enter a whole number only.

 ;;

HFEV1 ;;

 ;; Enter in liters the maximum amount of air exhaled in one second.

 ;;     Value range:  0-10 liters,  enter a whole number between 0 and 10.

 ;;

HFV1P ;;

 ;; Enter in percent the maximum amount of air exhaled in one second.

 ;; Measured in percent to compare to population statistics.

 ;;     Value range:  0-150.  Enter a whole number only.

 ;;

HFVC ;;

 ;; Enter in liters the maximum amount of air inhaled and exhaled.

 ;;     Value range:  0-10 liters, enter a whole number between 0 and 10.

 ;;

HFVCP ;;

 ;; Enter in percent the maximum amount of air inhaled and exhaled.

 ;;     Value range:  0-150.

 ;;

HFVFC ;;

 ;; Enter as FEV1/FVC (6/8).  FEV1 and FVC must be between

 ;;   0 and 10 liters; these readings are taken from a spirometer. 

 ;;

HAUDC ;;

 ;; Enter a total AUDIT-C score. Range: 0-12

 ;; The AUDIT-C (the first three AUDIT questions which focus on alcohol 

 ;; consumption) is scored on a scale of 0-12 (scores of 0 reflect no 

 ;; alcohol use). In men, a score of 4 or more is considered positive; in 

 ;; women, a score of 3 or more is considered positive. A positive score

 ;; means the patient is at increased risk for hazardous drinking or active 

 ;; alcohol abuse or dependence. 

 ;; 

HADM ;;

 ;; Enter the number of work or school days missed related to asthma

 ;; in the past two weeks.

 ;;     Value range: 0-14

 ;;

HLKW ;;

 ;;Enter date/time last time patient was known to be without signs/symptoms

 ;;of current stroke.  When onset is witnessed, the last known well is identical

 ;;to time of symptoms onset.

 ;;

AUPNVMS2  ; IHS/CMI/LAB - HELP FOR V MEASUREMENT 24-MAY-1993 ; 29 Aug 2011  4:39 PM

 +1       ;;2.0;IHS PCC SUITE;**2,5,7,15**;MAY 14, 2009;Build 11

 +2       ;

 +3       ;BJPC patch 1

 +4       ;  - peak flow change to 50-1000

HELP      ; HELP FOR VARIOUS TYPES

 +1        NEW AUPNMTYP,%

 +2        SET AUPNMTYP=$PIECE(^AUPNVMSR(DA,0),U,1)

 +3        SET %=0

           FOR 

               SET %=$ORDER(^AUTTMSR(AUPNMTYP,11,%))

               IF %'=+%

                   QUIT 

               DO EN^DDIOL(^AUTTMSR(AUPNMTYP,11,%,0))

 +4        DO EN^DDIOL("","","!")

 +5        QUIT 

 +6       ;S AUPNMTYP="H"_$P(^AUTTMSR($P(^AUPNVMSR(DA,0),U,1),0),U,1) S:AUPNMTYP="HVU" AUPNMTYP="HVC"

 +7       ;Q:$T(@AUPNMTYP)=""

 +8       ;F %AUI=1:1 S L=$T(@AUPNMTYP+%AUI) Q:L=""!($P(L,";;",1)'=" ")  W $P(L,";;",2),!

 +9       ;K AUPNMTYP

 +10      ;Q

 +11      ;

HELP1     ;PEP; called by other packages with AUPNMTYP already set;IHS/ANMC/LJF 1/30/98

 +1       ; calling routine responsible for killing AUPNMTYP

 +2        IF $TEXT(@AUPNMTYP)=""

               QUIT 

 +3        NEW %

 +4        SET AUPNMTYP=$PIECE(^AUPNVMSR(DA,0),U,1)

 +5        SET %=0

           FOR 

               SET %=$ORDER(^AUTTMSR(AUPNMTYP,11,%))

               IF %'=+%

                   QUIT 

               DO EN^DDIOL(^AUTTMSR(AUPNMTYP,11,%,0))

 +6        DO EN^DDIOL("","","!")

 +7        QUIT 

 +8       ;F %AUI=1:1 S L=$T(@AUPNMTYP+%AUI) Q:L=""!($P(L,";;",1)'=" ")  W $P(L,";;",2),!

 +9        QUIT 

 +10      ;IHS/ANMC/LJF 1/30/98 end of new subrtn

 +11      ;

BHHELP    ;PEP ; called by BH module dd

 +1        SET AUPNMTYP="H"_$PIECE(^AUTTMSR($PIECE(^AMHRMSR(DA,0),U,1),0),U,1)

           IF AUPNMTYP="HVU"

               SET AUPNMTYP="HVC"

 +2        IF $TEXT(@AUPNMTYP)=""

               QUIT 

 +3        FOR %AUI=1:1

               SET L=$TEXT(@AUPNMTYP+%AUI)

               IF L=""!($PIECE(L,";;",1)'=" ")

                   QUIT 

               WRITE $PIECE(L,";;",2),!

 +4        KILL AUPNMTYP

 +5        QUIT 

 +6       ;

HAUD      ;;

 +1       ;; Enter 8 readings for right ear followed by 8 readings for left ear,

 +2       ;; all followed by slashes (/).  Values must be between 0 and 110.

 +3       ;; EXAMPLE:  100/100/100/95/90/90/85/80/105/105/105/105/100/100/95/90/

HBP       ;;

 +1       ;; Enter as SYSTOLIC/DIASTOLIC (120/80).  SYSTOLIC must be between

 +2       ;; 20 and 275.  DIASTOLIC must be between 20 and 200.

HCXD      ;;

 +1       ;;Enter a value between 0 and 10.

HED       ;;

 +1       ;; Enter EDEMA as one of the following 0, 1+, 2+, 3+ or 4+

HEF       ;;

 +1       ;; Enter a value 0-100.

HHC       ;;

 +1       ;; To enter head circumference in inches, enter the inches (21)

 +2       ;; inches and decimal (21.5), or inches and fraction (21 1/2).

 +3       ;; Must be 10-30 inches and fractional/decimal part must be a 

 +4       ;; multiple of 1/8 (.125).

 +5       ;;

 +6       ;; To enter head circumference in Centimeters (CHC) enter

 +7       ;; the centimeters and decimal (30.2).

 +8       ;; Centimeter range:  26 to 76 centimeters.

HHE       ;;

 +1       ;; Enter N for normal, or A for abnormal.

HPA       ;;

 +1       ;; Enter a value between 0 and 10.

HWC       ;;

 +1       ;; Enter a waist measurement value between 20 and 99 inches.

 +2       ;; Up to 2 decimal digits.  E.g.  50.25 or 40

HHT       ;;

 +1       ;; Enter height in inches and fractions (64 3/4), or inches and

 +2       ;; decimal (64.75).  Height must be between 10 and 90 inches.

 +3       ;; Centimeter range:   26 and 203.

HPU       ;;

 +1       ;; Enter whole number between 30 and 250.

HPR       ;;

 +1       ;; Enter PRESENTATION as one of the following:

 +2       ;;  (You may enter the number or the text or the abbreviation)

 +3       ;;   1 - VERTEX - VT

 +4       ;;   2 - COMPLETE BREACH - CB

 +5       ;;   3 - DOUBLE FOOTLING - DF

 +6       ;;   4 - SINGLE FOOTLING - SF

 +7       ;;   5 - FRANK BREACH - FB

 +8       ;;   6 - FACE - FA

 +9       ;;   7 - UNSPECIFIED BREACH - UB

 +10      ;;   8 - TRANSVERSE - TR

 +11      ;;   9 - OTHER - OT

 +12      ;;  U - UNKNOWN - UNK

HSN       ;;

 +1       ;; Enter a value between -6 and 4.

HTMP      ;;

 +1       ;; Enter as degrees fahrenheit.  Must be 70-120 degrees.

HTON      ;;

 +1       ;; Enter READING for RIGHT eye, followed by a SLASH, followed

 +2       ;; by the READING for the LEFT eye.

 +3       ;; SLASH is REQUIRED!

 +4       ;; Examples:  18/18, /20, 18/, 10/13

 +5       ;; Readings can be between 0 and 80.

HVC       ;;

 +1       ;; Enter denominators only.  The 20/ is assumed.  Enter right eye

 +2       ;; / left eye in form n/n (20/20).  If right eye only enter n (20).

 +3       ;; If left eye only enter /n (/20).  Must be between 10 and 999 or

 +4       ;; must be HM, LP or NLP.

 +5       ;; 

 +6       ;; Numerator may be different than 20.  You will be prompted to

 +7       ;; enter numerator seperately.

HVU       ;;

 +1       ;; SAME AS HVC. HVU CHANGED TO HVC BY HELP LOGIC.

HWT       ;EP

 +1       ;; If entering weight in LBS and OZs:   enter lbs oz (132 12),

 +2       ;; lbs fraction (132 3/4), or ;; lbs.decimal (132.75).  

 +3       ;; Weight must be 2-1000 lbs and fractional/decimal part must be a

 +4       ;; multiple of 1/16 (.0625).

 +5       ;;

 +6       ;; Metric ranges:

 +7       ;; Kilograms: enter between 1 and 340 (fractions and decimals allowed)

 +8       ;; Grams: enter between 1000 and 340000 grams (fractions and decimals allowed)

 +9       ;; Fractions must be entered as in 4000 1/2 or 4 2/3

HAG       ;;

 +1       ;; Enter Abdominal Girth.  Must be in the range 0-150. Up to 2 decimal digits.

 +2       ;; e.g.  38.5 or 40 or 39.25

HFH       ;;

 +1       ;; Enter a Fundal Height.  Must be in the range 0-100.

HFT       ;;

 +1       ;; Enter Fetal Heart Tone.  Must be in the range 0-400.

HRS       ;;Help for Respiration rate

 +1       ;;Enter the respiration rate of the patient.  Must be in range 8-140.

HO2       ;;

 +1       ;;Enter a % between 50 and 100.

HPF       ;;

 +1       ;;Enter a number between 50 and 1000.

HCEF      ;EP - per Terry Cullen new measurement 3/17/04

 +1       ;;Enter a number between 5 and 99.

 +2       ;;

HASQF     ;;

 +1       ;; Enter an ASQ FINE MOTOR development score between 0 and 100.

 +2       ;;

HASQG     ;; 

 +1       ;; Enter an ASQ GROSS MOTOR development score between 0 and 100.

 +2       ;;

HASQL     ;;

 +1       ;; Enter an ASQ LANGUAGE development score between 0 and 100.

 +2       ;;

HASQS     ;;

 +1       ;; Enter an ASQ SOCIAL development score between 0 and 100.

 +2       ;;

HAKBP     ;;

 +1       ;; Enter as SYSTOLIC/DIASTOLIC (120/80).  SYSTOLIC must be between

 +2       ;; 20 and 275.  DIASTOLIC must be between 20 and 200.

 +3       ;; 

HPHQ2     ;;

 +1       ;; Enter a total PHQ2 score.  Range 0-6

 +2       ;; A score of 3 or higher is considered a positive screen and

 +3       ;; further evaluation is indicated.

 +4       ;; Enter a value between 0 and 6.

 +5       ;; 

HPHQ9     ;;

 +1       ;; Enter a total PHQ9 score. Range: 0 - 27

 +2       ;; 0 - 4 No depression; 5 - 9 Minimal symptoms; 

 +3       ;; 10 - 14  Mild symptoms; 15 - 19 Moderate symptoms; 20 or more Severe symptoms

 +4       ;;

HAUDT     ;;

 +1       ;; Enter a total AUDIT score. Range 0 - 40

 +2       ;; Zone I: Score 0 - 7  Low risk drinking or abstinence

 +3       ;; Zone II: Score 8 - 15  Alcohol use in excess of low-risk guidelines 

 +4       ;; Zone III: Score 16 - 19  Harmful and hazardous drinking 

 +5       ;; Zone IV: Score 20 - 40  Referral to Specialist for Diagnostic Evaluation

 +6       ;;  and Treatment

 +7       ;; 

HCRFT     ;;

 +1       ;;

 +2       ;; Enter a total CRAFFT score. Range: 0 - 6

 +3       ;; Positive answers to two or more questions is highly predictive

 +4       ;; of an alcohol or drug-related disorder. Further assessment is indicated. 

 +5       ;; 

HASFD     ;;

 +1       ;; Enter number of days without asthma symptoms (chest tightness, cough,

 +2       ;; shortness of breath, or wheezing) in the past two weeks.

 +3       ;;     Value range:  0-14

 +4       ;;

HBPF      ;;

 +1       ;; Also called 'personal best' peak flow recorded during periods of

 +2       ;; symptom control. Often recorded from home and self-reported.

 +3       ;;     Value range: 50-1000 L/min.

 +4       ;;

HFEF      ;;

 +1       ;; Enter in percent the average flow of air during the middle portion of

 +2       ;; expiration.  Value range: 0-150.  Enter a whole number only.

 +3       ;;

HFEV1     ;;

 +1       ;; Enter in liters the maximum amount of air exhaled in one second.

 +2       ;;     Value range:  0-10 liters,  enter a whole number between 0 and 10.

 +3       ;;

HFV1P     ;;

 +1       ;; Enter in percent the maximum amount of air exhaled in one second.

 +2       ;; Measured in percent to compare to population statistics.

 +3       ;;     Value range:  0-150.  Enter a whole number only.

 +4       ;;

HFVC      ;;

 +1       ;; Enter in liters the maximum amount of air inhaled and exhaled.

 +2       ;;     Value range:  0-10 liters, enter a whole number between 0 and 10.

 +3       ;;

HFVCP     ;;

 +1       ;; Enter in percent the maximum amount of air inhaled and exhaled.

 +2       ;;     Value range:  0-150.

 +3       ;;

HFVFC     ;;

 +1       ;; Enter as FEV1/FVC (6/8).  FEV1 and FVC must be between

 +2       ;;   0 and 10 liters; these readings are taken from a spirometer. 

 +3       ;;

HAUDC     ;;

 +1       ;; Enter a total AUDIT-C score. Range: 0-12

 +2       ;; The AUDIT-C (the first three AUDIT questions which focus on alcohol 

 +3       ;; consumption) is scored on a scale of 0-12 (scores of 0 reflect no 

 +4       ;; alcohol use). In men, a score of 4 or more is considered positive; in 

 +5       ;; women, a score of 3 or more is considered positive. A positive score

 +6       ;; means the patient is at increased risk for hazardous drinking or active 

 +7       ;; alcohol abuse or dependence. 

 +8       ;; 

HADM      ;;

 +1       ;; Enter the number of work or school days missed related to asthma

 +2       ;; in the past two weeks.

 +3       ;;     Value range: 0-14

 +4       ;;

HLKW      ;;

 +1       ;;Enter date/time last time patient was known to be without signs/symptoms

 +2       ;;of current stroke.  When onset is witnessed, the last known well is identical

 +3       ;;to time of symptoms onset.

 +4       ;;