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

BIPATCO2.m

Go to the documentation of this file. 
  1. BIPATCO2 ;IHS/CMI/MWR - ADD/DELETE CONTRAINDICATIONS; MAY 10, 2010
  1.  ;;8.5;IMMUNIZATION;;SEP 01,2011
  1.  ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
  1.  ;;  ADD AND DELETE CONTRAINDICATIONS VIA LISTMANAGER.
  1.  ;
  1.  ;
  1.  ;----------
  1. ADDCON ;EP
  1.  ;---> Add a Contraindication via List Manager.
  1.  ;---> Steps:
  1.  ;            1) This entry point is called by the Protocol:
  1.  ;               BI CONTRAINDICATION ADD, an action on the
  1.  ;               List Manager menu protocol: BI MENU CONTRAINDICATIONS.
  1.  ;
  1.  ;            2) This code calls ScreenMan form:
  1.  ;               BI FORM-CONTRAIND ADD/EDIT to add a contraindication.
  1.  ;
  1.  ;            3) SAVCONTR^BIUTL7 uses BI local array to build data
  1.  ;               to pass to ADD^BIRPC4 (which is also called by
  1.  ;               the Broker from the GUI).
  1.  ;
  1.  ;            4) BIRPC4 adds the BI CONTRAINDICATION entry.
  1.  ;
  1.  ;---> Check that DFN for this patient is present.
  1.  I '$G(BIDFN) D ERRCD^BIUTL2(405,,1) D RESET Q
  1.  N BI S BI("A")=BIDFN
  1.  ;
  1.  ;
  1.  ;---> Call Screenman to build BI local array of data by user.
  1.  N BISAVE
  1.  N DR S DR="[BI FORM-CONTRAIND ADD/EDIT]"
  1.  D DDS^BIFMAN(9000001,DR,BIDFN,"S",.BISAVE,.BIPOP)
  1.  ;
  1.  ;---> If user saved data, call ^BIUTL7 to save it.
  1.  D:$G(BISAVE) SAVCONTR^BIUTL7(.BI)
  1.  ;
  1.  D RESET
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. EDITCON ;EP
  1.  ;---> Edit a Contraindication via List Manager.
  1.  ;---> Steps:
  1.  ;            1) This entry point is called by the Protocol:
  1.  ;               BI CONTRAINDICATION EDIT, an action on the
  1.  ;               List Manager menu protocol: BI MENU CONTRAINDICATIONS.
  1.  ;
  1.  ;            2) This code gets a Contraindication from List Manager
  1.  ;               and calls the ScreenMan form: BI FORM-CONTRAIND ADD/EDIT
  1.  ;               to edit the contraindication.
  1.  ;
  1.  ;            3) BIRPC4 deletes the BI CONTRAINDICATION entry.
  1.  ;
  1.  ;
  1.  ;---> Check that Contraindication string for this patient is
  1.  ;---> present; if not, set Error Code and quit.
  1.  I '$G(BIDFN) D ERRCD^BIUTL2(415,,1) D RESET Q
  1.  I $G(BICONT(BIDFN))="" D ERRCD^BIUTL2(313,,1) D RESET Q
  1.  ;
  1.  ;---> Call the Listmanager Generic Selector of items displayed.
  1.  N VALMY
  1.  D EN^VALM2(XQORNOD(0),"OS")
  1.  ;
  1.  ;---> Check that a Listman Item was passed.
  1.  I '$D(VALMY) D ERRCD^BIUTL2(406,,1) D RESET Q
  1.  ;---> Now set Y=Item# selected from the list.
  1.  N Y S Y=$O(VALMY(0))
  1.  I '$G(Y) D ERRCD^BIUTL2(406,,1) D RESET Q
  1.  ;
  1.  S Y=$P(BICONT(BIDFN),U,Y)
  1.  I Y']"" D ERRCD^BIUTL2(303,,1) D RESET Q
  1.  ;
  1.  N BI,BIDIEN
  1.  S BI("A")=BIDFN           ;Patient DFN.
  1.  S BI("I")=$P(Y,"|",1)     ;IEN of this Contraindication.
  1.  S BICONTDA=BI("I")        ;Save IEN of olf Contraindication to delete below.
  1.  ;
  1.  S BI("B")=$P($G(^BIPC(BI("I"),0)),U,2)     ;Vaccine IEN.
  1.  I 'BI("B") D ERRCD^BIUTL2(418,,1) D RESET Q
  1.  ;
  1.  S BI("C")=$P(Y,"|",3)     ;Reason (external text).
  1.  S BI("D")=$P(Y,"|",4)     ;Date (external text).
  1.  ;---> Change Date to internal (in case Screenman doesn't get a chance).
  1.  D
  1.  .N X,Y,%DT S X=BI("D") D ^%DT
  1.  .S BI("D")=Y
  1.  ;
  1.  ;--->Flag: If N=1 this is an EDIT.
  1.  S BI("N")=1
  1.  ;
  1.  ;---> Call Screenman to build BI local array of data by user.
  1.  N BIERR,BISAVE
  1.  N DR S DR="[BI FORM-CONTRAIND ADD/EDIT]"
  1.  D DDS^BIFMAN(9000001,DR,BIDFN,"S",.BISAVE,.BIPOP)
  1.  ;
  1.  ;---> If user saved data, file it.
  1.  I $G(BISAVE) D
  1.  .D SAVCONTR^BIUTL7(.BI,.BIERR)
  1.  .Q:($G(BIERR)]"")
  1.  .;---> Now delete old (original) Contraindication.
  1.  .D:$G(BICONTDA) DELCONT^BIRPC4(,BICONTDA)
  1.  ;
  1.  D RESET
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. DELETCON ;EP
  1.  ;---> Delete a Contraindication via List Manager.
  1.  ;---> Steps:
  1.  ;            1) This entry point is called by the Protocol:
  1.  ;               BI CONTRAINDICATION DELETE, an action on the
  1.  ;               List Manager menu protocol: BI MENU CONTRAINDICATIONS.
  1.  ;
  1.  ;            2) This code gets a Contraindication from List Manager
  1.  ;               and calls DELCONT^BIRPC4 (which is also called by
  1.  ;               the Broker from the GUI).
  1.  ;
  1.  ;            3) BIRPC4 deletes the BI CONTRAINDICATION entry.
  1.  ;
  1.  ;
  1.  ;---> Check that Contraindication string for this patient is
  1.  ;---> present; if not, set Error Code and quit.
  1.  I '$G(BIDFN) D ERRCD^BIUTL2(415,,1) D RESET Q
  1.  I $G(BICONT(BIDFN))="" D ERRCD^BIUTL2(313,,1) D RESET Q
  1.  ;
  1.  ;---> Call the Listmanager Generic Selector of items displayed.
  1.  N VALMY
  1.  D EN^VALM2(XQORNOD(0),"OS")
  1.  ;
  1.  ;---> Check that a Listman Item was passed.
  1.  I '$D(VALMY) D ERRCD^BIUTL2(406,,1) D RESET Q
  1.  ;---> Now set Y=Item# selected from the list.
  1.  N Y S Y=$O(VALMY(0))
  1.  I '$G(Y) D ERRCD^BIUTL2(406,,1) D RESET Q
  1.  ;
  1.  S Y=$P(BICONT(BIDFN),U,Y)
  1.  I Y']"" D ERRCD^BIUTL2(303,,1) D RESET Q
  1.  ;
  1.  D FULL^VALM1
  1.  ;
  1.  ;---> Display contraindication for confirmation.
  1.  ;---> Set Contraindication confirmation display and IEN.
  1.  N BICONTDA,V S V="|"
  1.  S X=$P(Y,V,2)_":  "_$P(Y,V,3)_"  "_$P(Y,V,4)
  1.  ;---> BICONTDA=DA of Contraindication to be deleted.
  1.  S BICONTDA=$P(Y,V)
  1.  ;
  1.  D TITLE^BIUTL5("DELETE A CONTRAINDICATION")
  1.  N A
  1.  S A(1)="Do you really wish to DELETE this Contraindication?"
  1.  S A(1,"F")="!!?3"
  1.  S A(2)="Patient: "_$E($$NAME^BIUTL1(BIDFN),1,25)
  1.  S A(2)=A(2)_"       Chart#: "_$$HRCN^BIUTL1(BIDFN)
  1.  S A(2,"F")="!!?10"
  1.  S A(3)=X,A(3,"F")="!!?10"
  1.  S A(4,"F")="!"
  1.  D EN^DDIOL(.A)
  1.  ;
  1.  N B,BIPOP S BIPOP=0
  1.  S B(1)="     Enter YES to DELETE this Contraindication."
  1.  S B(2)="     Enter NO to leave it unchanged."
  1.  D DIR^BIFMAN("Y",.Y,,"   Enter Yes or No","NO",B(2),B(1))
  1.  ;
  1.  ;---> Failed to confirm.
  1.  I Y<1 D  Q
  1.  .D IO^BIO("NO changes made.")
  1.  .D DIRZ^BIUTL3(),RESET
  1.  ;
  1.  ;---> Delete the visit.
  1.  S BIPOP=""
  1.  D DELCONT^BIRPC4(.BIPOP,BICONTDA)
  1.  ;
  1.  ;---> If an error is passed back, display it.
  1.  N BI31 S BI31=$C(31)_$C(31),BIPOP=$P(BIPOP,BI31,2)
  1.  I BIPOP]"" D IO^BIO(BIPOP),DIRZ^BIUTL3()
  1.  D RESET
  1.  Q
  1.  ;
  1.  ;
  1.  ;----------
  1. RESET ;EP
  1.  ;---> Update partition for return to Listmanager.
  1.  I $D(VALMQUIT) S VALMBCK="Q" Q
  1.  D TERM^VALM0 S VALMBCK="R"
  1.  D INIT^BIPATCO,HDR^BIPATCO
  1.  Q