maintenance:

	title:  FORM_ED_GO_PACK;; 
	mlmname:  FORM_ED_GO_PACK;;
	arden: version 2.5;;
	version:  6.10;;
	institution: St. Clair Hospital ;;
	author:  Shivprasad Jadhav;;
	specialist:  Shivprasad Jadhav, Allscripts;;
	date:  2015-10-23;;
	validation:  testing;;

library:
	purpose:  	

				If user clicks on the HIV PEP Regimen checkbox, then include order details for Truvada and Isentress medications. 
				If check box is not selected then do not include order details for Truvada and Isentress medications.;;
	explanation: 
				Change History 
				============================================
				20-04-2015  CSR-33616 : Created  
				24-01-2019	CSR 37702: Added logic to support new HIV PEP Go Pack order for ED.
	;;
	keywords:
	;;
	citations: 
	;;
knowledge:
	type: data-driven;;
	data:
			(    this_communication,   	// Communication object
				 this_form,				// Form object
				 client_info_obj		//Arden ClientInfo object	
			 ) := argument;
			field_list:= this_form.Fields;

			CallingEvent := this_communication.CallingEvent;
			CallingField := this_communication.CallingFieldName;

			F_HIV_PEP := last of ( field_list WHERE field_list.DataItemName = "ED_HIV PEP Regimen" );
			F_Truvada := last of ( field_list WHERE field_list.DataItemName = "ED_Truvada" );
			F_Isentress := last of ( field_list WHERE field_list.DataItemName = "ED_Isentress 400mg" );
			
			F_HIV_PEP_2 := last of ( field_list WHERE field_list.DataItemName = "ED_HIV PEP Regimen (2)" );
			F_Truvada_2 := last of ( field_list WHERE field_list.DataItemName = "ED_Truvada (2)" );
			F_Isentress_2 := last of ( field_list WHERE field_list.DataItemName = "ED_Isentress 400mg (2)" );
	

			Truvada_txt := "Truvada (Emtricitabine 200 mg/Tenofovir 300 mg Tab) (7 Tablets) Take 1 tablet by mouth daily for 7 days.";
			Esentress_txt := "Isentress 400mg (Raltegravir 400mg Tab) (14 Tablets) Take 1 tablet by mouth two times a day for 7 days." ;

			

//=========================================================================================================

if ( CallingEvent = "FormOpen" ) then

	If F_HIV_PEP.Value = True Then
		F_Truvada.Value := Truvada_txt ;
		F_Isentress.Value := Esentress_txt ;
	Elseif F_HIV_PEP.Value = False Then
		F_Truvada.Value := "" ;
		F_Isentress.Value := "" ;

	Endif;

	if ( F_HIV_PEP_2.Value = true ) then
		F_Truvada_2.Value := Truvada_txt ;
		F_Isentress_2.Value := Esentress_txt ;
	Elseif ( F_HIV_PEP_2.Value = false ) then
		F_Truvada_2.Value := "" ;
		F_Isentress_2.Value := "" ;
	endif;
	
Elseif ( CallingEvent = "FieldChange" ) then

	If F_HIV_PEP.Value = True Then
		F_Truvada.Value := Truvada_txt ;
		F_Isentress.Value := Esentress_txt ;
	Elseif F_HIV_PEP.Value = False Then
		F_Truvada.Value := "" ;
		F_Isentress.Value := "" ;
	Endif;

	if ( F_HIV_PEP_2.Value = true ) then
		F_Truvada_2.Value := Truvada_txt ;
		F_Isentress_2.Value := Esentress_txt ;
	Elseif ( F_HIV_PEP_2.Value = false ) then
		F_Truvada_2.Value := "" ;
		F_Isentress_2.Value := "" ;
	endif;

Endif;

;;
	priority: 50
	;;
	evoke:  
	;;
	logic: conclude true;
	;;
	action: return this_communication, this_form;
	;;
Urgency: 50;;
end: