Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BINDC2

BINDC2.m

Go to the documentation of this file.
  1. BINDC2 ;IHS/CMI/MWR - EDIT NDC NUMBERS.; MAY 10, 2010
  1. ;;8.5;IMMUNIZATION;**9**;OCT 01,2014
  1. ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
  1. ;; EDIT VACCINE FIELDS: CURRENT NDC, ACTIVE, VIS DATE DEFAULT.
  1. ; PATCH 2: Make Display Inactives a separate Action. CHGORDR+11
  1. ; PATCH 3: Correct leftover prompt from Inactive question. DISPLYI+7
  1. ;
  1. ;
  1. ;----------
  1. NDCDVAL(BIX) ;EP
  1. ;---> Sub-Lot data validation for Field 1.5, BI FORM-NDC NUMBER EDIT
  1. ;---> Parameters:
  1. ; 1 - BIX (req) The value of the Lot Number.
  1. ;
  1. Q:($G(X)="") Q:($G(X)=0)
  1. ;
  1. I $D(^AUTTIML("B",BIX)) D Q
  1. .S DDSSTACK="BI PAGE-NDC DUPLICATE WARNING"
  1. .;N Y S Y="This NDC Code already exists. Please exit and select it from"
  1. .;S Y=Y_" the list. (NOTE: It It may be Inactive. Try displaying Inactive as"
  1. .;S Y=Y_"well as Active.)"
  1. .;D HLP^DDSUTL(Y) S DDSERROR=1
  1. ;
  1. I BIX["*" D
  1. .S Y="The Lot Number may not contain an asterisk, ""*"". (This symbol is used to"
  1. .S Y=Y_" separate the Lot Number from the Sub-lot, if one is appended.)"
  1. .D HLP^DDSUTL(Y) S DDSERROR=1
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. CHGORDR ;EP
  1. ;---> Menu for selecting Lot listing order.
  1. ;
  1. D FULL^VALM1,TITLE^BIUTL5("SELECT NDC LISTING ORDER"),TEXT2^BINDC1
  1. N DIR,Y
  1. S DIR(0)="SOA^"_$G(BISUBT)
  1. S DIR("A")=" Please select 1 or 2: "
  1. S DIR("B")=$G(BICOLL)
  1. D ^DIR
  1. S:(Y>0) BICOLL=Y
  1. ;
  1. D RESET^BINDC1
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. DISPLYI ;EP
  1. ;---> Display Inactive Lot Numbers.
  1. ;---> Called by Protocol:
  1. ;
  1. D FULL^VALM1,TITLE^BIUTL5("DISPLAY INACTIVE NDC NUMBERS YES/NO")
  1. W !!," Do you wish to include INACTIVE NDC Codes in this display?"
  1. N DIR
  1. S DIR("?")=" Enter YES to include INACTIVE NDC Codes."
  1. S DIR(0)="Y",DIR("A")=" Enter Yes or No",DIR("B")="NO"
  1. D ^DIR
  1. S BIINACT=$S(Y>0:1,1:0)
  1. D RESET^BINDC1
  1. Q