LA7HLP.m

LA7HLP ; IHS/DIR/FJE - HELP TEXT FOR MESSAGING FIELDS ;

 ;;5.2;LA;;NOV 01, 1997

 ;;5.2;LAB MESSAGING;**17**;Feb 29, 1996

 QUIT

 ;;HL7 TABLE 0070 source of specimen, used for help and input xform

 ;;in field .08 of file 61 and field .08 of file 62

TBL70 ;;

 ;;Enter the two to four character code from the left column:

 ;; 

 ;;ABS^Abcess

 ;;AMN^Amniotic fluid

 ;;ASP^Aspirate

 ;;BPH^Basophils

 ;;ABLD^Blood arterial

 ;;BBL^Blood bag

 ;;BON^Bone

 ;;BRTH^Breath

 ;;BRO^Bronchial

 ;;BRN^Burn

 ;;CALC^Calculus

 ;;CDM^Cardiac muscle

 ;;CNL^Cannula

 ;;CTP^Catheter tip

 ;;CSF^Cerebral spinal fluid

 ;;CVM^Cervical mucus

 ;;CVX^Cervix

 ;;COL^Colostrum

 ;;CBLD^Cord blood

 ;;CNJT^Conjunctiva

 ;;CUR^Curettageputum

 ;;CYST^Cyst

 ;;DRN^Drain

 ;;EAR^Ear

 ;;ELT^Electrode

 ;;ENDC^Endocardium

 ;;ENDM^Endometrium

 ;;EOS^Eosinophils

 ;;RBC^Erythrocytes

 ;;FIB^Fibrolasts

 ;;FLT^Filter

 ;;FIST^Fistula

 ;;FLU^Body fluid, unsp

 ;;GAST^Gastric fluid

 ;;GEN^Genital

 ;;GENC^Genital, cervix

 ;;GENL^Genital lochia

 ;;GENV^Genital vaginal

 ;;HAR^Hair

 ;;IT^Intubation tube

 ;;LAM^Lamella

 ;;WBC^Leucocytes

 ;;LN^Line

 ;;LNA^Line arterial

 ;;LNV^Line venous

 ;;LYM^Lymphocytes

 ;;MAC^Macrophages

 ;;MAR^Marrow

 ;;MEC^Meconium

 ;;MBLD^Menstrual blood

 ;;MLK^Milk

 ;;MILK^Breast Milk

 ;;NAIL^Nail

 ;;NOS^Nose (nasal passage)

 ;;ORH^Other

 ;;PRT^Peritoneal fluid ascites

 ;;PER^Peritoneum

 ;;PLC^Placenta

 ;;PLAS^Plasma

 ;;PLB^Plasma bag

 ;;PLR^Pleural fluid (thoracentesis fld)

 ;;PMN^Polymorphonuclear neutrophils

 ;;PUS^Pus

 ;;SAL^Saliva

 ;;SEM^Seminal fluid

 ;;SER^Serum

 ;;SKN^Skin

 ;;SKM^Skeletal muscle

 ;;SPRM^Spermatozoa

 ;;SPT^Sputum

 ;;SPTC^Sputum coughed

 ;;SPTT^Sputum tracheal aspirate

 ;;STON^Stone

 ;;STL^Stool = Fecal

 ;;SWT^Sweat

 ;;SNV^Synovial fluid = Joint fluid

 ;;TEAR^Tears

 ;;THRT^Throat

 ;;THRB^Thrombocyte (platelet)

 ;;TISS^Tissue

 ;;TISB^Tissue bone marrow

 ;;TISG^Tissue gall bladder

 ;;TISL^Tissue lung

 ;;TISP^Tissue peritoneum

 ;;TISU^Tissue ulcer

 ;;TISC^Tissue curettage

 ;;TISPL^Tissue placenta

 ;;ULC^Ulcer

 ;;UMB^Umbilical blood

 ;;UR^Urine

 ;;URTH^Urethra

 ;;URC^Urine clean catch

 ;;URT^Urine catheter

 ;;VOM^Vomitus

 ;;BLD^Whole blood

 ;;BDY^Whole body

 ;;WICK^Wick

 ;;WND^Wound

 ;;WNDA^Wound abcess

 ;;WNDE^Wound exudate

 ;;WNDD^Wound drainage

 ;;

 QUIT

SHOW N LA7,LA71

 D HOME^%ZIS

 W @IOF

 F LA7=1:1 S LA71=$P($T(TBL70+LA7),";;",2) Q:LA71=""  D  Q:LA71=-1

 . K DIRUT

 . I (IOSL-$Y)<3 K DIR S DIR(0)="E" D ^DIR K DIR W @IOF

 . I $D(DIRUT) S LA71=-1 QUIT  ;>>>

 . W !,$P(LA71,"^"),?10,$P(LA71,"^",2)

 QUIT

XFORM(X) ;Input transform for field .08 file 61, and field .08 file 62

 ;X is the value entered by the user, this subroutine checks to make

 ;sure that the value matches a valid code.  This function evaluates

 ;to true if X is okay, false if X is not valid. 

 N LA7,LA71

 F LA7=1:1 S LA71=$P($T(TBL70+LA7),";;",2) Q:LA71=""  D

 . S LA71=$P(LA71,"^") ;get the 2 to 4 char abbreviation

 . Q:LA71=""

 . S LA71(LA71)=""

 QUIT $D(LA71(X))

LA7HLP    ; IHS/DIR/FJE - HELP TEXT FOR MESSAGING FIELDS ;

 +1       ;;5.2;LA;;NOV 01, 1997

 +2       ;;5.2;LAB MESSAGING;**17**;Feb 29, 1996

 +3        QUIT 

 +4       ;;HL7 TABLE 0070 source of specimen, used for help and input xform

 +5       ;;in field .08 of file 61 and field .08 of file 62

TBL70     ;;

 +1       ;;Enter the two to four character code from the left column:

 +2       ;; 

 +3       ;;ABS^Abcess

 +4       ;;AMN^Amniotic fluid

 +5       ;;ASP^Aspirate

 +6       ;;BPH^Basophils

 +7       ;;ABLD^Blood arterial

 +8       ;;BBL^Blood bag

 +9       ;;BON^Bone

 +10      ;;BRTH^Breath

 +11      ;;BRO^Bronchial

 +12      ;;BRN^Burn

 +13      ;;CALC^Calculus

 +14      ;;CDM^Cardiac muscle

 +15      ;;CNL^Cannula

 +16      ;;CTP^Catheter tip

 +17      ;;CSF^Cerebral spinal fluid

 +18      ;;CVM^Cervical mucus

 +19      ;;CVX^Cervix

 +20      ;;COL^Colostrum

 +21      ;;CBLD^Cord blood

 +22      ;;CNJT^Conjunctiva

 +23      ;;CUR^Curettageputum

 +24      ;;CYST^Cyst

 +25      ;;DRN^Drain

 +26      ;;EAR^Ear

 +27      ;;ELT^Electrode

 +28      ;;ENDC^Endocardium

 +29      ;;ENDM^Endometrium

 +30      ;;EOS^Eosinophils

 +31      ;;RBC^Erythrocytes

 +32      ;;FIB^Fibrolasts

 +33      ;;FLT^Filter

 +34      ;;FIST^Fistula

 +35      ;;FLU^Body fluid, unsp

 +36      ;;GAST^Gastric fluid

 +37      ;;GEN^Genital

 +38      ;;GENC^Genital, cervix

 +39      ;;GENL^Genital lochia

 +40      ;;GENV^Genital vaginal

 +41      ;;HAR^Hair

 +42      ;;IT^Intubation tube

 +43      ;;LAM^Lamella

 +44      ;;WBC^Leucocytes

 +45      ;;LN^Line

 +46      ;;LNA^Line arterial

 +47      ;;LNV^Line venous

 +48      ;;LYM^Lymphocytes

 +49      ;;MAC^Macrophages

 +50      ;;MAR^Marrow

 +51      ;;MEC^Meconium

 +52      ;;MBLD^Menstrual blood

 +53      ;;MLK^Milk

 +54      ;;MILK^Breast Milk

 +55      ;;NAIL^Nail

 +56      ;;NOS^Nose (nasal passage)

 +57      ;;ORH^Other

 +58      ;;PRT^Peritoneal fluid ascites

 +59      ;;PER^Peritoneum

 +60      ;;PLC^Placenta

 +61      ;;PLAS^Plasma

 +62      ;;PLB^Plasma bag

 +63      ;;PLR^Pleural fluid (thoracentesis fld)

 +64      ;;PMN^Polymorphonuclear neutrophils

 +65      ;;PUS^Pus

 +66      ;;SAL^Saliva

 +67      ;;SEM^Seminal fluid

 +68      ;;SER^Serum

 +69      ;;SKN^Skin

 +70      ;;SKM^Skeletal muscle

 +71      ;;SPRM^Spermatozoa

 +72      ;;SPT^Sputum

 +73      ;;SPTC^Sputum coughed

 +74      ;;SPTT^Sputum tracheal aspirate

 +75      ;;STON^Stone

 +76      ;;STL^Stool = Fecal

 +77      ;;SWT^Sweat

 +78      ;;SNV^Synovial fluid = Joint fluid

 +79      ;;TEAR^Tears

 +80      ;;THRT^Throat

 +81      ;;THRB^Thrombocyte (platelet)

 +82      ;;TISS^Tissue

 +83      ;;TISB^Tissue bone marrow

 +84      ;;TISG^Tissue gall bladder

 +85      ;;TISL^Tissue lung

 +86      ;;TISP^Tissue peritoneum

 +87      ;;TISU^Tissue ulcer

 +88      ;;TISC^Tissue curettage

 +89      ;;TISPL^Tissue placenta

 +90      ;;ULC^Ulcer

 +91      ;;UMB^Umbilical blood

 +92      ;;UR^Urine

 +93      ;;URTH^Urethra

 +94      ;;URC^Urine clean catch

 +95      ;;URT^Urine catheter

 +96      ;;VOM^Vomitus

 +97      ;;BLD^Whole blood

 +98      ;;BDY^Whole body

 +99      ;;WICK^Wick

 +100     ;;WND^Wound

 +101     ;;WNDA^Wound abcess

 +102     ;;WNDE^Wound exudate

 +103     ;;WNDD^Wound drainage

 +104     ;;

 +105      QUIT 

SHOW       NEW LA7,LA71

 +1        DO HOME^%ZIS

 +2        WRITE @IOF

 +3        FOR LA7=1:1

               SET LA71=$PIECE($TEXT(TBL70+LA7),";;",2)

               IF LA71=""

                   QUIT 

               Begin DoDot:1

 +4                KILL DIRUT

 +5                IF (IOSL-$Y)<3

                       KILL DIR

                       SET DIR(0)="E"

                       DO ^DIR

                       KILL DIR

                       WRITE @IOF

 +6       ;>>>

                   IF $DATA(DIRUT)

                       SET LA71=-1

                       QUIT 

 +7                WRITE !,$PIECE(LA71,"^"),?10,$PIECE(LA71,"^",2)

               End DoDot:1

               IF LA71=-1

                   QUIT 

 +8        QUIT 

XFORM(X)  ;Input transform for field .08 file 61, and field .08 file 62

 +1       ;X is the value entered by the user, this subroutine checks to make

 +2       ;sure that the value matches a valid code.  This function evaluates

 +3       ;to true if X is okay, false if X is not valid. 

 +4        NEW LA7,LA71

 +5        FOR LA7=1:1

               SET LA71=$PIECE($TEXT(TBL70+LA7),";;",2)

               IF LA71=""

                   QUIT 

               Begin DoDot:1

 +6       ;get the 2 to 4 char abbreviation

                   SET LA71=$PIECE(LA71,"^")

 +7                IF LA71=""

                       QUIT 

 +8                SET LA71(LA71)=""

               End DoDot:1

 +9        QUIT $DATA(LA71(X))