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

BIUTL9.m

Go to the documentation of this file. 
  1. BIUTL9 ;IHS/CMI/MWR - UTIL: OVERFLOW CODE FROM OTHER BIUTL RTNS; MAY 10, 2010
  1.  ;;8.5;IMMUNIZATION;**12**;MAY 01,2016
  1.  ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
  1.  ;;  OVERFLOW CODE FROM OTHER BIUTL RTNS.
  1.  ;;  PATCH 9: All EP's below are moved from BIUTL7 for space (<15000k).  REASCHK+0
  1.  ;;  PATCH 12: Same as above. LOTDAT+0, HISTORY+0
  1.  ;
  1.  ;
  1.  ;********** PATCH 9, v8.5, OCT 01,2014, IHS/CMI/MWR
  1.  ;---> All EP's below are moved from BIUTL7 for space (<15000k).
  1.  ;
  1.  ;----------
  1. REASCHK ;EP
  1.  ;---> Called by Post Action field of Field 5 on BI FORM-CASE DATA EDIT.
  1.  ;---> If Date Inactive in Field 4, then a Reason is req'd in Field 5.
  1.  ;
  1.  I (BI("E")]"")&(BI("F")="") D
  1.  .D HLP^DDSUTL("*** NOTE! An Inactive Date REQUIRES an Inactive Reason! ***")
  1.  .S DDSBR=4
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. READCHK ;EP
  1.  ;---> Called by Post Action field of Field 4 on BI FORM-SKIN VISIT ADD/EDIT.
  1.  ;---> If user entered a Result in Field 3, then a Reading is req'd in Field 4.
  1.  I $G(BI("L"))]"",$G(BI("M"))="",$G(BI("I"))'="E" D
  1.  .;
  1.  .D HLP^DDSUTL("*** NOTE! If you enter a Result you MUST enter a Reading! ***")
  1.  .S DDSBR=3
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. READCH6 ;EP
  1.  ;---> Called by Post Action field of Field 4 on BI FORM-SKIN VISIT ADD/EDIT.
  1.  ;
  1.  D READCHK
  1.  I $G(DDSBR)=3 D  Q
  1.  .S X=$G(DDSOLD) D PUT^DDSVALF(6,,,X)
  1.  D LOCBR^BIUTL4
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. CREASCHK ;EP
  1.  ;---> Called by Post Action of Field 4 on BI FORM-CONTRAIND ADD/EDIT.
  1.  ;---> If user entered a Contra in Field 1, then a Reason is req'd in Field 4.
  1.  ;
  1.  I (BI("B")]"")&(BI("C")="") D
  1.  .D HLP^DDSUTL("*** NOTE! A Reason for the contraindication is required! ***")
  1.  .S DDSBR=1
  1.  Q
  1.  ;**********
  1.  ;
  1.  ;********** PATCH 12, v8.5, MAY 01,2016, IHS/CMI/MWR
  1.  ;---> LOTDAT and VSHORT below are moved from BIUTL7 for space (<15000k).
  1.  ;
  1.  ;----------
  1. LOTDAT(X) ;EP
  1.  ;---> Called by Post Action field of Field 3 on BI FORM-IMM VISIT ADD/EDIT.
  1.  ;---> Display Lot Exp Date and Remaining Balance (if tracked).
  1.  ;---> Parameters:
  1.  ;     1 - X (req) IEN of Lot Number in ^AUTTIML.
  1.  ;
  1.  Q:'$G(X)
  1.  D PUT^DDSVALF(3.4,,," Exp Date: "_$$LOTEXP^BIRPC3(X,1))
  1.  D PUT^DDSVALF(3.5,,,"Remaining: "_$$LOTRBAL^BIRPC3(X))
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. VSHORT(X) ;EP
  1.  ;---> Called by LOADVIS above and by Post Action field of Field 2
  1.  ;---> on BI FORM-IMM VISIT ADD/EDIT.
  1.  ;---> Display Short Name below Vaccine Name if different.
  1.  ;---> Parameters:
  1.  ;     1 - X (req) IEN of Vaccine in ^AUTTIMM.
  1.  ;
  1.  Q:'$G(X)  Q:($$VNAME^BIUTL2(X)=$$VNAME^BIUTL2(X,1))
  1.  D PUT^DDSVALF(2.5,,,"("_$$VNAME^BIUTL2(X)_")")
  1.  Q
  1.  ;**********
  1.  ;
  1.  ;
  1.  ;********** PATCH 12, v8.5, MAY 01,2016, IHS/CMI/MWR
  1.  ;---> HISTORY below are moved from BIUTL4 for space (<15000k).
  1.  ;
  1.  ;----------
  1. HISTORY(X) ;EP
  1.  ;---> Add/Edit Screenman actions to take ON POST-CHANGE of Category Field.
  1.  ;---> Parameters:
  1.  ;     1 - X (opt) X=Internal Value of Category Field ("E"=Historical Event).
  1.  ;
  1.  ;---> If this is an Historical Event, then set Lot#="" and not required.
  1.  I X="E" D
  1.  .S BI("D")=""
  1.  .D PUT^DDSVALF(3,"","",""),REQ^DDSUTL(3,"","",0)
  1.  .;---> Remove (default) provider.
  1.  .D PUT^DDSVALF(9,,,) S BI("R")=""
  1.  .;
  1.  .;********** PATCH 12, v8.5, MAY 01,2016, IHS/CMI/MWR
  1.  .;---> Set Injection Site AND Volume fields not required.
  1.  .D REQ^DDSUTL(4,"","",0),REQ^DDSUTL(5,"","",0)
  1.  ;
  1.  ;---> If Category is Ambulatory or Inpatient, then set Inj Site to required.
  1.  I (X="A")!(X="I") D REQ^DDSUTL(4,"","",1),REQ^DDSUTL(5,"","",1)
  1.  Q
  1.  ;**********