AMQQSQIM.m

AMQQSQIM ; IHS/CMI/THL - IMMUNIZATION INFO ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

RUN D SER

 I $D(AMQQQUIT) G EXIT

 S X=AMQQSQSJ

 S AMQQCOMP=";;;"_$G(AMQQISR)

 I $D(AMQQRECV) S $P(AMQQRECV,U,11)=$G(AMQQISR)

EXIT K AMQQISR,AMQQIMMS,Y,AMQQIV1,AMQQIV2,AMQQIMDT,%

 Q

 ;

SER I AMQQSQSJ'["MR",AMQQSQSJ'["DTP",AMQQSQSJ'["VAR",AMQQSQSJ'["HIB V",AMQQSQSJ'["HEPATITIS",AMQQSQSJ'["OPV",AMQQSQSJ'["IPV",AMQQSQSJ'["DPT",AMQQSQSJ'["DT",AMQQSQSJ'["Td",AMQQSQSJ'["TD",AMQQSQSJ'["TETANUS TOXOID" S AMQQISR="A" Q

 I '$D(AMQQIMMS) S AMQQIMMS=AMQQSQSJ

 S %=$E(AMQQIMMS,$L(AMQQIMMS))

 K AMQQISR

 I "12345BA"[% S AMQQISR=% K AMQQIMMS

 I '$D(AMQQISR) D SERIES

 Q

 ;

SERIES S AMQQISR="A"

 Q

 ;

SHELP W !!,"Select from one of the following =>",!!

 W ?3,"1-5  Primary series number",!

 W ?3,"A    Display ALL immunizations in the series",!

 W ?3,"B    BOOSTER",!

 W ?3,"C    Series COMPLETED",!

 W ?3,"U    Series number UNSPECIFIED",!!!

 Q

 ;

AMQQSQIM  ; IHS/CMI/THL - IMMUNIZATION INFO ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

RUN        DO SER

 +1        IF $DATA(AMQQQUIT)

               GOTO EXIT

 +2        SET X=AMQQSQSJ

 +3        SET AMQQCOMP=";;;"_$GET(AMQQISR)

 +4        IF $DATA(AMQQRECV)

               SET $PIECE(AMQQRECV,U,11)=$GET(AMQQISR)

EXIT       KILL AMQQISR,AMQQIMMS,Y,AMQQIV1,AMQQIV2,AMQQIMDT,%

 +1        QUIT 

 +2       ;

SER        IF AMQQSQSJ'["MR"

               IF AMQQSQSJ'["DTP"

                   IF AMQQSQSJ'["VAR"

                       IF AMQQSQSJ'["HIB V"

                           IF AMQQSQSJ'["HEPATITIS"

                               IF AMQQSQSJ'["OPV"

                                   IF AMQQSQSJ'["IPV"

                                       IF AMQQSQSJ'["DPT"

                                           IF AMQQSQSJ'["DT"

                                               IF AMQQSQSJ'["Td"

                                                   IF AMQQSQSJ'["TD"

                                                       IF AMQQSQSJ'["TETANUS TOXOID"

                                                           SET AMQQISR="A"

                                                           QUIT 

 +1        IF '$DATA(AMQQIMMS)

               SET AMQQIMMS=AMQQSQSJ

 +2        SET %=$EXTRACT(AMQQIMMS,$LENGTH(AMQQIMMS))

 +3        KILL AMQQISR

 +4        IF "12345BA"[%

               SET AMQQISR=%

               KILL AMQQIMMS

 +5        IF '$DATA(AMQQISR)

               DO SERIES

 +6        QUIT 

 +7       ;

SERIES     SET AMQQISR="A"

 +1        QUIT 

 +2       ;

SHELP      WRITE !!,"Select from one of the following =>",!!

 +1        WRITE ?3,"1-5  Primary series number",!

 +2        WRITE ?3,"A    Display ALL immunizations in the series",!

 +3        WRITE ?3,"B    BOOSTER",!

 +4        WRITE ?3,"C    Series COMPLETED",!

 +5        WRITE ?3,"U    Series number UNSPECIFIED",!!!

 +6        QUIT 

 +7       ;