Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA FileMan 7 ^%DT  C^%DTC  EN^DDIOL  ^DIC  FILE^DICN  $$GET1^DIQ  ^DIR  
Kernel 4 ^%ZIS  ^%ZISC  $$NOW^XLFDT  $$KSP^XUPARAM  
Surgery 3 ^SRCUSS  ^SROCON  ^SRSKILL  
CPT HCPCS Codes 1 COPY^ICPTAPIU  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 94

Package Total Caller Graph
Surgery 93 OR SCHEDULE DEVICES  SR ANESTH REPORTS  SR BLOOD PRODUCT VERIFICATION  SR BLOOD PRODUCT VERIFY AUDIT  SR CPT ACCURACY  SR CPT REPORTS  SR MANAGE REPORTS  SR NO ASSESSMENT REASON  
SR NON-OR INFO  SR NON-OR REPORT  SR NORMAL HOURS  SR OR HOURS  SR OR UTIL  SR OR UTL1  SR PURGE UTILIZATION  SR STAFFING REPORTS  
SR TRANSPLANT ASSESSMENT  SR TRANSPLANT ENTER/EDIT  SR TRANSPLANT PARAMETERS  SR UPDATE FILES  SR UPDATE SCHEDULE DEVICE  SR UTIL EDIT ROOM  SR VIEW HISTORICAL REPORTS  SR54UTL  
SR61UTL  SR62UTL  SR68UTL0  SR81UTL  SR83UTL  SR88UTL  SR93UTL  SR95UTL  
SRCODING EDIT  SRCODING MENU  SRCODING NURSE REPORT  SRCODING OP REPORT  SRCODING UPDATE/VERIFY MENU  SRHLENV  SRHLPOST  SRO CASES BY DISPOSITION  
SRO CASES BY PRIORITY  SRO COMPLICATIONS MENU  SRO DEATH RELATED  SRO DEL MENU  SRO1L  SRO3P90  SROACMP1  SROALESS  
SROALNO  SROALOG  SROAMAN  SROANIN  SROAPCA  SROARPT  SROATCM  SROATCM2  
SROATM4  SROATMIT  SROATMNO  SROAWL  SROAWL1  SROCD  SRODELA  SROERR  
SROHIS  SROMENU  SRONBCH  SRONEW  SRONIN  SRONON  SRONOP  SRONPEN  
SROP  SROPARAM  SROPER  SROQ30D  SROQADM  SROQD  SROQIDP0  SROQL  
SROQN  SROSCH1  SROTRPT  SROTRPT0  SROUTL0  SROVER2  SRSCHUN1  SRSPUT0  
SRSRQST1  SRSUP1  SRSUPRQ  SRTPLS  SRTPTMIT  
Kernel 1 ^DIC(19  

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

    External References

    Name Field # of Occurrence
    ^%DT TIME+3, OFF1+1, OFF2+1, TERM+6, TERM+8, EN3+2
    C^%DTC TERM+7
    ^%ZIS DEV
    ^%ZISC DEV+1
    EN^DDIOL TERM+3, TERM+4
    ^DIC PARAM+1, SITE+3
    FILE^DICN CPT+4, CPT+5
    $$GET1^DIQ SET+3, PARAM+2, SITE+6
    ^DIR SROVAR+11, CPT+2, PLUS24+1
    COPY^ICPTAPIU CPT+2
    ^SRCUSS PARAM+3
    ^SROCON INPUT+1
    ^SRSKILL SROVAR+11
    DEM^VADPT EN2+2
    $$NOW^XLFDT CLEAR+1
    $$KSP^XUPARAM SITE+2

    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
    Routine Call
    • DIC
    • Line Location:
      • PARAM+1
      • SITE+3
    Routine Call
    • DIR
    • Line Location:
      • SROVAR+11
      • CPT+2
      • PLUS24+1
    Routine Call
    • %ZIS
    • Line Location:
      • DEV

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^SRO(133 - [#133] Classic Fileman Calls
    ^DIC(4 - [#4] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" PLUS24
    ^DD(133 CPT+4
    ^DD(133.036 CPT+5
    ^SRF - [#130] EN2+2, TIME+3, INPUT+1, OFF1+1, OFF1+2, OFF2+1, OFF2+2, TERM+2, TERM+3, TERM+7
    , EN3+2
    ^SRO(133 - [#133] SROVAR+8, SET+1, CPT+1, CPT+3, CPT+4, SITE+4, SITE+5
    ^TMP("CSLSUR1" SROVAR+5!
    ^TMP("SRCUSS" EXIT+1!
    ^TMP("SRPFSS" SROVAR+5!
    ^XTMP( CLEAR+2, CLEAR+3, CLEAR+4!, CLEAR+5!
    ^XUSEC("SROEDIT" EN2+1

    Label References

    Name Line Occurrences
    BEF EN3+2
    BEFORE TIME+3
    CLEAR SROVAR+5, EXIT+2
    COMP OFF1+2
    CPT SROVAR+7
    OUT OFF1+1, OFF2+1, TERM+2, TERM+6, TERM+7, TERM+8
    PLUS24 TERM+7
    RESET TIME+3
    SET SROVAR+9, PARAM+3

    Naked Globals

    Name Field # of Occurrence
    ^( SITE+5
    ^("CON" INPUT+1
    ^(0 SITE+5

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %DT TIME+3*, OFF1+1!*, OFF2+1!*, OUT!, TERM+6!*, TERM+8!*, EN3+2*
    %ZIS DEV!*, DEV+1!
    >> D0 EN3+2
    DA CPT+3!, CPT+4!, CPT+5!, TIME+1*, TIME+2*, TIME+3, TIME+4*, RESET*, INPUT+1*, PARAM+3!*
    , OFF1+2, OFF2+2, TERM+2, TERM+3, TERM+7, EN3+1*, EN3+3*
    DA(1 CPT+4*, CPT+5*, OFF1+1, OFF1+2, OFF2+2
    DA(2 CPT+5*, OFF2+1, OFF2+2
    DD CPT+3!, CPT+4!, CPT+5!
    >> DFN EN2+2*
    DIC CPT+3!, CPT+4*!, CPT+5*!, PARAM+1!*, SITE+3*
    DIC("A" PARAM+1*
    DIC("P" CPT+4*, CPT+5*
    DIC(0 CPT+4*, CPT+5*, PARAM+1*, SITE+3*
    DIE PARAM+3!*
    DINUM CPT+4*, CPT+5*, PARAM+1!
    DIR SROVAR+10!, SROVAR+11!, CPT+2!, PLUS24+1~!
    DIR("?" SROVAR+10*
    DIR("A" SROVAR+11*, CPT+2*, PLUS24+1*
    DIR("S" SROVAR+11*
    DIR(0 SROVAR+11*, CPT+2*, PLUS24+1*
    >> DLAYGO PARAM+1*
    DO CPT+3!, CPT+4!, CPT+5!
    DR PARAM+3!*
    DT CPT+1, CPT+4, CPT+5
    >> DTOUT SROVAR+11, PLUS24+1
    >> DUOUT SROVAR+11, PLUS24+1
    DUZ CPT+1, CPT+5, EN2+1, CLEAR+3, CLEAR+4
    IOF PARAM+1, PARAM+3
    ION DEV, DEV+1
    IOP DEV*!, DEV+1!
    IOST CPT+2
    >> POP DEV
    >> Q3("VIEW" EN2+1*
    >> Q3(1 EN2+2*, PARAM+2*
    S SET+6!
    S(0 SET+1*, SET+2, SET+3, SET+4
    SITE SITE+1~, SITE+2*, SITE+3, SITE+4*, SITE+5*, SITE+6*, SITE+7
    SR130 OUT!, PLUS24*, PLUS24+1
    SRC CLEAR+1~, CLEAR+2*, CLEAR+3, CLEAR+4, CLEAR+5
    >> SRCNT SROVAR+8*, SROVAR+9, SROVAR+10
    SRCPT CPT+1~*, CPT+2
    SRDIV CPT+1~*, CPT+3*, CPT+4, CPT+5, PARAM+2~*, PARAM+3
    >> SRFLD INPUT+1*
    SRI SITE+1~, SITE+6*
    SRINOR TERM+1~, TERM+2*, TERM+5, TERM+7
    SRION DEV*!, DEV+1!
    SRJ CLEAR+1~, CLEAR+3*, CLEAR+4
    SRL SROVAR+8!, CLEAR+1~
    SRL( SROVAR+8*
    SRL(1 SROVAR+9
    SRN EN2+2*, PARAM+2~*, OUT!, TERM+7
    SRNAME PARAM+2~*
    SRNOW CLEAR+1~*, CLEAR+5
    SRNOW1 CLEAR+1~, CLEAR+5*
    >> SRNULL TERM+7*, PLUS24
    SRNUM PARAM+2~*
    SRP OFF1+2, OFF2+2, OUT!, TERM+7
    SRSITE SROVAR+6, SROVAR+9*, SROVAR+12*, SET+1, PARAM+3, EXIT+1!
    SRSITE("AML" SET+1*
    SRSITE("DIV" SET+3*
    SRSITE("IV" SET+2*!
    SRSITE("NRPT" SET+4*
    SRSITE("OPTION" SET+5*, EXIT+1
    SRSITE("REQ" SET+1*!
    SRSITE("SITE" SET+3*
    >> SRSMED TIME+1
    SRSTART TIME+3*, BEFORE, OFF1+2*, OFF2+2*, COMP, OUT!, TERM+1~, TERM+7*, EN3+2*, BEF
    SRSUB OFF1+2, OFF2+2, OUT!
    >> SRTDA TIME+2*, TIME+4, RESET, EN3+1*, EN3+3
    SRTN EN2+2, TIME+1, TIME+2, TIME+3, INPUT+1, EXIT+1!, OFF1+1, OFF2+1, EN3+1, EN3+2
    SRV TERM+1~, PLUS24*, PLUS24+2
    SRX SITE+1~, SITE+4*, SITE+5*, SITE+6*
    SRY SITE+1~, SITE+6*, TERM+1~, PLUS24*, PLUS24+1
    SRZ CLEAR+1~
    ST EN2+2*, PARAM+3!
    T TERM+1~, TERM+7*
    U SITE+4, SITE+5, EN3+2
    >> VADM(1 EN2+2
    X SROVAR+8*, CPT+4*, CPT+5*, DEV!, DEV+1*, TIME+2*, TIME+3*, BEFORE, SITE+3*, OFF1+1*
    , OFF2+1*, COMP*, TERM+2!, TERM+5*, TERM+6*, TERM+7, TERM+8*, PLUS24, PLUS24+1!, PLUS24+2*
    , EN3+1*, EN3+2*, BEF!
    >> X1 TERM+7*
    >> X2 TERM+7*
    XQUIT SROVAR+10!, SROVAR+11*
    >> XQY SET+5, EXIT+1
    Y SROVAR+12, CPT+4, TIME+3, PARAM+1, PARAM+2, PARAM+3!, SITE+3, SITE+4, OFF1+1, OFF2+1
    , TERM+6, TERM+8, PLUS24*, PLUS24+1, EN3+2
    Y(0 PARAM+2
    Z TIME+2, OFF1+1*!, OFF2+1*!, TERM+1~, TERM+5*, TERM+6!, TERM+7*, EN3+1
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All