82. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 10/26/2017 10:43:14 PM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

82.1 Files compared

# Location File Last Modified
1 OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\BMS_Build_C72898\BMS_Source-BuildC72898.zip\C72898\Source\Sources\CACHE Classes FACILITYMOVEMENTTYPE.xml Wed Oct 23 12:51:06 2013 UTC
2 OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\BMS_Build_C72898\BMS_Source-BuildC72898.zip\C72898\Source\Sources\CACHE Classes FACILITYMOVEMENTTYPE.xml Wed Oct 25 22:20:58 2017 UTC

82.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 1364
Changed 1 2
Inserted 0 0
Removed 0 0

82.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

82.4 Active regular expressions

No regular expressions were active.

82.5 Comparison detail

  1   <?xml 
  2     version="1 .0" 
  3     encoding=" UTF-8"
  4   ?>
  5   <Export 
  6     generator= "Cache" 
  7     version="2 5" 
  8     zv="Cache  for Window s (x86-64)  2011.1 (B uild 532)"  
  9     ts="2012-0 2-10 09:04 :19"
  10   >
  11     <Class 
  12      name="BMS. FACILITYMO VEMENTTYPE "
  13     >
  14      <Descripti on>
  15       Generated  class for  FileMan Fi le Number:  '405.1'   File Name:  'FACILITY  MOVEMENT  TYPE'   Cl ass genera ted by %fm 2class ver sion '2.03 '
  16       This file  contains a ll allowab le admissi on, discha rge, trans fer,
  17       specialty  change, ch eck-in lod ger, and c heck-out l odger move ments.
  18       These are  site deter mined and  site maint ained.  Ho wever, we  STRONGLY
  19       recommend  that when  updating m ovement ty pes, you u tilize the  'Edit
  20       Bed Contro l Movement  Types' op tion to en sure all d ata is pro perly
  21       updated.
  22      </Descript ion>
  23      <ClassType >
  24       persistent
  25      </ClassTyp e>
  26      <Owner>
  27       UnknownUse r
  28      </Owner>
  29      <Procedure Block>
  30       0
  31      </Procedur eBlock>
  32      <SqlRowIdN ame>
  33       RowId
  34      </SqlRowId Name>
  35      <SqlTableN ame>
  36       FACILITY_M OVEMENT_TY PE
  37      </SqlTable Name>
  38      <StorageSt rategy>
  39       SQLStorage
  40      </StorageS trategy>
  41      <Super>
  42       %Library.P ersistent
  43      </Super>
  44      <TimeChang ed>
  45       62497,3253 9.688687
  46      </TimeChan ged>
  47      <TimeCreat ed>
  48       62495,3663 6.157407
  49      </TimeCrea ted>
  50     
  51      <Parameter  
  52       name="FILE MANFILENAM E"
  53      >
  54       <Default>
  55        FACILITY M OVEMENT TY PE
  56       </Default>
  57      </Paramete r>
  58     
  59      <Parameter  
  60       name="FILE MANFILENUM BER"
  61      >
  62       <Default>
  63        405.1
  64       </Default>
  65      </Paramete r>
  66     
  67      <Parameter  
  68       name="FM2C LASSVERSIO N"
  69      >
  70       <Default>
  71        2.03
  72       </Default>
  73      </Paramete r>
  74     
  75      <Index 
  76       name="IDKe yIndex"
  77      >
  78       <IdKey>
  79        1
  80       </IdKey>
  81       <PrimaryKe y>
  82        1
  83       </PrimaryK ey>
  84       <Propertie s>
  85        IEN
  86       </Properti es>
  87       <Unique>
  88        1
  89       </Unique>
  90      </Index>
  91     
  92      <ForeignKe
  93       name="FKey MOVEMENTTY PE"
  94      >
  95       <Descripti on>
  96        <![CDATA[
  97        Foriegn Ke y constrai nt for Poi nter refer ence field  MOVEMENT_ TYPE->MAS_ MOVEMENT_T YPE]]>
  98       </Descript ion>
  99       <Propertie s>
  100        MOVEMENTTY PE
  101       </Properti es>
  102       <Reference dClass>
  103        BMS.MASMOV EMENTTYPE
  104       </Referenc edClass>
  105       <SqlName>
  106        FKey_MOVEM ENT_TYPE
  107       </SqlName>
  108      </ForeignK ey>
  109     
  110      <ForeignKe
  111       name="FKey TRANSACTIO NTYPE"
  112      >
  113       <Descripti on>
  114        <![CDATA[
  115        Foriegn Ke y constrai nt for Poi nter refer ence field  TRANSACTI ON_TYPE->M AS_MOVEMEN T_TRANSACT ION_TYPE]] >
  116       </Descript ion>
  117       <Propertie s>
  118        TRANSACTIO NTYPE
  119       </Properti es>
  120       <Reference dClass>
  121        BMS.MASMOV EMENTTRANS ACTIONTYPE
  122       </Referenc edClass>
  123       <SqlName>
  124        FKey_TRANS ACTION_TYP E
  125       </SqlName>
  126      </ForeignK ey>
  127     
  128      <Property 
  129       name="ACTI VE"
  130      >
  131       <Descripti on>
  132        FileMan Fi eld Label:  'ACTIVE'   FileMan F ield Numbe r: '.04'
  133        Enter 1 if  this move ment type  may be sel ected by u sers at yo ur site.
  134       </Descript ion>
  135       <Type>
  136        %Library.S tring
  137       </Type>
  138       <Required>
  139        1
  140       </Required >
  141       <SqlColumn Number>
  142        7
  143       </SqlColum nNumber>
  144       <SqlFieldN ame>
  145        ACTIVE
  146       </SqlField Name>
  147       <Parameter  
  148        name="DISP LAYLIST" 
  149        value=";IN ACTIVE;ACT IVE"
  150       />
  151       <Parameter  
  152        name="MAXL EN" 
  153        value="8"
  154       />
  155       <Parameter  
  156        name="VALU ELIST" 
  157        value=";0; 1"
  158       />
  159      </Property >
  160     
  161      <Property 
  162       name="IEN"
  163      >
  164       <Descripti on>
  165        Internal E ntry Numbe r
  166       </Descript ion>
  167       <Type>
  168        %Library.S tring
  169       </Type>
  170       <InitialEx pression>
  171        $$next^%ap iSQL("$p(^ DG(405.1,0 ),""^"",3) ")
  172       </InitialE xpression>
  173       <Required>
  174        1
  175       </Required >
  176       <SqlColumn Number>
  177        2
  178       </SqlColum nNumber>
  179       <SqlFieldN ame>
  180        IEN
  181       </SqlField Name>
  182       <Parameter  
  183        name="COLL ATION" 
  184        value="EXA CT"
  185       />
  186       <Parameter  
  187        name="TRUN CATE" 
  188        value="0"
  189       />
  190      </Property >
  191     
  192      <Property 
  193       name="MOVE MENTTYPE"
  194      >
  195       <Descripti on>
  196        FileMan Fi eld Label:  'MOVEMENT  TYPE'  Fi leMan Fiel d Number:  '.03'
  197        Enter the  MAS MOVEME NT TYPE yo u wish thi s local mo vement typ e to be
  198        associated  with.  Al l entries  in this fi le must po int to an  entry in
  199        the MAS MO VEMENT TYP E file.  T his field  is used to  determine  the flow
  200        of many AD T function s.
  201       </Descript ion>
  202       <Type>
  203        BMS.MASMOV EMENTTYPE
  204       </Type>
  205       <SqlColumn Number>
  206        6
  207       </SqlColum nNumber>
  208       <SqlFieldN ame>
  209        MOVEMENT_T YPE
  210       </SqlField Name>
  211      </Property >
  212     
  213      <Property 
  214       name="MOVE MENTTYPENA ME"
  215      >
  216       <Descripti on>
  217        <![CDATA[
  218        Expanded P ointer Fie ld for MOV EMENT_TYPE ->NAME
  219        This field  contains  the name o f the move ment type  as distrib uted by th e
  220        MAS packag e under th e directio n of MAS  DNS     and the MA S SIUG.    Entries
  221        in this fi le must no t be edite d locally,  and will  be maintai ned via
  222        frequent M AS softwar e upgrades .  Changes  to this f ile could  severely
  223        impact ope rations at  your site .]]>
  224       </Descript ion>
  225       <Type>
  226        %Library.S tring
  227       </Type>
  228       <SqlComput eCode>
  229        <![CDATA[        new  id,%ROWCOU NT,%ROWID, SQLCODE,va l set id={ %%ID}
  230                &s ql(select  MOVEMENT_T YPE->NAME  into :val  from BMS.F ACILITY_MO VEMENT_TYP E where %I D=:id)
  231                se t {MOVEMEN T_TYPE_NAM E}=$select (SQLCODE=0 :val,1:"") ]]>
  232       </SqlCompu teCode>
  233       <SqlComput ed>
  234        1
  235       </SqlCompu ted>
  236       <SqlFieldN ame>
  237        MOVEMENT_T YPE_NAME
  238       </SqlField Name>
  239       <Transient >
  240        1
  241       </Transien t>
  242       <ReadOnly>
  243        1
  244       </ReadOnly >
  245      </Property >
  246     
  247      <Property 
  248       name="NAME "
  249      >
  250       <Descripti on>
  251        FileMan Fi eld Label:  'NAME'  F ileMan Fie ld Number:  '.01'
  252        Enter the  name of th e movement  type.  Th is name wi ll be disp layed on m any
  253        of the bed  control o utputs.
  254       </Descript ion>
  255       <Type>
  256        %Library.S tring
  257       </Type>
  258       <Required>
  259        1
  260       </Required >
  261       <SqlColumn Number>
  262        4
  263       </SqlColum nNumber>
  264       <SqlFieldN ame>
  265        NAME
  266       </SqlField Name>
  267       <Parameter  
  268        name="COLL ATION" 
  269        value="EXA CT"
  270       />
  271       <Parameter  
  272        name="MAXL EN" 
  273        value="40"
  274       />
  275       <Parameter  
  276        name="MINL EN" 
  277        value="3"
  278       />
  279       <Parameter  
  280        name="TRUN CATE" 
  281        value="0"
  282       />
  283      </Property >
  284     
  285      <Property 
  286       name="NUMB ER"
  287      >
  288       <Descripti on>
  289        FileMan Fi eld Label:  'NUMBER'   FileMan F ield Numbe r: '.001'
  290        This field  contains  the intern al entry n umber for  this facil ity
  291        movement t ype.  This  number is  assigned  by the sys tem sequen tially
  292        with each  new entry.
  293       </Descript ion>
  294       <Type>
  295        %Library.S tring
  296       </Type>
  297       <SqlColumn Number>
  298        3
  299       </SqlColum nNumber>
  300       <SqlComput eCode>
  301                 S et {*}={IE N}
  302       </SqlCompu teCode>
  303       <SqlComput ed>
  304        1
  305       </SqlCompu ted>
  306       <SqlFieldN ame>
  307        NUMBER
  308       </SqlField Name>
  309       <Transient >
  310        1
  311       </Transien t>
  312       <Parameter  
  313        name="COLL ATION" 
  314        value="EXA CT"
  315       />
  316       <Parameter  
  317        name="TRUN CATE" 
  318        value="0"
  319       />
  320      </Property >
  321     
  322      <Property 
  323       name="TRAN SACTIONTYP E"
  324      >
  325       <Descripti on>
  326        FileMan Fi eld Label:  'TRANSACT ION TYPE'   FileMan F ield Numbe r: '.02'
  327        Enter the  type of tr ansaction  (admission , transfer , discharg e, check-i n
  328        lodger, ch eck-out lo dger, or s pecialty c hange) for  this move ment type.
  329       </Descript ion>
  330       <Type>
  331        BMS.MASMOV EMENTTRANS ACTIONTYPE
  332       </Type>
  333       <Required>
  334        1
  335       </Required >
  336       <SqlColumn Number>
  337        5
  338       </SqlColum nNumber>
  339       <SqlFieldN ame>
  340        TRANSACTIO N_TYPE
  341       </SqlField Name>
  342      </Property >
  343     
  344      <Property 
  345       name="TRAN SACTIONTYP ENAME"
  346      >
  347       <Descripti on>
  348        <![CDATA[
  349        Expanded P ointer Fie ld for TRA NSACTION_T YPE->NAME
  350        Enter the  type of tr ansaction  that is ac ceptable b y the MAS  package.   This
  351        field must  NOT be al tered as i t could se verely and  adversely  affect th e
  352        MAS packag e.]]>
  353       </Descript ion>
  354       <Type>
  355        %Library.S tring
  356       </Type>
  357       <SqlComput eCode>
  358        <![CDATA[        new  id,%ROWCOU NT,%ROWID, SQLCODE,va l set id={ %%ID}
  359                &s ql(select  TRANSACTIO N_TYPE->NA ME into :v al from BM S.FACILITY _MOVEMENT_ TYPE where  %ID=:id)
  360                se t {TRANSAC TION_TYPE_ NAME}=$sel ect(SQLCOD E=0:val,1: "")]]>
  361       </SqlCompu teCode>
  362       <SqlComput ed>
  363        1
  364       </SqlCompu ted>
  365       <SqlFieldN ame>
  366        TRANSACTIO N_TYPE_NAM E
  367       </SqlField Name>
  368       <Transient >
  369        1
  370       </Transien t>
  371       <ReadOnly>
  372        1
  373       </ReadOnly >
  374      </Property >
  375     
  376      <Trigger 
  377       name="Befo reDeleteFi ling"
  378      >
  379       <Descripti on>
  380        BEFORE Tri gger to pe rform fili ng
  381       </Descript ion>
  382       <Code>
  383                ne w:'$data(D UZ) DISYS, DT,DTIME,D UZ new %,% H,DA,DIC,D IK,IO,U,X, Y d DTNOLF ^DICRW s D IK="^DG(40 5.1," s DA ={%%ID} d  ^DIK s %Sk ipFiling=1  q
  384       </Code>
  385       <Event>
  386        DELETE
  387       </Event>
  388       <SqlName>
  389        BeforeDele teFiling
  390       </SqlName>
  391      </Trigger>
  392     
  393      <Trigger 
  394       name="Befo reInsertFi ling"
  395      >
  396       <Descripti on>
  397        BEFORE INS ERT Trigge r to perfo rm filing
  398       </Descript ion>
  399       <Code>
  400                ne w:'$data(D UZ) DISYS, DT,DTIME,D UZ new FDA ,FDAIEN,IO ,U,wp s FD AIEN(1)={I EN}
  401                s: {NAME}'=""  FDA(405.1 ,"+1,",.01 )={"NAME"}
  402                s: {TRANSACTI ON_TYPE}'= "" FDA(405 .1,"+1,",. 02)={"TRAN SACTION_TY PE"}
  403                s: {MOVEMENT_ TYPE}'=""  FDA(405.1, "+1,",.03) ={"MOVEMEN T_TYPE"}
  404                s: {ACTIVE}'= "" FDA(405 .1,"+1,",. 04)={"ACTI VE"}
  405                d  UPDATE^DIE ("","FDA", "FDAIEN"," %FMERR(405 .1)") s %S kipFiling= 1
  406                i  $d(%FMERR( 405.1,"DIE RR")) { s  U="^" d MS G^DIALOG(" AT",.err,3 2768,,"%FM ERR(405.1) ") s %ok=0  f err=1:1 :err { s $ p(%msg,$c( 13,10),err )=$g(err(e rr)) } q   }
  407                QU IT
  408       </Code>
  409       <Event>
  410        INSERT
  411       </Event>
  412       <SqlName>
  413        BeforeInse rtFiling
  414       </SqlName>
  415      </Trigger>
  416     
  417      <Trigger 
  418       name="Befo reUpdateFi ling"
  419      >
  420       <Descripti on>
  421        BEFORE UPD ATE Trigge r to perfo rm filing
  422       </Descript ion>
  423       <Code>
  424                ne w:'$data(D UZ) DISYS, DT,DTIME,D UZ new FDA ,IENS,IO,U ,wp,wproot  s IENS={I EN}_","
  425                s: {NAME*C} F DA(405.1,I ENS,.01)={ NAME}
  426                s: {TRANSACTI ON_TYPE*C}  FDA(405.1 ,IENS,.02) ={TRANSACT ION_TYPE}
  427                s: {MOVEMENT_ TYPE*C} FD A(405.1,IE NS,.03)={M OVEMENT_TY PE}
  428                s: {ACTIVE*C}  FDA(405.1 ,IENS,.04) ={ACTIVE}
  429                d: $d(FDA) UP DATE^DIE(" ","FDA",," %FMERR(405 .1)") s %S kipFiling= 1
  430                i  $d(%FMERR( 405.1,"DIE RR")) { s  U="^" d MS G^DIALOG(" AT",.err,3 2768,,"%FM ERR(405.1) ") s %ok=0  f err=1:1 :err { s $ p(%msg,$c( 13,10),err )=$g(err(e rr)) } q   }
  431                QU IT
  432       </Code>
  433       <Event>
  434        UPDATE
  435       </Event>
  436       <SqlName>
  437        BeforeUpda teFiling
  438       </SqlName>
  439      </Trigger>
  440     
  441      <Storage 
  442       name="SQLS torage"
  443      >
  444       <Type>
  445        %Library.C acheSQLSto rage
  446       </Type>
  447       <StreamLoc ation>
  448        ^BMS.FACIL ITYMOVEMEN TTYPES
  449       </StreamLo cation>
  450       <SQLMap 
  451        name="FACI LITYMOVEME NTTYPEData Map"
  452       >
  453        <Type>
  454         data
  455        </Type>
  456        <Global>
  457         ^DG
  458        </Global>
  459        <Subscript  
  460         name="1"
  461        >
  462         <Expressio n>
  463          405.1
  464         </Expressi on>
  465        </Subscrip t>
  466        <Subscript  
  467         name="2"
  468        >
  469         <Expressio n>
  470          {IEN}
  471         </Expressi on>
  472         <NextCode>
  473                  s: {L2}="" {L 2}=0 s {L2 }=$o(^({L2 })) s:'{L2 } {L2}=""
  474                  ;P REV
  475                  s: {L2}="" {L 2}=":" s { L2}=$o(^({ L2}),-1) s :'{L2} {L2 }=""
  476         </NextCode >
  477         <Invalidco ndition 
  478          name="1"
  479         >
  480          <Expressio n>
  481           <![CDATA[{ L2}'>0]]>
  482          </Expressi on>
  483         </Invalidc ondition>
  484        </Subscrip t>
  485        <Data 
  486         name="ACTI VE"
  487        >
  488         <Delimiter >
  489          "^"
  490         </Delimite r>
  491         <Node>
  492          0
  493         </Node>
  494         <Piece>
  495          4
  496         </Piece>
  497        </Data>
  498        <Data 
  499         name="MOVE MENT_TYPE"
  500        >
  501         <Delimiter >
  502          "^"
  503         </Delimite r>
  504         <Node>
  505          0
  506         </Node>
  507         <Piece>
  508          3
  509         </Piece>
  510        </Data>
  511        <Data 
  512         name="NAME "
  513        >
  514         <Delimiter >
  515          "^"
  516         </Delimite r>
  517         <Node>
  518          0
  519         </Node>
  520         <Piece>
  521          1
  522         </Piece>
  523        </Data>
  524        <Data 
  525         name="TRAN SACTION_TY PE"
  526        >
  527         <Delimiter >
  528          "^"
  529         </Delimite r>
  530         <Node>
  531          0
  532         </Node>
  533         <Piece>
  534          2
  535         </Piece>
  536        </Data>
  537       </SQLMap>
  538       <SQLMap 
  539        name="MOVE MENTTYPEin dexAM"
  540       >
  541        <Type>
  542         index
  543        </Type>
  544        <Global>
  545         ^DG
  546        </Global>
  547        <Populatio nType>
  548         nonnull
  549        </Populati onType>
  550        <Subscript  
  551         name="1"
  552        >
  553         <Expressio n>
  554          405.1
  555         </Expressi on>
  556        </Subscrip t>
  557        <Subscript  
  558         name="2"
  559        >
  560         <Expressio n>
  561          "AM"
  562         </Expressi on>
  563        </Subscrip t>
  564        <Subscript  
  565         name="3"
  566        >
  567         <Expressio n>
  568          {MOVEMENT_ TYPE}
  569         </Expressi on>
  570        </Subscrip t>
  571        <Subscript  
  572         name="4"
  573        >
  574         <Expressio n>
  575          {IEN}
  576         </Expressi on>
  577         <Invalidco ndition 
  578          name="1"
  579         >
  580          <Expressio n>
  581           <![CDATA[{ L4}'>0]]>
  582          </Expressi on>
  583         </Invalidc ondition>
  584        </Subscrip t>
  585       </SQLMap>
  586       <SQLMap 
  587        name="NAME indexB"
  588       >
  589        <Type>
  590         index
  591        </Type>
  592        <Condition >
  593         {NAME}'=""
  594        </Conditio n>
  595        <Condition alWithHost Vars>
  596         1
  597        </Conditio nalWithHos tVars>
  598        <Global>
  599         ^DG
  600        </Global>
  601        <Populatio nType>
  602         conditiona l
  603        </Populati onType>
  604        <Subscript  
  605         name="1"
  606        >
  607         <Expressio n>
  608          405.1
  609         </Expressi on>
  610        </Subscrip t>
  611        <Subscript  
  612         name="2"
  613        >
  614         <Expressio n>
  615          "B"
  616         </Expressi on>
  617        </Subscrip t>
  618        <Subscript  
  619         name="4"
  620        >
  621         <Expressio n>
  622          {IEN}
  623         </Expressi on>
  624         <Invalidco ndition 
  625          name="1"
  626         >
  627          <Expressio n>
  628           <![CDATA[{ L4}'>0]]>
  629          </Expressi on>
  630         </Invalidc ondition>
  631        </Subscrip t>
  632       </SQLMap>
  633       <SQLMap 
  634        name="TRAN SACTIONTYP EindexAT"
  635       >
  636        <Type>
  637         index
  638        </Type>
  639        <Global>
  640         ^DG
  641        </Global>
  642        <Populatio nType>
  643         nonnull
  644        </Populati onType>
  645        <Subscript  
  646         name="1"
  647        >
  648         <Expressio n>
  649          405.1
  650         </Expressi on>
  651        </Subscrip t>
  652        <Subscript  
  653         name="2"
  654        >
  655         <Expressio n>
  656          "AT"
  657         </Expressi on>
  658        </Subscrip t>
  659        <Subscript  
  660         name="3"
  661        >
  662         <Expressio n>
  663          {TRANSACTI ON_TYPE}
  664         </Expressi on>
  665        </Subscrip t>
  666        <Subscript  
  667         name="4"
  668        >
  669         <Expressio n>
  670          {IEN}
  671         </Expressi on>
  672         <Invalidco ndition 
  673          name="1"
  674         >
  675          <Expressio n>
  676           <![CDATA[{ L4}'>0]]>
  677          </Expressi on>
  678         </Invalidc ondition>
  679        </Subscrip t>
  680       </SQLMap>
  681      </Storage>
  682     </Class>
  683   </Export>