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 ;**********
