701. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 10/26/2017 10:44:45 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.

701.1 Files compared

# Location File Last Modified
1 OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\BMSv2Updates\2.2.8.1\WaitingList Waiting_List_UpdateSproc.sql Wed Oct 18 19:06:46 2017 UTC
2 OSCIF_BMS_v2_iter 2_September_2017.zip\BMS_Cand\Source\Sources\Database\BMSv2Updates\2.2.8.1\WaitingList Waiting_List_UpdateSproc.sql Thu Oct 26 19:44:22 2017 UTC

701.2 Comparison summary

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

701.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

701.4 Active regular expressions

No regular expressions were active.

701.5 Comparison detail

  1   USE [BMS]
  2   GO
  3  
  4   /****** Ob ject:  Sto redProcedu re [dbo].[ usp_Update _WaitingLi stItem]     Script Da te: 4/13/2 016 3:44:3 1 PM ***** */
  5   SET ANSI_N ULLS ON
  6   GO
  7  
  8   SET QUOTED _IDENTIFIE R ON
  9   GO
  10  
  11   -- ======= ========== ========== ========== ========
  12   -- Author:                 PII
  13   -- Create  date: 31.0 8.2011
  14   -- Descrip tion: Upda te waiting  list item  by id.
  15   -- ======= ========== ========== ========== ========
  16   ALTER PROC EDURE [dbo ].[usp_Upd ate_Waitin gListItem]  
  17           @A CT_ID INT  OUTPUT,
  18           @C REATION_DA TE DATETIM E,
  19           @C ANCELED_DA TE DATETIM E,
  20           @P ARENT_ACT_ ID INT,
  21           @F LOW_ID UNI QUEIDENTIF IER,
  22           @D OMAIN_ID V ARCHAR(50) ,
  23           @P ATIENT_UID  UNIQUEIDE NTIFIER,
  24           @I EN VARCHAR (50),
  25           @F ACILITY_UI D UNIQUEID ENTIFIER,
  26           @P ROBLEM VAR CHAR(MAX),
  27           @F EE_COMMENT S VARCHAR( 150),
  28           @R EMOVED_DAT E DATETIME ,
  29           @W AITING_ARE A_CODE VAR CHAR(100),
  30           @W AITING_ARE A_CODE_SYS TEM VARCHA R(100),
  31           @W AITING_ARE A_CODE_SYS TEM_NAME V ARCHAR(100 ),
  32           @W AITING_ARE A_DISPLAY_ NAME VARCH AR(250),
  33           @R EASON_USIN G_FEE_CODE  VARCHAR(1 00),
  34           @R EASON_USIN G_FEE_CODE _SYSTEM VA RCHAR(100) ,
  35           @R EASON_USIN G_FEE_CODE _SYSTEM_NA ME VARCHAR (100),
  36           @R EASON_USIN G_FEE_DISP LAY_NAME V ARCHAR(250 ),
  37           @S ERVICE_REC EIVING_FEE _CODE      VARCHAR(10 0),
  38           @S ERVICE_REC EIVING_FEE _CODE_SYST EM VARCHAR (100),
  39           @S ERVICE_REC EIVING_FEE _CODE_SYST EM_NAME VA RCHAR(100) ,
  40           @S ERVICE_REC EIVING_FEE _DISPLAY_N AME     VA RCHAR(250) ,
  41           @A UTHORIZED_ FEE_CODE V ARCHAR(100 ),
  42           @A UTHORIZED_ FEE_CODE_S YSTEM      VARCHAR(10 0),
  43           @A UTHORIZED_ FEE_CODE_S YSTEM_NAME  VARCHAR(1 00),
  44           @A UTHORIZED_ FEE_DISPLA Y_NAME VAR CHAR(250),
  45           @C ONTRACT_FE E_CODE VAR CHAR(100),
  46           @C ONTRACT_FE E_CODE_SYS TEM VARCHA R(100),
  47           @C ONTRACT_FE E_CODE_SYS TEM_NAME V ARCHAR(100 ),
  48           @C ONTRACT_FE E_DISPLAY_ NAME VARCH AR(250),
  49           @F EE_DISPOSI TION_CODE  VARCHAR(10 0),
  50           @F EE_DISPOSI TION_CODE_ SYSTEM VAR CHAR(100),
  51           @F EE_DISPOSI TION_CODE_ SYSTEM_NAM E VARCHAR( 100),
  52           @F EE_DISPOSI TION_DISPL AY_NAME VA RCHAR(250) ,
  53           @T YPE_OF_BED _WARD VARC HAR(MAX),
  54           @R EQUESTED_B ED_UID UNI QUEIDENTIF IER,
  55           @R EQUESTED_B ED_DATE DA TETIME,
  56           @R EQUESTED_D ATE DATETI ME,
  57           @V ISTA_SITE_ UID UNIQUE IDENTIFIER ,
  58           @I S_IN_HOUSE  BIT,
  59           @L AST_EDIT_B Y NVARCHAR (100),
  60           @C OMMENTS VA RCHAR(150) ,
  61           @I S_BED_IN_I SOLATION B IT,
  62           @W AIT_TIME_A LERT_DATE  DATETIME,
  63           @I S_COMMUNIT Y_LIVING_C ENTER BIT,
  64       @IS_EV ACUATION_P ATIENT BIT ,
  65           @I S_MENTAL_H EALTH_PATI ENT BIT,
  66           @E VACUATION_ DISPOSITIO N_STATUS_C ODE VARCHA R(100),
  67           @E VACUATION_ DISPOSITIO N_STATUS_C ODE_SYSTEM  VARCHAR(1 00),
  68           @E VACUATION_ DISPOSITIO N_STATUS_C ODE_SYSTEM _NAME VARC HAR(100),
  69           @E VACUATION_ DISPOSITIO N_STATUS_D ISPLAY_NAM E VARCHAR( 100),
  70           @E VACUATION_ EXPECTED_D ATE DATETI ME,
  71           @E VACUATION_ ACTUAL_DAT E DATETIME ,
  72           @E VACUATION_ REASON_FOR _DELAY NVA RCHAR(250) ,
  73           @E VACUATION_ TRANSFER_E VACUATE_TO  NVARCHAR( 250),
  74           @E VACUATION_ EQUIP_SUPP LY_REQUIRE MENTS NVAR CHAR(250),
  75           @E VACUATION_ TRANSPORTA TION_CARE_ LEVEL NVAR CHAR(250),
  76           @E VACUATION_ ENROUTE_ME DICAL_ATTE NDANT NVAR CHAR(250),
  77           @E VACUATION_ ENROUTE_NO N_MEDICAL_ ATTENDANT  NVARCHAR(2 50),
  78           @E VACUATION_ TRANSPORTA TION_TYPE_ CODE VARCH AR(100),
  79           @E VACUATION_ TRANSPORTA TION_TYPE_ CODE_SYSTE M VARCHAR( 100),
  80           @E VACUATION_ TRANSPORTA TION_TYPE_ CODE_SYSTE M_NAME VAR CHAR(100),
  81           @E VACUATION_ TRANSPORTA TION_TYPE_ DISPLAY_NA ME VARCHAR (100),
  82           @E VACUATION_ TRANSPORTA TION_PROVI DER_CODE V ARCHAR(100 ),
  83           @E VACUATION_ TRANSPORTA TION_PROVI DER_CODE_S YSTEM VARC HAR(100),
  84           @E VACUATION_ TRANSPORTA TION_PROVI DER_CODE_S YSTEM_NAME  VARCHAR(1 00),
  85           @E VACUATION_ TRANSPORTA TION_PROVI DER_DISPLA Y_NAME VAR CHAR(100),
  86           @E VACUATION_ TRANSPORTA TION_COMME NTS NVARCH AR(250),
  87           @E VACUATION_ DESTINATIO N_ADDRESS  NVARCHAR(2 50),
  88           @E VACUATION_ DESTINATIO N_CITY_STA TE NVARCHA R(250),
  89           @E VACUATION_ DESTINATIO N_POC_TELE PHONE NVAR CHAR(100),
  90           @E VACUATION_ ORIGINATOR _POC_TELEP HONE NVARC HAR(100),
  91           @E VACUATION_ COMMENTS N VARCHAR(50 0),
  92           @E VACUATION_ ENROUTE_ME DICAL_ATTE NDANT_NUMB ER INT,
  93           @E VACUATION_ ENROUTE_NO N_MEDICAL_ ATTENDANT_ NUMBER INT ,
  94           @E VACUATION_ ARRIVAL_TI ME DATETIM E,
  95           @E VACUATION_ VEHICLE_ID  NVARCHAR( 250),
  96           @E VACUATION_ VEHICLE_SE AT_POSITIO N NVARCHAR (250),
  97           @E VACUATION_ MA_TELEPHO NE nvarcha r(100),
  98           @E VACUATION_ NMA_TELEPH ONE nvarch ar(100),
  99           @E VACUATION_ ORIGINATIN G_FACILITY _NAME nvar char(250),
  100           @E VACUATION_ ORIGINATIN G_ADDRESS  nvarchar(2 50),
  101           @E VACUATION_ ORIGINATIN G_CITY_STA TE nvarcha r(250),
  102           @E VACUATION_ VEHICLE_OP ERATOR_NAM E nvarchar (250),
  103           @E VACUATION_ VEHICLE_OP ERATOR_TEL EPHONE nva rchar(100) ,
  104           @D ATE_OF_SCR EENING dat etime,
  105           @C ONTACT_PHO NE_NUMBER  nvarchar(1 00),
  106           @V ETERAN_PRE FERENCE nv archar(50) ,
  107           @M ENTAL_HEAL TH_COMMENT S nvarchar (500),
  108           @P ATIENT_FLO W_COMMENTS  nvarchar( 500),
  109           @F EE_ACCEPTE D nvarchar (50),
  110           @F EE_ACCEPTI NG_MD nvar char(250)
  111   AS
  112   SET NOCOUN T ON
  113  
  114   BEGIN
  115  
  116           DE CLARE @WAI TING_AREA_ ID INT, @F EE_DISPOSI TION_ID IN T, @CONTRA CT_FEE_ID  INT, @AUTH ORIZED_FEE _ID INT, @ SERVICE_RE CEIVING_FE E_ID INT, 
  117                             @REASO N_USING_FE E_ID INT,  @EVACUATIO N_DISPOSIT ION_STATUS _ID INT, @ EVACUATION _TRANSPORT ATION_TYPE _ID INT,
  118                             @EVACU ATION_TRAN SPORTATION _PROVIDER_ ID INT       
  119  
  120           EX EC dbo.usp _Update_Ac t
  121                    @PAT IENT_UID =  @PATIENT_ UID,
  122                    @CRE ATION_DATE  = @CREATI ON_DATE,
  123                    @CAN CELED_DATE  = @CANCEL ED_DATE,
  124                    @PAR ENT_ACT_ID  = @PARENT _ACT_ID,
  125                    @FLO W_ID = @FL OW_ID,
  126                    @DOM AIN_ID = @ DOMAIN_ID,
  127                    @IEN  = @IEN,
  128                    @ID  = @ACT_ID
  129  
  130           -- WAITING AR EA CONCEPT  EXISTENCE  CHECK
  131           EX EC DBO.USP _MANAGE_CO NCEPT 
  132                    @COD E = @WAITI NG_AREA_CO DE, 
  133                    @COD E_SYSTEM =  @WAITING_ AREA_CODE_ SYSTEM, 
  134                    @COD E_SYSTEM_N AME = @WAI TING_AREA_ CODE_SYSTE M_NAME, 
  135                    @DIS PLAY_NAME  = @WAITING _AREA_DISP LAY_NAME, 
  136                    @ID  = @WAITING _AREA_ID   OUTPUT
  137  
  138           -- FEE DISPOS ITION CONC EPT EXISTE NCE CHECK
  139           EX EC DBO.USP _MANAGE_CO NCEPT 
  140                    @COD E = @FEE_D ISPOSITION _CODE, 
  141                    @COD E_SYSTEM =  @FEE_DISP OSITION_CO DE_SYSTEM,  
  142                    @COD E_SYSTEM_N AME = @FEE _DISPOSITI ON_CODE_SY STEM_NAME,  
  143                    @DIS PLAY_NAME  = @FEE_DIS POSITION_D ISPLAY_NAM E, 
  144                    @ID  = @FEE_DIS POSITION_I D OUTPUT
  145  
  146           -- CONTRACT F EE CONCEPT  EXISTENCE  CHECK
  147           EX EC DBO.USP _MANAGE_CO NCEPT 
  148                    @COD E = @CONTR ACT_FEE_CO DE, 
  149                    @COD E_SYSTEM =  @CONTRACT _FEE_CODE_ SYSTEM, 
  150                    @COD E_SYSTEM_N AME = @CON TRACT_FEE_ CODE_SYSTE M_NAME, 
  151                    @DIS PLAY_NAME  = @CONTRAC T_FEE_DISP LAY_NAME, 
  152                    @ID  = @CONTRAC T_FEE_ID O UTPUT
  153  
  154           -- AUTHORIZED  FEE CONCE PT EXISTEN CE CHECK
  155           EX EC DBO.USP _MANAGE_CO NCEPT 
  156                    @COD E = @AUTHO RIZED_FEE_ CODE,
  157                    @COD E_SYSTEM =  @AUTHORIZ ED_FEE_COD E_SYSTEM, 
  158                    @COD E_SYSTEM_N AME = @AUT HORIZED_FE E_CODE_SYS TEM_NAME, 
  159                    @DIS PLAY_NAME  = @AUTHORI ZED_FEE_DI SPLAY_NAME
  160                    @ID  = @AUTHORI ZED_FEE_ID  OUTPUT
  161  
  162           -- SERVICE RE CEIVING FE E CONCEPT  EXISTENCE  CHECK
  163           EX EC DBO.USP _MANAGE_CO NCEPT 
  164                    @COD E = @SERVI CE_RECEIVI NG_FEE_COD E, 
  165                    @COD E_SYSTEM =  @SERVICE_ RECEIVING_ FEE_CODE_S YSTEM, 
  166                    @COD E_SYSTEM_N AME = @SER VICE_RECEI VING_FEE_C ODE_SYSTEM _NAME, 
  167                    @DIS PLAY_NAME  = @SERVICE _RECEIVING _FEE_DISPL AY_NAME, 
  168                    @ID  = @SERVICE _RECEIVING _FEE_ID OU TPUT
  169  
  170           -- REASON USI NG FEE CON CEPT EXIST ENCE CHECK
  171           EX EC DBO.USP _MANAGE_CO NCEPT 
  172                    @COD E = @REASO N_USING_FE E_CODE, 
  173                    @COD E_SYSTEM =  @REASON_U SING_FEE_C ODE_SYSTEM
  174                    @COD E_SYSTEM_N AME = @REA SON_USING_ FEE_CODE_S YSTEM_NAME
  175                    @DIS PLAY_NAME  = @REASON_ USING_FEE_ DISPLAY_NA ME, 
  176                    @ID  = @REASON_ USING_FEE_ ID OUTPUT
  177                    
  178           IF  @IS_EVACU ATION_PATI ENT IS NOT  NULL AND  @IS_EVACUA TION_PATIE NT = 1
  179                    BEGI N            
  180                             -- EVA CUATION DI SPOSITION  STATUS EXI STENCE CHE CK        
  181                             EXEC d bo.USP_MAN AGE_CONCEP
  182                                      @CODE =  @EVACUATIO N_DISPOSIT ION_STATUS _CODE, 
  183                                      @CODE_SY STEM = @EV ACUATION_D ISPOSITION _STATUS_CO DE_SYSTEM,
  184                                      @CODE_SY STEM_NAME  = @EVACUAT ION_DISPOS ITION_STAT US_CODE_SY STEM_NAME,
  185                                      @DISPLAY _NAME = @E VACUATION_ DISPOSITIO N_STATUS_D ISPLAY_NAM E,
  186                                      @ID = @E VACUATION_ DISPOSITIO N_STATUS_I D  OUTPUT
  187                                      
  188                             -- EVA CUATION TR ANSPORTATI ON TYPE EX ISTENCE CH ECK       
  189                             EXEC d bo.USP_MAN AGE_CONCEP
  190                                      @CODE =  @EVACUATIO N_TRANSPOR TATION_TYP E_CODE, 
  191                                      @CODE_SY STEM = @EV ACUATION_T RANSPORTAT ION_TYPE_C ODE_SYSTEM ,
  192                                      @CODE_SY STEM_NAME  = @EVACUAT ION_TRANSP ORTATION_T YPE_CODE_S YSTEM,
  193                                      @DISPLAY _NAME = @E VACUATION_ TRANSPORTA TION_TYPE_ DISPLAY_NA ME,
  194                                      @ID = @E VACUATION_ TRANSPORTA TION_TYPE_ ID  OUTPUT
  195                                      
  196                             -- EVA CUATION TR ANSPORTATI ON PROVIDE R EXISTENC E CHECK   
  197                             EXEC d bo.USP_MAN AGE_CONCEP
  198                                      @CODE =  @EVACUATIO N_TRANSPOR TATION_PRO VIDER_CODE
  199                                      @CODE_SY STEM = @EV ACUATION_T RANSPORTAT ION_PROVID ER_CODE_SY STEM,
  200                                      @CODE_SY STEM_NAME  = @EVACUAT ION_TRANSP ORTATION_P ROVIDER_CO DE_SYSTEM_ NAME,
  201                                      @DISPLAY _NAME = @E VACUATION_ TRANSPORTA TION_PROVI DER_DISPLA Y_NAME,
  202                                      @ID = @E VACUATION_ TRANSPORTA TION_PROVI DER_ID  OU TPUT
  203                    END
  204           EL SE
  205                    BEGI N
  206                             SET @E VACUATION_ DISPOSITIO N_STATUS_I D = NULL
  207                             SET @E VACUATION_ TRANSPORTA TION_TYPE_ ID = NULL
  208                             SET @E VACUATION_ TRANSPORTA TION_PROVI DER_ID = N ULL
  209                    END
  210           
  211           UP DATE WAITI NG_LIST
  212                    SET
  213                             FACILI TY_UID = @ FACILITY_U ID, 
  214                             WAITIN G_AREA_ID  = @WAITING _AREA_ID, 
  215                             PROBLE M = @PROBL EM, 
  216                             FEE_DI SPOSITION_ ID = @FEE_ DISPOSITIO N_ID, 
  217                             CONTRA CT_FEE_ID  = @CONTRAC T_FEE_ID, 
  218                             AUTHOR IZED_FEE_I D = @AUTHO RIZED_FEE_ ID, 
  219                             SERVIC E_RECEIVIN G_FEE_ID =  @SERVICE_ RECEIVING_ FEE_ID, 
  220                             REASON _USING_FEE _ID = @REA SON_USING_ FEE_ID, 
  221                             FEE_CO MMENTS = @ FEE_COMMEN TS, 
  222                             REMOVE D_DATE = @ REMOVED_DA TE, 
  223                             TYPE_O F_BED_WARD  = @TYPE_O F_BED_WARD ,
  224                             REQUES TED_BED_UI D = @REQUE STED_BED_U ID,
  225                             REQUES TED_BED_DA TE = @REQU ESTED_BED_ DATE,
  226                             REQUES TED_DATE =  @REQUESTE D_DATE,
  227                             VISTA_ SITE_UID =  @VISTA_SI TE_UID,
  228                             IS_IN_ HOUSE = @I S_IN_HOUSE ,
  229                             LAST_E DIT_BY = @ LAST_EDIT_ BY,
  230                             COMMEN TS = @COMM ENTS,
  231                             IS_BED _IN_ISOLAT ION = @IS_ BED_IN_ISO LATION,
  232                             WAIT_T IME_ALERT_ DATE= @WAI T_TIME_ALE RT_DATE,
  233                             IS_COM MUNITY_LIV ING_CENTER  = @IS_COM MUNITY_LIV ING_CENTER ,
  234                             IS_EVA CUATION_PA TIENT = @I S_EVACUATI ON_PATIENT ,
  235                             IS_MEN TAL_HEALTH _PATIENT =  @IS_MENTA L_HEALTH_P ATIENT,
  236                             EVACUA TION_DISPO SITION_STA TUS_ID = @ EVACUATION _DISPOSITI ON_STATUS_ ID,
  237                             EVACUA TION_EXPEC TED_DATE =  @EVACUATI ON_EXPECTE D_DATE,
  238                             EVACUA TION_ACTUA L_DATE = @ EVACUATION _ACTUAL_DA TE,
  239                             EVACUA TION_REASO N_FOR_DELA Y = @EVACU ATION_REAS ON_FOR_DEL AY,
  240                             EVACUA TION_TRANS FER_EVACUA TE_TO = @E VACUATION_ TRANSFER_E VACUATE_TO ,
  241                             EVACUA TION_EQUIP _SUPPLY_RE QUIREMENTS  =@EVACUAT ION_EQUIP_ SUPPLY_REQ UIREMENTS,
  242                             EVACUA TION_TRANS PORTATION_ CARE_LEVEL  =@EVACUAT ION_TRANSP ORTATION_C ARE_LEVEL,
  243                             EVACUA TION_ENROU TE_MEDICAL _ATTENDANT =@EVACUATI ON_ENROUTE _MEDICAL_A TTENDANT,
  244                             EVACUA TION_ENROU TE_NON_MED ICAL_ATTEN DANT =@EVA CUATION_EN ROUTE_NON_ MEDICAL_AT TENDANT,
  245                             EVACUA TION_TRANS PORTATION_ TYPE_ID =  @EVACUATIO N_TRANSPOR TATION_TYP E_ID,
  246                             EVACUA TION_TRANS PORTATION_ PROVIDER_I D = @EVACU ATION_TRAN SPORTATION _PROVIDER_ ID,
  247                             EVACUA TION_TRANS PORTATION_ COMMENTS =  @EVACUATI ON_TRANSPO RTATION_CO MMENTS,
  248                             EVACUA TION_DESTI NATION_ADD RESS = @EV ACUATION_D ESTINATION _ADDRESS,
  249                             EVACUA TION_DESTI NATION_CIT Y_STATE =@ EVACUATION _DESTINATI ON_CITY_ST ATE,
  250                             EVACUA TION_DESTI NATION_POC _TELEPHONE  =@EVACUAT ION_DESTIN ATION_POC_ TELEPHONE,
  251                             EVACUA TION_ORIGI NATOR_POC_ TELEPHONE  =@EVACUATI ON_ORIGINA TOR_POC_TE LEPHONE,
  252                             EVACUA TION_COMME NTS =@EVAC UATION_COM MENTS,
  253                             EVACUA TION_ENROU TE_MEDICAL _ATTENDANT _NUMBER =  @EVACUATIO N_ENROUTE_ MEDICAL_AT TENDANT_NU MBER,
  254                             EVACUA TION_ENROU TE_NON_MED ICAL_ATTEN DANT_NUMBE R = @EVACU ATION_ENRO UTE_NON_ME DICAL_ATTE NDANT_NUMB ER,
  255                             EVACUA TION_ARRIV AL_TIME =  @EVACUATIO N_ARRIVAL_ TIME,
  256                             EVACUA TION_VEHIC LE_ID = @E VACUATION_ VEHICLE_ID ,
  257                             EVACUA TION_VEHIC LE_SEAT_PO SITION = @ EVACUATION _VEHICLE_S EAT_POSITI ON,
  258                             EVACUA TION_MA_TE LEPHONE =  @EVACUATIO N_MA_TELEP HONE,
  259                             EVACUA TION_NMA_T ELEPHONE =  @EVACUATI ON_NMA_TEL EPHONE,
  260                             EVACUA TION_ORIGI NATING_FAC ILITY_NAME  = @EVACUA TION_ORIGI NATING_FAC ILITY_NAME ,
  261                             EVACUA TION_ORIGI NATING_ADD RESS = @EV ACUATION_O RIGINATING _ADDRESS,
  262                             EVACUA TION_ORIGI NATING_CIT Y_STATE =  @EVACUATIO N_ORIGINAT ING_CITY_S TATE,
  263                             EVACUA TION_VEHIC LE_OPERATO R_NAME = @ EVACUATION _VEHICLE_O PERATOR_NA ME,
  264                             EVACUA TION_VEHIC LE_OPERATO R_TELEPHON E = @EVACU ATION_VEHI CLE_OPERAT OR_TELEPHO NE,
  265                             DATE_O F_SCREENIN G = @DATE_ OF_SCREENI NG,
  266                             CONTAC T_PHONE_NU MBER = @CO NTACT_PHON E_NUMBER,
  267                             VETERA N_PREFEREN CE = @VETE RAN_PREFER ENCE,
  268                             MENTAL _HEALTH_CO MMENTS = @ MENTAL_HEA LTH_COMMEN TS,
  269                             PATIEN T_FLOW_COM MENTS = @P ATIENT_FLO W_COMMENTS ,
  270                             FEE_AC CEPTED = @ FEE_ACCEPT ED,
  271                             FEE_AC CEPTING_MD  = @FEE_AC CEPTING_MD
  272                             WHERE  ACT_ID = @ ACT_ID
  273  
  274           IF  @@ERROR<> 0 RETURN
  275   END
  276  
  277   GO
  278  
  279