SMMMB08100_empty.xfdl 2.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263
  1. <?xml version="1.0" encoding="utf-8"?>
  2. <FDL version="1.5">
  3. <TypeDefinition url="..\..\..\default_typedef.xml"/>
  4. <Form id="SMMMB08100" position="absolute 0 0 1256 805" titletext="empty" oninit="SMMMB08100_oninit" onload="SMMMB08100_onload">
  5. <Layouts>
  6. <Layout/>
  7. </Layouts>
  8. <Objects/>
  9. <Script type="xscript4.0"><![CDATA[/***************************************************************************************
  10. * System Name :
  11. * Job Name :
  12. * Creator :
  13. * Make Date : 2014-08-29
  14. * Description :
  15. *---------------------------------------------------------------------------------------
  16. * Modify Date Modifier Modify Description
  17. *---------------------------------------------------------------------------------------
  18. * 2014-08-29 Live Converter TF->XP
  19. *
  20. *---------------------------------------------------------------------------------------
  21. ****************************************************************************************/
  22. include "com_commonxp::comm_main.xjs";
  23. include "emr_prcpmngtxp::MMO001.xjs";
  24. function SMMMB08100_oninit(obj:Form, e:InitEventInfo)
  25. {
  26. frmf_initForm(obj);
  27. }
  28. function SMMMB08100_onload(obj:Form, e:LoadEventInfo)
  29. {
  30. fActivatePatList();
  31. }
  32. function fInitRecPamInfo(){
  33. var scrnwnd = frmf_findPopup("SPMMB08400");
  34. if(!utlf_isNull(scrnwnd)){
  35. scrnwnd.fCloseOpenEmrWnd();
  36. }
  37. }
  38. function fRecMainReady(){
  39. var scrnwnd = frmf_findPopup("SPMMB08400");
  40. if(!utlf_isNull(scrnwnd)){
  41. scrnwnd.fCloseOpenEmrWnd();
  42. }
  43. }
  44. //진료대상자리스트를 활성화시킴 (2009.10.21 by JJE)
  45. function fActivatePatList(){
  46. var mainObj = frmf_getMainViewer();
  47. var patListObj = mainObj.frmf_findPopup("SMMMO04100"); //진료대상자 화면
  48. if(!utlf_isNull(patListObj)){
  49. if(patListObj.frmf_getParameter("SMMMO04100_activateYN") == "Y"){
  50. frmf_setFocus(patListObj);
  51. }
  52. patListObj.frmf_clearParameter("SMMMO04100_activateYN"); //초기화
  53. }
  54. }]]></Script>
  55. </Form>
  56. </FDL>