${(1. )
//
// 冷 ନ஢  
// 믮:
//  - ⭮  ⨪ - F7 () - ਭ (ࠢ) XML   
//  ਮ ( )
// ᫥ ⮣   ப (⠡) :
// -  室,   ⠡ (Enter)  ஢ 
// - ନ஢ Excel- (F5)
// - 믮 ।  XML-䠩 (Alt + F9) । ⨬ Excel-   ਬ஢,  XML-䠩    Excel
//     ଥ 㦥 XML-䠩
//
//--------------------------------------------------------------------------------------------------------------------
//
//ன  : ன -> 5.  ன ⠡    -> >>   樭 -> ன "  "
//:
//  " ।  "
//     1-   ࠢ筨 ( 㬮砭)
//     2- 祭  ..
//     (  ।  , 㪠  ..   
//      ᫨  ࠢ筨 ⥩   㪠 뫪    ,  ⠥   
//      ᫨  ࠢ筨 ⥩    㪠 뫪    ,  ।    .. 㤥  䨪 "   ࠢ筨 :"
//      ᫨  ࠢ筨 ⥩    㪠 뫪    ,   ன " ।  "  ⮨ 1, ⠥    .. (䨪   㤥))
//  /७ ᮢ⥫⢮/譥 ᮢ⥫⢮
//  "譥 ᮢ⥫⢮" - ᫨      .. "ᮡ   " ⮨ 4  9
//  "᭮" - ,  ன ⮨  "᭮  ࠡ"  ᯨ᪥ ᯮ塞 ⥩
//  "७ ᮢ⥫⢮" -  ⠫ 
// :
//  " ॣ" - 㪠 祭 ⠢   ⮫ 
//  "  " - 㪠 祭 ⠢  ன ⮫ 
//  " ஢ "
//     0- ஢
//     1-஢  䨮
//     2-஢  
//     +4-᭮  ⠥ ࢮ
//  "   " - ᫨ ன  -  㤥 ।  ⠡. ᫨ ன ,  㤥   㪠 .
//  ", 騥 ७ ᮢ⥫⢮" - ᫨    ७ ᮢ⥫   ⤥ ᯮ塞 ,
//      ஢  १ ⤥ ,   ⮩ ன  㪠  ⮣ .
//       ⮬ 砥    㤥 ⠭ " ७ ᮢ⥫⢠  ।",
//       ࠧ - "ࠧ ७ ᮢ⥫⢠  ।"
//       㦭 㤥   ଥ .
//   "ᥢ    . ⠦" - ⠦ 뢭 ࠡ (樭᪨ ⠦)
//      室   ன 塞 ஢    ⠦, 㪠   ன  ⠦
//   "ᥢ     " -  ।
//      ᯮ짮   "  .  " (ᥢ - status3)   ᢮   ன 塞 ஢ 
//   "      " -  ।
//     0-  .ᮢ (131,132,...)
//     1 - ᠬ ᫮ 㤠(3.1,3.2,...)
//   "ᥢ    䨪樮 ⥣ਨ" - 䨪樮 ⥣ ࠡ⭨
//      室   ன 塞 ஢    䨪樮 ⥣ਨ
//     祭   "䨪樮 ⥣"  ਭ 祭:
//     1 - "ࢠ"; 2 - ""; 3 - ""
//   "ᥢ    ᨮ쭮 䨪樮 㯯" - ᨮ쭠 䨪樮 㯯
//      室   ன 塞 ஢    ᨮ쭮 䨪樮 㯯
//      ਭ 祭: 1,2,3,4
//   ",   । 䨪樮 ஢" - 䨪樮 ஢
//     . ஢    
//      ਭ 祭: 1,2,3,4,5
//   "⥫ ன " - 0 (㦭 ⮡  ⮩ ன 뫮 0 -  ⮫ ⠡ 祭 +   "")
//
//--------------------------------------------------------------------------------------------------------------------
//
//⤥/  OID ⤥/ (易⥫ )
//   砥, ᫨ ஬ 祭 "ࠧ"  "OID ୮ ࠧ" 㦭 㪠뢠   "⤥/"  "OID ⤥/"
//  㦭 ᤥ ᫥騥 ன:
//  -  ன 塞 ஢  (ன - ன ஢  - ன 塞 ஢ )  
//    : ⤥ () (  ਠ)
//    : T ( ⨭᪠ 㪢)
//    : 5
//    ᥢ: otd_kab
//  -  ࠢ筨 ஢  (ࠢ筨 - ࠢ筨 ஢ ) 㦭  ࠢ筨    ஢ 
//      ࠢ筨 ஢ 
//     F7,   "롥  ,  ண  ࠢ筨", 롥  
//      ࠢ筨     
//     Ctrl+A+A,  ⠡ ᯨ᪠ ࠢ筨  ⥫ ⮫.
//     ⮫ " 䠩" : otd_kab.tab
//    祢 : 0;  祭: 1
//    멤  ࠭  ᯨ᪠ ࠢ筨 
//   ࠢ筨 㦭 ⪮४஢,  譥,  㦭.   祭  "⤥/" 㪠   OID
//      "⤥/" ᯮ ࠢ筨. ( ஬    Enter, ⥬ F2)
//
$}(1. )
//
&Format(N,2,0)=0;
&FPRINT(N,2,0)=1;
&FF(N,3,0)=1;
$BEG_SCRIPT

   var CurFile=CreateObject("CurPrnFile");
   CurFile.SetFlagBrowse(0);

   var CTabl = CreateObject("CurPrnTbl");
   var KeyValueRef = CTabl.GetKeyValueCollections(true);
   string commonPart = GetAmbaResourceWorkDir();
   string formPart = TrimN(KeyValueRef.GetValue("__AdditionalFiles/xls"));
   string fullXlsName = commonPart + formPart;

   int acc = access(to_string(fullXlsName),0);
   if ( acc || !strlen(formPart) ) FF = 0;

$END_SCRIPT
//
$(_EQ(FF-1))
   #FPRINT=_(15,9,70,15,  ,  ନ஢ , ᮧ );
   $(_EQ(FPRINT-27))
      $
   $_
$_
//
$BEG_SCRIPT

   int np = 3;
   var param[np];
   
   param[0] = atoi(Format);
   param[1] = atoi(FPRINT);
   param[2] = 2; //   

   var modules=GetArray("forms\\monitoringMed2020","forms\\monitoringMed_common","forms\\monitoringMedXml");
   ReLoadSMs(modules);
   PrintMonitoringMedXml(param,np);
   UnLoadSMs(modules);

$END_SCRIPT
$