LA7HLP ;DALISC/JRR - HELP TEXT FOR MESSAGING FIELDS
;;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))
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLA7HLP 3059 printed Nov 22, 2024@16:49:22 Page 2
LA7HLP ;DALISC/JRR - HELP TEXT FOR MESSAGING FIELDS
+1 ;;5.2;LAB MESSAGING;**17**;Feb 29, 1996
+2 QUIT
+3 ;;HL7 TABLE 0070 source of specimen, used for help and input xform
+4 ;;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))
