${(1. )
//
// 冷 ନ஢  
// 믮:
//  - ⭮  ⨪ - F7 () - ਭ (ࠢ) XML ⭮ ᯨᠭ
//  ਮ ( )
// ᫥ ⮣   ப (⠡) :
// -  室,   ⠡ (Enter)  ஢ 
// - ନ஢ Excel- (F5)
// - 믮 ।  XML-䠩 (Alt + F9) । ⨬ Excel-   ਬ஢,  XML-䠩    Excel
//     ଥ 㦥 XML-䠩
//
//--------------------------------------------------------------------------------------------------------------------
//
//ன  : ன -> 5.  ன ⠡    -> >>   樭 -> ன "  "
//:
//  " ।  "
//     1-   ࠢ筨 ( 㬮砭)
//     2- 祭  ..
//     (  ।  , 㪠  ..   
//      ᫨  ࠢ筨 ⥩   㪠 뫪    ,  ⠥   
//      ᫨  ࠢ筨 ⥩    㪠 뫪    ,  ।    .. 㤥  䨪 "   ࠢ筨 :"
//      ᫨  ࠢ筨 ⥩    㪠 뫪    ,   ன " ।  "  ⮨ 1, ⠥    .. (䨪   㤥))
// :
//  " ॣ" - 㪠 祭 ⠢   ⮫ 
//  "  " - 㪠 祭 ⠢  ன ⮫ 
//  " ஢ "
//     0- ஢
//     1-஢  䨮
//     2-஢  
//     +4-᭮  ⠥ ࢮ
//  " 뢠 ⢮ ⠢  ⭮ ᯨᠭ"
//     0- 䠪: 祭    ⠡ Stavka ( 㬬஢ ப ⠡  祢 )
//     1- : 祭   ࠢ筨 "" ( ⠡ Shtat)
//   "⥫ ன " - 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] = 3; // ⭮ ᯨᠭ

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

$END_SCRIPT
$