VistA software

Parent Previous Next

Routines, Options, Remote Procedures, Templates,  and Data Dictionary Changes


Routines        Description


R1SRLOR1        R1SRL OR SCHEDULE VIEWER is used to display today’s schedule of operations for all operating rooms.

R1SRLOR2       CALCULATE/UPDATE OPERATION TIMES calculates average operation times.

R1SRLOR3       R1SRL EDIT OPERATING ROOM CASE is used to edit pending Surgery cases, fields: 
               OPERATING ROOM, SCHEDULED START TIME, SCHEDULED END TIME, SURGEON, ATTEND SURG, PRINC ANESTHETIST,
               ANESTHESIOLOGIST SUPVR, OR CIRC SUPPORT, OR SCRUB SUPPORT.

R1SRLORP       R1SRL BUILD SURGERY FILE INDEX is a post-install routine used to build the Surgery file 130 index “R1SRLOR”.



Options


NAME: R1SRL OR SCHEDULE VIEWER

  MENU TEXT: OR SCHEDULE VIEWER         TYPE: Broker (Client/Server)

  LOCK: R1SRLORV

DESCRIPTION:   This is the RPC Broker server context option for the Region 1

Surgery OR Schedule Viewer client/server application. 

RPC: R1SRL GET DATE

RPC: R1SRL GET NDATE

RPC: R1SRL GET SDATA

RPC: R1SRL GET PCENT

RPC: R1SRL GET UDATE

  UPPERCASE MENU TEXT: OR SCHEDULE VIEWER


NAME: R1SRL EDIT OPERATING ROOM CASE

  MENU TEXT: Edit Operating Room Case   TYPE: run routine

  LOCK: R1SRLORV

DESCRIPTION:   Allows user to change information regarding a pending Surgery

case: OPERATING ROOM, SCHEDULED START TIME, SCHEDULED END TIME, SURGEON,

  ATTEND SURG, PRINC ANESTHETIST, ANESTHESIOLOGIST SUPVR, OR CIRC SUPPORT,

  OR SCRUB SUPPORT

 ROUTINE: R1SRLOR3

UPPERCASE MENU TEXT: EDIT OPERATING ROOM CASE



NAME: R1SRLOR DAILY UPDATE

  MENU TEXT: R1SRLOR Daily Update       TYPE: run routine

  DESCRIPTION:   This option is queued to run daily.  It collects information

from the SURGERY file for completed operations in order to update the R1SRLOR

TOTAL CASES file, fields SURGICAL SPECIALTY, CPT, TOTAL CASES, TOTAL CASE

LENGTH MINUTES for the purpose of determining the AVERAGE CASE LENGTH for a

CPT code for a SURGICAL SPECIALTY. 

  ROUTINE: R1SRLOR2                     SCHEDULING RECOMMENDED: YES

  UPPERCASE MENU TEXT: R1SRLOR DAILY UPDATE



Remote Procedures


REMOTE NAME: R1SRL GET DATE                     TAG: GETDATE

  ROUTINE: R1SRLOR1                                   RETURN VALUE TYPE: SINGLE VALUE

  AVAILABILITY: RESTRICTED                            INACTIVE: ACTIVE

  VERSION: 1

DESCRIPTION:  

 Get current date & time from Vista server.

INPUT PARAMETER: Days                   PARAMETER TYPE: LITERAL

  MAXIMUM DATA LENGTH: 2                REQUIRED: NO

  SEQUENCE NUMBER: 1

INPUT PARAMETER: Hours                  PARAMETER TYPE: LITERAL

  MAXIMUM DATA LENGTH: 2                REQUIRED: NO

  SEQUENCE NUMBER: 2

INPUT PARAMETER: Minutes                PARAMETER TYPE: LITERAL

  MAXIMUM DATA LENGTH: 2                REQUIRED: NO

  SEQUENCE NUMBER: 3

INPUT PARAMETER: Seconds                PARAMETER TYPE: LITERAL

  MAXIMUM DATA LENGTH: 2                REQUIRED: NO

  SEQUENCE NUMBER: 4



NAME: R1SRL GET NDATE                   TAG: GETNDAT

  ROUTINE: R1SRLOR1                     RETURN VALUE TYPE: ARRAY

  AVAILABILITY: RESTRICTED              INACTIVE: ACTIVE

  VERSION: 1

DESCRIPTION:  

 Calls up calendar and allows user to pick any date.

INPUT PARAMETER: Date                   PARAMETER TYPE: LITERAL

  MAXIMUM DATA LENGTH: 12               REQUIRED: NO

 SEQUENCE NUMBER: 1



NAME: R1SRL GET PCENT                   TAG: PCENT

  ROUTINE: R1SRLOR1                     RETURN VALUE TYPE: SINGLE VALUE

  AVAILABILITY: RESTRICTED              INACTIVE: ACTIVE

  VERSION: 1

DESCRIPTION:  

 Gets internal entry number of surgical case from scheduled operations in

 order to calculate percentage of operative procedure performed in the O.R.

INPUT PARAMETER: R1SRIEN                PARAMETER TYPE: LITERAL

  MAXIMUM DATA LENGTH: 12               REQUIRED: YES

  SEQUENCE NUMBER: 1

DESCRIPTION: Surgery file IEN


NAME: R1SRL GET SDATA                   TAG: GETDATA

  ROUTINE: R1SRLOR1                     RETURN VALUE TYPE: GLOBAL ARRAY

  AVAILABILITY: RESTRICTED              INACTIVE: ACTIVE

  WORD WRAP ON: TRUE                    VERSION: 1

DESCRIPTION:  

 Gets surgical data & demographics on patients scheduled for surgery.

INPUT PARAMETER: DATE                   PARAMETER TYPE: LITERAL

  REQUIRED: YES                         SEQUENCE NUMBER: 1


NAME: R1SRL GET UDATE                   TAG: PUPDT

  ROUTINE: R1SRLOR1                     RETURN VALUE TYPE: SINGLE VALUE

  AVAILABILITY: RESTRICTED              INACTIVE: ACTIVE

  VERSION: 1

DESCRIPTION:  

 Updates and returns beginning and ending times for scheduled operations. 

 Also includes times when patient is in and out of the O.R.

INPUT PARAMETER: R1SRIEN                PARAMETER TYPE: LITERAL

  MAXIMUM DATA LENGTH: 12               REQUIRED: YES

  SEQUENCE NUMBER: 1

DESCRIPTION: Surgery file IEN


Files


1. INPUT TEMPLATE called R1SRL EDIT OR CASE INFO associated with SURGERY file 130.

2. Two new cross-references on the SURGERY file 130 field .02 OPERATING ROOM and field 10 SCHEDULED START TIME.

3. R1SRLOR SURGERY CASE file.

4. R1SRLOR TOTAL CASES file.


SURGERY file 130 INPUT TEMPLATE:


NAME: R1SRL EDIT OR CASE INFO   

      DATE CREATED: AUG 22, 2011@14:25      READ ACCESS: @

      FILE: SURGERY                         USER #: 8431

      WRITE ACCESS: @                       DATE LAST USED: DEC 08, 2011


EDIT FIELDS (c): OPERATING ROOM

EDIT FIELDS (c): SCHEDULED START TIME

EDIT FIELDS (c): SCHEDULED END TIME

EDIT FIELDS (c): SURGEON

EDIT FIELDS (c): ATTEND SURG

EDIT FIELDS (c): PRINC ANESTHETIST

EDIT FIELDS (c): ANESTHESIOLOGIST SUPVR

EDIT FIELDS (c): OR CIRC SUPPORT

EDIT FIELDS (c):    OR CIRC SUPPORT

EDIT FIELDS (c): OR SCRUB SUPPORT

EDIT FIELDS (c):    OR SCRUB SUPPORT    COMPILED (c): NO


SURGERY file 130 cross-references:


FILE: SURGERY// 

   FIELD: .02  OPERATING ROOM

CROSS-REFERENCES:  MUMPS 'R1SRLOR' INDEX OF FILE

(Xref used by application R1SRL OR Schedule Viewer)



SET STATEMENT: N R1SRLX,R1SRLY S (R1SRLX,R1SRLY)=""

I $P(^SRF(DA,0),U,9)'="" S R1SRLX=$P($G(^SRF(DA,31)),U,4)

  S R1SRLY=$E($P(^SRF(DA,0),U,9),1,7)

  I (R1SRLX]"")&(R1SRLY]"") S ^SRF("R1SRLOR",X,R1SRLY,R1SRLX,DA)=""

          

KILL STATEMENT: N R1SRLX,R1SRLY S (R1SRLX,R1SRLY)=""

I $P(^SRF(DA,0),U,9)'="" S R1SRLX=$P($G(^SRF(DA,31)),U,4)

  S R1SRLY=$E($P(^SRF(DA,0),U,9),1,7) I (R1SRLX]"")&(R1SRLY]"")

  K ^SRF("R1SRLOR",X,R1SRLY,R1SRLX,DA),R1SRLX,R1SRLY

  

NO-DELETION MESSAGE: Xref used by application R1SRL OR Schedule Viewer


DESCRIPTION:

For the application R1SRL OR SCHEDULE VIEWER, the R1SRLOR cross reference

on the OPERATING ROOM field is used to sort the schedule of operations for

an operating room by the schedule of start times indexed with R1SRLOR

cross reference which is also on the SCHEDULED START TIME field.



FILE: SURGERY//

FIELD: 10  SCHEDULED START TIME

CROSS-REFERENCES: MUMPS 'R1SRLOR' INDEX OF FILE

              (Xref used by R1SRL OR Schedule Viewer)


SET STATEMENT: N R1SRLX,R1SRLY S (R1SRLX,R1SRLY)=""

I $P(^SRF(DA,0),U,9)'="" S R1SRLX=$P($G(^SRF(DA,0)),U,2)

  S R1SRLY=$E($P(^SRF(DA,0),U,9),1,7) I (R1SRLX]"")&(R1SRLY]"")

  S ^SRF("R1SRLOR",R1SRLX,R1SRLY,X,DA)=""

 

KILL STATEMENT: N R1SRLX,R1SRLY S (R1SRLX,R1SRLY)=""

I $P(^SRF(DA,0),U,9)'="" S R1SRLX=$P($G(^SRF(DA,0)),U,2)

  S R1SRLY=$E($P(^SRF(DA,0),U,9),1,7) I (R1SRLX]"")&(R1SRLY]"")

  K ^SRF("R1SRLOR",R1SRLX,R1SRLY,X,DA),R1SRLX,R1SRLY

          

NO-DELETION MESSAGE: Xref used by R1SRL OR Schedule Viewer


DESCRIPTION:

For the application R1SRL OR SCHEDULE VIEWER, the R1SRLOR cross reference

on the SCHEDULED START TIME field is used to sort the schedule of

operations for an operating room by the scheduled start time for each

scheduled case in association with the R1SRLOR cross reference on the

OPERATING ROOM field.



STANDARD DATA DICTIONARY #100150.005 -- R1SRLOR SURGERY CASE FILE                                                      

STORED IN ^R1(100150.005,  


DATA          NAME                  GLOBAL        DATA

ELEMENT       TITLE                 LOCATION      TYPE

-----------------------------------------------------------------------------

Additional information regarding Surgery cases. 


              DD ACCESS: @

              RD ACCESS: @

              WR ACCESS: @

             DEL ACCESS: @

           LAYGO ACCESS: @

           AUDIT ACCESS: @


        (NOTE: Kernel's File Access Security has been installed in this UCI.)


CROSS REFERENCED BY: CASE(B)


100150.005,.01CASE              0;1 POINTER TO SURGERY FILE (#130)

                                (Required)

              LAST EDITED:      NOV 07, 2011

              SCREEN:           D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X S:$D(X)  DINUM=X

              EXPLANATION:      Points to Surgery file

              CROSS-REFERENCE:  100150.005^B

                                1)= S ^R1(100150.005,"B",$E(X,1,30),DA)=""

                                2)= K ^R1(100150.005,"B",$E(X,1,30),DA)


100150.005,1  ESTIMATED CASE LENGTH  0;2 FREE TEXT


              INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1)!'((X?.N1":"2N)! ($P(X,":",2)>59)) X

              LAST EDITED:      NOV 18, 2011

              HELP-PROMPT:      Answer must be 1-7 characters format 01:23

              DESCRIPTION:      Surgery case length (difference between

                                patient admission and discharge time to OR),

                                calculated for specific operations/procedures

                                per surgical specialty from R1SRLOR*         

                                routines. 


              TECHNICAL DESCR:  Format of HOURS:MINUTES ex. a one and a half

                                hour procedure is 1:30 The field is filled

                                through the R1SRLOR* routines which calculate

                                the average operating room patient occupancy

                                time from previous cases of the same type. 


      FILES POINTED TO          FIELDS


SURGERY (#130)                  CASE (#.01)


INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):



STANDARD DATA DICTIONARY #100150.0051 -- R1SRLOR TOTAL CASES FILE                                      

STORED IN ^R1(100150.0051,


DATA          NAME                  GLOBAL        DATA

ELEMENT       TITLE                 LOCATION      TYPE

-----------------------------------------------------------------------------Collective information regarding Surgery cases. 


              DD ACCESS: @

              RD ACCESS: @

              WR ACCESS: @

             DEL ACCESS: @

           LAYGO ACCESS: @

           AUDIT ACCESS: @


        (NOTE: Kernel's File Access Security has been installed in this UCI.)


CROSS REFERENCED BY: SURGICAL SPECIALTY(B)


100150.0051,.01SURGICAL SPECIALTY    0;1 POINTER TO LOCAL SURGICAL SPECIALTY FILE (#137.45) (Required)


              LAST EDITED:      NOV 18, 2011

              SCREEN:           D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X S:$D(X) DINUM=X

              EXPLANATION:      Points to Local Surgical Specialty file

              CROSS-REFERENCE:  100150.0051^B

                                1)= S ^R1(100150.0051,"B",$E(X,1,30),DA)=""

                                2)= K ^R1(100150.0051,"B",$E(X,1,30),DA)


100150.0051,1 CPT                    1;0 POINTER Multiple #100150.511

              DESCRIPTION: This is the CPT code corresponding to the

              principal operative procedure. 



100150.511,.01  CPT                    0;1 POINTER TO CPT FILE (#81)

                LAST EDITED:      NOV 10, 2011

                SCREEN:           D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X S:$D(X) DINUM=X

                EXPLANATION:      Pointer to CPT file 81

                CROSS-REFERENCE:  100150.511^B

                      1)= S ^R1(100150.0051,DA(1),1,"B",$E(X,1,30),DA)=""

                      2)= K ^R1(100150.0051,DA(1),1,"B",$E(X,1,30),DA)



100150.511,1    TOTAL CASES            0;2 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>99999999999999)!(X<0)! (X?.E1"."1.N) X

                LAST EDITED:      NOV 09, 2011

                HELP-PROMPT:      Type a number between 0 and 99999999999999,

                                  0 decimal digits.


100150.511,2    TOTAL CASE LENGTH MINUTES 0;3 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>999999999999999)!(X<0)!

(X?.E1"."1.N) X

                LAST EDITED:      NOV 09, 2011

                HELP-PROMPT:      Type a number between 0 and

                                  999999999999999, 0 decimal digits.


100150.511,3    AVERAGE CASE LENGTH    0;4 NUMBER

                INPUT TRANSFORM:  K:+X'=X!(X>9999999999999)!(X<0)!

(X?.E1"."1.N) X

                LAST EDITED:      NOV 09, 2011

                HELP-PROMPT:      Type a number between 0 and 9999999999999,

                                  0 decimal digits.


FILES POINTED TO                  FIELDS


CPT (#81)                         CPT:CPT (#.01)


LOCAL SURGICAL SPECIALTY

                   (#137.45)      SURGICAL SPECIALTY (#.01)


INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):



Security Key:   R1SRLORV


This security key restricts access to the options OR SCHEDULE VIEWER [R1SRL OR SCHEDULE VIEWER] and EDIT OPERATING ROOM CASE [R1SRL CHANGE OR].


NAME: R1SRLORV

DESCRIPTION:   Locks option R1SRL OR SCHEDULE VIEWER which lists operating

room cases for the day.  Locks option R1SRL CHANGE OR to operating room

personnel authorized by anesthesiology supervisors to make changes to the OR

 Schedule on the day of surgery.