Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SROVAR

Package: Surgery

Routine: SROVAR


Information

SROVAR ;BIR/MAM,ADM - SITE PARAMETERS ; 7/21/09 1:37pm

Source Information

Source file <SROVAR.m>

Entry Points

Name Comments DBIA/ICR reference
SET ; set site parameters
  • ICR #3628
    • Status: Active
    • Usage: Controlled Subscription
    CPT ; display CPT copyright notice
    EN2 ; set view only and titles for screens
    DEV
    TIME ; transform time to date of operation at that time
    BEFORE
    RESET
    INPUT ; input transfor for ASA CLASS
    PARAM ; enter/edit site parameters
    EXIT ; exit action for all Surgery options
    SITE() ; extrinsic call to output Institution file pointer (from Default Institution field in file 4.3)^Institution name^Station number
    OFF1 ; compare time off with time on
    OFF2 ; compare time off with time on
    COMP
    OUT
    TERM ; compare stop time with start time
    PLUS24
    CLEAR ; clean-up case edit/lock flags in ^XTMP
    EN3 ; the Sterility Expiration Date should be after the Date of Operation
    BEF

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: SROVAR+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: CPT+2
    Function Call: WRITE
    • Prompt: $S(X=$E(ION,1,$L(X)):$E(ION,$L(X)+1,$L(ION)),1:" "_ION)
    • Line Location: DEV+1
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: PARAM+1
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: PARAM+1
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: PARAM+3
    Function Call: WRITE
    • Prompt: !!,"Time Off should be later than Time On.",!
    • Line Location: COMP+0
    Function Call: WRITE
    • Prompt: !!,"The date entered is before the 'DATE OF OPERATION'. Please check the",!,"DATE entered for this field."
    • Line Location: BEF+0

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^SRO(133 - [#133] Classic Fileman Calls
    ^DIC(4 - [#4] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call