LREXECU1.m

LREXECU1 ; IHS/DIR/FJE - EXECTUE CODE UTILITY 1 3/31/88 3:54 PM ; [ 07/30/2002  11:01 AM ]

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;

 ;;5.2;LAB SERVICE;;Sep 27, 1994

 ;

VIRAL ;ANMC-IHS/RGG;VIRAL SERUM TITER SAMPLE;JAN 31,1992

 K DIR S DIR(0)="SBO^A:ACUTE;C:CONVALESCENT" S DIR("T")=300

 S DIR("A")="Is the sample ACUTE or CONVALESCENT"

 S DIR("?",1)="YOU MUST ANSWER THIS QUESTION!"

 S DIR("?")="Just enter a 'A' or 'C'." D ^DIR

 I X["^"!(X="") W *7,!,"YOU MUST ANSWER THIS QUESTION!" G VIRAL

 I Y="A" W !!,"   Hold sample in freezer and submit to Reference Lab" W !,"    with the Convalescent sample."  S X="ACUTE"

 I Y="C" W !!,"   Submit this sample to the Reference Lab with the" W !,"    previous sample being held in the freezer." S X="CONVALESCENT"

 S LRCCOM="~SAMPLE IS EXPECTED TO BE "_X_"." D RCS^LRORD2,RCS^LRXO9

 R !!,"ADDITIONAL COMMENT: ",LRCCOM:DTIME Q

 Q

HEP ;ANMC-IHS/RGG;HEPATITIS INTERPETATIONS;MARCH 16,1992

 S VAR=$CHAR(10,13) S LRCCOM="~"_VAR

 F INDEX=1:1:4 S LRCCOM=LRCCOM_$P($TEXT(OPTIONS+INDEX),";",3)_VAR

 D LOADCCOM

 S LRCCOM="~"_VAR

 F INDEX=5:1:8 S LRCCOM=LRCCOM_$P($TEXT(OPTIONS+INDEX),";",3)_VAR

 D LOADCCOM

 S LRCCOM="~"_VAR

 F INDEX=9:1:10 S LRCCOM=LRCCOM_$P($TEXT(OPTIONS+INDEX),";",3)_VAR

 D LOADCCOM

 S LRCCOM="~"_VAR

 F INDEX=11:1:14 S LRCCOM=LRCCOM_$P($TEXT(OPTIONS+INDEX),";",3)_VAR

 D LOADCCOM

 S LRCCOM="~"_VAR

 F INDEX=15:1:16 S LRCCOM=LRCCOM_$P($TEXT(OPTIONS+INDEX),";",3)_VAR

 D RCS^LRORD2,RCS^LRXO9

ADDCCOM ;

 R !,"ADDITIONAL COMMENTS: ",LRCCOM:DTIME Q

LOADCCOM ;

 D RCS^LRORD2,RCS^LRXO9

 Q

LDL ;ANMC-IHS/RGG ; ROUTINE TO CALCULATE THE LDL ; 12/7/92

 Q:'$D(LRSB(80))!'$D(LRSB(12))!'$D(LRSB(47))

 I (LRSB(12)["c")!(LRSB(47)["c")!(LRSB(80)["c")!(LRSB(80)["p")!($P(LRSB(47),"^")>400) W !,"UNABLE TO CALCULATE LDL, DUE TO ELEVATED TRIG OR LACK OF DATA." S LRSB(292)="canc" D CHOLHDL G ENDLDL

 I $D(LRSB(12)),$D(LRSB(47)),$D(LRSB(80)) S LRCHOL=$P(LRSB(12),"^"),LRTRIG=$P(LRSB(47),"^"),LRHDL=$P(LRSB(80),"^"),LRSB(292)=LRCHOL-LRHDL-(LRTRIG/5),LRSB(293)=$J(LRCHOL/LRHDL,0,1)

 G ENDLDL

CHOLHDL S LRCHOL=$P(LRSB(12),"^"),LRHDL=$P(LRSB(80),"^")

 I (LRCHOL!LRHDL'?.N)!(LRHDL=0) S LRSB(293)="canc" W !!,"UNABLE TO CALCULATE RATIO DUE TO LACK OF DATA" Q  ;IHS/ANMC/RPM 09/23/93

 I (LRHDL'?.N)!(LRHDL=0) S LRSB(293)="canc" Q

 S LRSB(293)=$J(LRCHOL/LRHDL,0,1)

 Q

ENDLDL K LRCHOL,LRHDL,LRTRIG

 Q

CHLAMYDI ;ANMC-IHS/RGG ; NON STANDARD COLLECTION SPECIMEN ; 10/15/92

 S LRCCOM="~Effective 9/4/92 this test has been FDA cleared for endocervical,male urethral and conjunctival swab specimens only. Results from other sites may not be accurate." D RCS^LRORD2,RCS^LRXO9

 R !,"ADDITIONAL COMMENTS: ",LRCCOM:DTIME Q

 Q

OPTIONS ;

 ;;INTERPETATIONS                 HAIgG HAIgM HBsAg HBsAb HBcAb HBeAg HBeAb HDAb

 ;;Past history of HAV infection     +     -

 ;;Recent or current HAV infection   +     +

 ;;No prior HBV exposure                                    -

 ;;Immune via vaccine, no exposure              -     +     -

 ;;Immune prior infection                       -     +     +

 ;;Convalescense window, ?immunity,

 ;;? carrier, ?false positive                   -     -     +

 ;;Early infection or false positive            +     -     -     -     -

 ;;Acute or chronic HBV                         +     -     +     -     -

 ;;Acute HBV, or chronic infection

 ;;very infectious!                             +     -     +     +     -

 ;;Early recovery, acute or chronic

 ;;infection                                    +     +     +     -   (+/-)

 ;;Positive for Delta Ab, may or

 ;;Co-infection w/ Delta & HBV                  +   (+/-)   +   (+/-) (+/-)   +

HIVRISK ;ANMC-IHS/RGG;HIV RISK PROMPT;4/11/92

 K DIR S DIR(0)="NA^1:31" S DIR("T")=300

 S DIR("A")="HIV RISK CATEGORY (1-31):"

 S DIR("?",1)="01-PHYSICIAN                          16-PROSTITUTE"

 S DIR("?",2)="02-NURSES                             17-CONTACT:BISEXUAL"

 S DIR("?",3)="03-DENTIST                            18-CONTACT:IV DRUG USER"

 S DIR("?",4)="04-DENTAL HYGIENTIST                  19-CONTACT:PROSTITUTE"

 S DIR("?",5)="05-HOUSEHOLD CONTACT/KNOWN CARRIER    20-BLOOD DONOR"

 S DIR("?",6)="06-INMATE/CORRECTIONAL FACILITY       21-HISTORY OF RECENT TRANSFUSION"

 S DIR("?",7)="07-HOMOSEXUAL                         22-HEMOPHILIAC"

 S DIR("?",8)="08-PATIENT/INST.MENTALLY RETARDED     23-PREVIOUS HB SURFACE ANTIGEN POS"

 S DIR("?",9)="09-STAFF/INST.MENTALLY RETARDED       24-PREVIOUS HB CORE ANTIBODY POS"

 S DIR("?",10)="10-HOSP.STAFF (NOT MD OR NURSE)       25-PAST HISTORY OF HEPATITIS"

 S DIR("?",11)="11-INFANT BORN TO CARRIER MOTHER      26-IMMUNIZED:HBs ANTIBODY CHECK"

 S DIR("?",12)="12-INJECTABLE DRUG USER               27-FREQUENT HETEROSEXUAL PARTNERS"

 S DIR("?",13)="13-OTHER (SPECIFY IN REMARKS)         28-HEPATITIS CASE"

 S DIR("?",14)="14-PRENATAL SCREEN                    29-PREVIOUS HTLV III POSITIVE"

 S DIR("?",15)="15-BISEXUAL                           31-SEXUAL CONTACT:KNOWN HIV (+)"

 S DIR("?")="30-STATE PUBLIC HEALTH LABORATORY - FAIRBANKS QUALITY CONTROL TESTS"

 D ^DIR

 I X["^"!(X="") W *7,!,"You MUST Supply a HIV RISK Category!" G HIVRISK

 S:$S($D(LRCOM(LRSAMP,LRSPEC,1)):$S(LRCOM(LRSAMP,LRSPEC,1)["~For Test:":1,1:0),1:0) LRCOM(LRSAMP,LRSPEC)=0

 S RISKCOM="HIV RISK CATEGORY IS "_X

 R !,"ADDITIONAL REMARKS: ",REMCOM:DTIME

 S LRCCOM=RISKCOM_"     "_REMCOM

 Q

LREXECU1  ; IHS/DIR/FJE - EXECTUE CODE UTILITY 1 3/31/88 3:54 PM ; [ 07/30/2002  11:01 AM ]

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +4       ;

VIRAL     ;ANMC-IHS/RGG;VIRAL SERUM TITER SAMPLE;JAN 31,1992

 +1        KILL DIR

           SET DIR(0)="SBO^A:ACUTE;C:CONVALESCENT"

           SET DIR("T")=300

 +2        SET DIR("A")="Is the sample ACUTE or CONVALESCENT"

 +3        SET DIR("?",1)="YOU MUST ANSWER THIS QUESTION!"

 +4        SET DIR("?")="Just enter a 'A' or 'C'."

           DO ^DIR

 +5        IF X["^"!(X="")

               WRITE *7,!,"YOU MUST ANSWER THIS QUESTION!"

               GOTO VIRAL

 +6        IF Y="A"

               WRITE !!,"   Hold sample in freezer and submit to Reference Lab"

               WRITE !,"    with the Convalescent sample."

               SET X="ACUTE"

 +7        IF Y="C"

               WRITE !!,"   Submit this sample to the Reference Lab with the"

               WRITE !,"    previous sample being held in the freezer."

               SET X="CONVALESCENT"

 +8        SET LRCCOM="~SAMPLE IS EXPECTED TO BE "_X_"."

           DO RCS^LRORD2

           DO RCS^LRXO9

 +9        READ !!,"ADDITIONAL COMMENT: ",LRCCOM:DTIME

           QUIT 

 +10       QUIT 

HEP       ;ANMC-IHS/RGG;HEPATITIS INTERPETATIONS;MARCH 16,1992

 +1        SET VAR=$CHAR(10,13)

           SET LRCCOM="~"_VAR

 +2        FOR INDEX=1:1:4

               SET LRCCOM=LRCCOM_$PIECE($TEXT(OPTIONS+INDEX),";",3)_VAR

 +3        DO LOADCCOM

 +4        SET LRCCOM="~"_VAR

 +5        FOR INDEX=5:1:8

               SET LRCCOM=LRCCOM_$PIECE($TEXT(OPTIONS+INDEX),";",3)_VAR

 +6        DO LOADCCOM

 +7        SET LRCCOM="~"_VAR

 +8        FOR INDEX=9:1:10

               SET LRCCOM=LRCCOM_$PIECE($TEXT(OPTIONS+INDEX),";",3)_VAR

 +9        DO LOADCCOM

 +10       SET LRCCOM="~"_VAR

 +11       FOR INDEX=11:1:14

               SET LRCCOM=LRCCOM_$PIECE($TEXT(OPTIONS+INDEX),";",3)_VAR

 +12       DO LOADCCOM

 +13       SET LRCCOM="~"_VAR

 +14       FOR INDEX=15:1:16

               SET LRCCOM=LRCCOM_$PIECE($TEXT(OPTIONS+INDEX),";",3)_VAR

 +15       DO RCS^LRORD2

           DO RCS^LRXO9

ADDCCOM   ;

 +1        READ !,"ADDITIONAL COMMENTS: ",LRCCOM:DTIME

           QUIT 

LOADCCOM  ;

 +1        DO RCS^LRORD2

           DO RCS^LRXO9

 +2        QUIT 

LDL       ;ANMC-IHS/RGG ; ROUTINE TO CALCULATE THE LDL ; 12/7/92

 +1        IF '$DATA(LRSB(80))!'$DATA(LRSB(12))!'$DATA(LRSB(47))

               QUIT 

 +2        IF (LRSB(12)["c")!(LRSB(47)["c")!(LRSB(80)["c")!(LRSB(80)["p")!($PIECE(LRSB(47),"^")>400)

               WRITE !,"UNABLE TO CALCULATE LDL, DUE TO ELEVATED TRIG OR LACK OF DATA."

               SET LRSB(292)="canc"

               DO CHOLHDL

               GOTO ENDLDL

 +3        IF $DATA(LRSB(12))

               IF $DATA(LRSB(47))

                   IF $DATA(LRSB(80))

                       SET LRCHOL=$PIECE(LRSB(12),"^")

                       SET LRTRIG=$PIECE(LRSB(47),"^")

                       SET LRHDL=$PIECE(LRSB(80),"^")

                       SET LRSB(292)=LRCHOL-LRHDL-(LRTRIG/5)

                       SET LRSB(293)=$JUSTIFY(LRCHOL/LRHDL,0,1)

 +4        GOTO ENDLDL

CHOLHDL    SET LRCHOL=$PIECE(LRSB(12),"^")

           SET LRHDL=$PIECE(LRSB(80),"^")

 +1       ;IHS/ANMC/RPM 09/23/93

           IF (LRCHOL!LRHDL'?.N)!(LRHDL=0)

               SET LRSB(293)="canc"

               WRITE !!,"UNABLE TO CALCULATE RATIO DUE TO LACK OF DATA"

               QUIT 

 +2        IF (LRHDL'?.N)!(LRHDL=0)

               SET LRSB(293)="canc"

               QUIT 

 +3        SET LRSB(293)=$JUSTIFY(LRCHOL/LRHDL,0,1)

 +4        QUIT 

ENDLDL     KILL LRCHOL,LRHDL,LRTRIG

 +1        QUIT 

CHLAMYDI  ;ANMC-IHS/RGG ; NON STANDARD COLLECTION SPECIMEN ; 10/15/92

 +1        SET LRCCOM="~Effective 9/4/92 this test has been FDA cleared for endocervical,male urethral and conjunctival swab specimens only. Results from other sites may not be accurate."

           DO RCS^LRORD2

           DO RCS^LRXO9

 +2        READ !,"ADDITIONAL COMMENTS: ",LRCCOM:DTIME

           QUIT 

 +3        QUIT 

OPTIONS   ;

 +1       ;;INTERPETATIONS                 HAIgG HAIgM HBsAg HBsAb HBcAb HBeAg HBeAb HDAb

 +2       ;;Past history of HAV infection     +     -

 +3       ;;Recent or current HAV infection   +     +

 +4       ;;No prior HBV exposure                                    -

 +5       ;;Immune via vaccine, no exposure              -     +     -

 +6       ;;Immune prior infection                       -     +     +

 +7       ;;Convalescense window, ?immunity,

 +8       ;;? carrier, ?false positive                   -     -     +

 +9       ;;Early infection or false positive            +     -     -     -     -

 +10      ;;Acute or chronic HBV                         +     -     +     -     -

 +11      ;;Acute HBV, or chronic infection

 +12      ;;very infectious!                             +     -     +     +     -

 +13      ;;Early recovery, acute or chronic

 +14      ;;infection                                    +     +     +     -   (+/-)

 +15      ;;Positive for Delta Ab, may or

 +16      ;;Co-infection w/ Delta & HBV                  +   (+/-)   +   (+/-) (+/-)   +

HIVRISK   ;ANMC-IHS/RGG;HIV RISK PROMPT;4/11/92

 +1        KILL DIR

           SET DIR(0)="NA^1:31"

           SET DIR("T")=300

 +2        SET DIR("A")="HIV RISK CATEGORY (1-31):"

 +3        SET DIR("?",1)="01-PHYSICIAN                          16-PROSTITUTE"

 +4        SET DIR("?",2)="02-NURSES                             17-CONTACT:BISEXUAL"

 +5        SET DIR("?",3)="03-DENTIST                            18-CONTACT:IV DRUG USER"

 +6        SET DIR("?",4)="04-DENTAL HYGIENTIST                  19-CONTACT:PROSTITUTE"

 +7        SET DIR("?",5)="05-HOUSEHOLD CONTACT/KNOWN CARRIER    20-BLOOD DONOR"

 +8        SET DIR("?",6)="06-INMATE/CORRECTIONAL FACILITY       21-HISTORY OF RECENT TRANSFUSION"

 +9        SET DIR("?",7)="07-HOMOSEXUAL                         22-HEMOPHILIAC"

 +10       SET DIR("?",8)="08-PATIENT/INST.MENTALLY RETARDED     23-PREVIOUS HB SURFACE ANTIGEN POS"

 +11       SET DIR("?",9)="09-STAFF/INST.MENTALLY RETARDED       24-PREVIOUS HB CORE ANTIBODY POS"

 +12       SET DIR("?",10)="10-HOSP.STAFF (NOT MD OR NURSE)       25-PAST HISTORY OF HEPATITIS"

 +13       SET DIR("?",11)="11-INFANT BORN TO CARRIER MOTHER      26-IMMUNIZED:HBs ANTIBODY CHECK"

 +14       SET DIR("?",12)="12-INJECTABLE DRUG USER               27-FREQUENT HETEROSEXUAL PARTNERS"

 +15       SET DIR("?",13)="13-OTHER (SPECIFY IN REMARKS)         28-HEPATITIS CASE"

 +16       SET DIR("?",14)="14-PRENATAL SCREEN                    29-PREVIOUS HTLV III POSITIVE"

 +17       SET DIR("?",15)="15-BISEXUAL                           31-SEXUAL CONTACT:KNOWN HIV (+)"

 +18       SET DIR("?")="30-STATE PUBLIC HEALTH LABORATORY - FAIRBANKS QUALITY CONTROL TESTS"

 +19       DO ^DIR

 +20       IF X["^"!(X="")

               WRITE *7,!,"You MUST Supply a HIV RISK Category!"

               GOTO HIVRISK

 +21       IF $SELECT($DATA(LRCOM(LRSAMP,LRSPEC,1))

               SET LRCOM(LRSAMP,LRSPEC)=0

 +22       SET RISKCOM="HIV RISK CATEGORY IS "_X

 +23       READ !,"ADDITIONAL REMARKS: ",REMCOM:DTIME

 +24       SET LRCCOM=RISKCOM_"     "_REMCOM

 +25       QUIT