BILOT2.m

BILOT2 ;IHS/CMI/MWR - EDIT LOT NUMBERS.; MAY 10, 2010

 ;;8.5;IMMUNIZATION;**3**;SEP 10,2012

 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *

 ;;  EDIT VACCINE FIELDS: CURRENT LOT, ACTIVE, VIS DATE DEFAULT.

 ;   PATCH 2: Make Display Inactives a separate Action.  CHGORDR+11

 ;   PATCH 3: Correct leftover prompt from Inactive question. DISPLYI+7

 ;

 ;

 ;----------

LOTDVAL(BIX) ;EP

 ;---> Sub-Lot data validation for Field 1.5, BI FORM-LOT NUMBER EDIT

 ;---> Parameters:

 ;     1 - BIX (req) The value of the Lot Number.

 ;

 Q:($G(X)="")  Q:($G(X)=0)

 ;

 I $D(^AUTTIML("B",BIX)) D  Q

 .S DDSSTACK="BI PAGE-LOT DUPLICATE WARNING"

 .;N Y S Y="This Lot Number already exists.  Please exit and select it from"

 .;S Y=Y_" the list.  (NOTE: It It may be Inactive. Try displaying Inactive as"

 .;S Y=Y_"well as Active.)"

 .;D HLP^DDSUTL(Y) S DDSERROR=1

 ;

 I BIX["*" D

 .S Y="The Lot Number may not contain an asterisk, ""*"". (This symbol is used to"

 .S Y=Y_" separate the Lot Number from the Sub-lot, if one is appended.)"

 .D HLP^DDSUTL(Y) S DDSERROR=1

 Q

 ;

 ;

 ;----------

SUBLOTD(BIA,BIX) ;EP

 ;---> Sub-Lot data validation for Field 1.5, BI FORM-LOT NUMBER EDIT

 ;---> Parameters:

 ;     1 - BIA (req) The value of the Lot Number.

 ;     2 - BIX   (req) The sub-lot entered.

 ;

 N Y,X

 Q:($G(BIX)="")

 S X=+(19-$L($G(BIA)))

 I $L($G(BIX))>(19-$L($G(BIA))) D  Q

 .S Y="The Sub-lot you entered, "_$G(BIX)_", is too long for this Lot Number."

 .S Y=Y_"  This Sub-lot must be "_X_" characters or less."

 .D HLP^DDSUTL(Y) S DDSERROR=1

 ;

 I BIX["*" D

 .S Y="The Sub-lot may not contain an asterisk, ""*"".  This symbol is used to"

 .S Y=Y_" separate the Lot Number from the Sub-lot."

 .D HLP^DDSUTL(Y) S DDSERROR=1

 Q

 ;

 ;

 ;----------

SUBLOTH(BIA) ;EP

 ;---> Sub-Lot Help for Field 1.5, BI FORM-LOT NUMBER EDIT

 ;---> Parameters:

 ;     1 - BIA (req) The value of the Lot Number.

 ;

 N X,Y

 S X=+(19-$L($G(BIA)))

 S Y="Enter/edit the Sub-lot suffix, if desired.  "

 D

 .I X S Y=Y_"The suffix for this Lot Number may be up to "_X_" characters long." Q

 .S Y=Y_"This Lot Number is too long for a sub-lot suffix."

 D HLP^DDSUTL(Y)

 Q

 ;

 ;

 ;----------

CHGORDR ;EP

 ;---> Menu for selecting Lot listing order.

 ;

 D FULL^VALM1,TITLE^BIUTL5("SELECT LOT LISTING ORDER"),TEXT2^BILOT1

 N DIR,Y

 S DIR(0)="SOA^"_$G(BISUBT)

 S DIR("A")="     Please select 1, 2, 3, 4, 5, or 6: "

 S DIR("B")=$G(BICOLL)

 D ^DIR

 S:(Y>0) BICOLL=Y

 ;

 ;********** PATCH 2, v8.5, MAY 15,2012, IHS/CMI/MWR

 ;---> Make Display Inactives a separate Action.

 ;I Y="^" D RESET^BILOT1 Q

 D RESET^BILOT1

 Q

 ;

 ;

 ;----------

DISPLYI ;EP

 ;---> Display Inactive Lot Numbers.

 ;---> Called by Protocol:

 ;

 D FULL^VALM1,TITLE^BIUTL5("DISPLAY INACTIVE LOT NUMBERS YES/NO")

 W !!,"   Do you wish to include INACTIVE Lots in this display?"

 ;********** PATCH 3, v8.5, SEP 10,2012, IHS/CMI/MWR

 ;---> Remove leftover "NO" prompt by N DIR.

 N DIR

 ;**********

 S DIR("?")="     Enter YES to include INACTIVE Lots."

 S DIR(0)="Y",DIR("A")="   Enter Yes or No",DIR("B")="NO"

 D ^DIR

 S BIINACT=$S(Y>0:1,1:0)

 D RESET^BILOT1

 Q

 ;**********

BILOT2    ;IHS/CMI/MWR - EDIT LOT NUMBERS.; MAY 10, 2010

 +1       ;;8.5;IMMUNIZATION;**3**;SEP 10,2012

 +2       ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *

 +3       ;;  EDIT VACCINE FIELDS: CURRENT LOT, ACTIVE, VIS DATE DEFAULT.

 +4       ;   PATCH 2: Make Display Inactives a separate Action.  CHGORDR+11

 +5       ;   PATCH 3: Correct leftover prompt from Inactive question. DISPLYI+7

 +6       ;

 +7       ;

 +8       ;----------

LOTDVAL(BIX) ;EP

 +1       ;---> Sub-Lot data validation for Field 1.5, BI FORM-LOT NUMBER EDIT

 +2       ;---> Parameters:

 +3       ;     1 - BIX (req) The value of the Lot Number.

 +4       ;

 +5        IF ($GET(X)="")

               QUIT 

           IF ($GET(X)=0)

               QUIT 

 +6       ;

 +7        IF $DATA(^AUTTIML("B",BIX))

               Begin DoDot:1

 +8                SET DDSSTACK="BI PAGE-LOT DUPLICATE WARNING"

 +9       ;N Y S Y="This Lot Number already exists.  Please exit and select it from"

 +10      ;S Y=Y_" the list.  (NOTE: It It may be Inactive. Try displaying Inactive as"

 +11      ;S Y=Y_"well as Active.)"

 +12      ;D HLP^DDSUTL(Y) S DDSERROR=1

               End DoDot:1

               QUIT 

 +13      ;

 +14       IF BIX["*"

               Begin DoDot:1

 +15               SET Y="The Lot Number may not contain an asterisk, ""*"". (This symbol is used to"

 +16               SET Y=Y_" separate the Lot Number from the Sub-lot, if one is appended.)"

 +17               DO HLP^DDSUTL(Y)

                   SET DDSERROR=1

               End DoDot:1

 +18       QUIT 

 +19      ;

 +20      ;

 +21      ;----------

SUBLOTD(BIA,BIX) ;EP

 +1       ;---> Sub-Lot data validation for Field 1.5, BI FORM-LOT NUMBER EDIT

 +2       ;---> Parameters:

 +3       ;     1 - BIA (req) The value of the Lot Number.

 +4       ;     2 - BIX   (req) The sub-lot entered.

 +5       ;

 +6        NEW Y,X

 +7        IF ($GET(BIX)="")

               QUIT 

 +8        SET X=+(19-$LENGTH($GET(BIA)))

 +9        IF $LENGTH($GET(BIX))>(19-$LENGTH($GET(BIA)))

               Begin DoDot:1

 +10               SET Y="The Sub-lot you entered, "_$GET(BIX)_", is too long for this Lot Number."

 +11               SET Y=Y_"  This Sub-lot must be "_X_" characters or less."

 +12               DO HLP^DDSUTL(Y)

                   SET DDSERROR=1

               End DoDot:1

               QUIT 

 +13      ;

 +14       IF BIX["*"

               Begin DoDot:1

 +15               SET Y="The Sub-lot may not contain an asterisk, ""*"".  This symbol is used to"

 +16               SET Y=Y_" separate the Lot Number from the Sub-lot."

 +17               DO HLP^DDSUTL(Y)

                   SET DDSERROR=1

               End DoDot:1

 +18       QUIT 

 +19      ;

 +20      ;

 +21      ;----------

SUBLOTH(BIA) ;EP

 +1       ;---> Sub-Lot Help for Field 1.5, BI FORM-LOT NUMBER EDIT

 +2       ;---> Parameters:

 +3       ;     1 - BIA (req) The value of the Lot Number.

 +4       ;

 +5        NEW X,Y

 +6        SET X=+(19-$LENGTH($GET(BIA)))

 +7        SET Y="Enter/edit the Sub-lot suffix, if desired.  "

 +8        Begin DoDot:1

 +9            IF X

                   SET Y=Y_"The suffix for this Lot Number may be up to "_X_" characters long."

                   QUIT 

 +10           SET Y=Y_"This Lot Number is too long for a sub-lot suffix."

           End DoDot:1

 +11       DO HLP^DDSUTL(Y)

 +12       QUIT 

 +13      ;

 +14      ;

 +15      ;----------

CHGORDR   ;EP

 +1       ;---> Menu for selecting Lot listing order.

 +2       ;

 +3        DO FULL^VALM1

           DO TITLE^BIUTL5("SELECT LOT LISTING ORDER")

           DO TEXT2^BILOT1

 +4        NEW DIR,Y

 +5        SET DIR(0)="SOA^"_$GET(BISUBT)

 +6        SET DIR("A")="     Please select 1, 2, 3, 4, 5, or 6: "

 +7        SET DIR("B")=$GET(BICOLL)

 +8        DO ^DIR

 +9        IF (Y>0)

               SET BICOLL=Y

 +10      ;

 +11      ;********** PATCH 2, v8.5, MAY 15,2012, IHS/CMI/MWR

 +12      ;---> Make Display Inactives a separate Action.

 +13      ;I Y="^" D RESET^BILOT1 Q

 +14       DO RESET^BILOT1

 +15       QUIT 

 +16      ;

 +17      ;

 +18      ;----------

DISPLYI   ;EP

 +1       ;---> Display Inactive Lot Numbers.

 +2       ;---> Called by Protocol:

 +3       ;

 +4        DO FULL^VALM1

           DO TITLE^BIUTL5("DISPLAY INACTIVE LOT NUMBERS YES/NO")

 +5        WRITE !!,"   Do you wish to include INACTIVE Lots in this display?"

 +6       ;********** PATCH 3, v8.5, SEP 10,2012, IHS/CMI/MWR

 +7       ;---> Remove leftover "NO" prompt by N DIR.

 +8        NEW DIR

 +9       ;**********

 +10       SET DIR("?")="     Enter YES to include INACTIVE Lots."

 +11       SET DIR(0)="Y"

           SET DIR("A")="   Enter Yes or No"

           SET DIR("B")="NO"

 +12       DO ^DIR

 +13       SET BIINACT=$SELECT(Y>0:1,1:0)

 +14       DO RESET^BILOT1

 +15       QUIT 

 +16      ;**********