- BINDC2 ;IHS/CMI/MWR - EDIT NDC NUMBERS.; MAY 10, 2010
- ;;8.5;IMMUNIZATION;**9**;OCT 01,2014
- ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
- ;; EDIT VACCINE FIELDS: CURRENT NDC, ACTIVE, VIS DATE DEFAULT.
- ; PATCH 2: Make Display Inactives a separate Action. CHGORDR+11
- ; PATCH 3: Correct leftover prompt from Inactive question. DISPLYI+7
- ;
- ;
- ;----------
- NDCDVAL(BIX) ;EP
- ;---> Sub-Lot data validation for Field 1.5, BI FORM-NDC 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-NDC DUPLICATE WARNING"
- .;N Y S Y="This NDC Code 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
- ;
- ;
- ;----------
- CHGORDR ;EP
- ;---> Menu for selecting Lot listing order.
- ;
- D FULL^VALM1,TITLE^BIUTL5("SELECT NDC LISTING ORDER"),TEXT2^BINDC1
- N DIR,Y
- S DIR(0)="SOA^"_$G(BISUBT)
- S DIR("A")=" Please select 1 or 2: "
- S DIR("B")=$G(BICOLL)
- D ^DIR
- S:(Y>0) BICOLL=Y
- ;
- D RESET^BINDC1
- Q
- ;
- ;
- ;----------
- DISPLYI ;EP
- ;---> Display Inactive Lot Numbers.
- ;---> Called by Protocol:
- ;
- D FULL^VALM1,TITLE^BIUTL5("DISPLAY INACTIVE NDC NUMBERS YES/NO")
- W !!," Do you wish to include INACTIVE NDC Codes in this display?"
- N DIR
- S DIR("?")=" Enter YES to include INACTIVE NDC Codes."
- 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^BINDC1
- Q
- BINDC2 ;IHS/CMI/MWR - EDIT NDC NUMBERS.; MAY 10, 2010
- +1 ;;8.5;IMMUNIZATION;**9**;OCT 01,2014
- +2 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
- +3 ;; EDIT VACCINE FIELDS: CURRENT NDC, 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 ;----------
- NDCDVAL(BIX) ;EP
- +1 ;---> Sub-Lot data validation for Field 1.5, BI FORM-NDC 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-NDC DUPLICATE WARNING"
- +9 ;N Y S Y="This NDC Code 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 ;----------
- CHGORDR ;EP
- +1 ;---> Menu for selecting Lot listing order.
- +2 ;
- +3 DO FULL^VALM1
- DO TITLE^BIUTL5("SELECT NDC LISTING ORDER")
- DO TEXT2^BINDC1
- +4 NEW DIR,Y
- +5 SET DIR(0)="SOA^"_$GET(BISUBT)
- +6 SET DIR("A")=" Please select 1 or 2: "
- +7 SET DIR("B")=$GET(BICOLL)
- +8 DO ^DIR
- +9 IF (Y>0)
- SET BICOLL=Y
- +10 ;
- +11 DO RESET^BINDC1
- +12 QUIT
- +13 ;
- +14 ;
- +15 ;----------
- DISPLYI ;EP
- +1 ;---> Display Inactive Lot Numbers.
- +2 ;---> Called by Protocol:
- +3 ;
- +4 DO FULL^VALM1
- DO TITLE^BIUTL5("DISPLAY INACTIVE NDC NUMBERS YES/NO")
- +5 WRITE !!," Do you wish to include INACTIVE NDC Codes in this display?"
- +6 NEW DIR
- +7 SET DIR("?")=" Enter YES to include INACTIVE NDC Codes."
- +8 SET DIR(0)="Y"
- SET DIR("A")=" Enter Yes or No"
- SET DIR("B")="NO"
- +9 DO ^DIR
- +10 SET BIINACT=$SELECT(Y>0:1,1:0)
- +11 DO RESET^BINDC1
- +12 QUIT