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 |  Local Variables  | All
Print Page as PDF
Routine: SROUTL

Package: Surgery

Routine: SROUTL


Information

SROUTL ;BIR/ADM - UTILITY ROUTINE ;02/14/07

Source Information

Source file <SROUTL.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 ^%DT  EN^DDIOL  ^DIC  $$GET1^DIQ  ^DIR  
Surgery 2 (SSOTH,SSPRIN)^SROCPT  $$SIGNED^SROESUTL  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Kernel 1 ($$FMADD,$$NOW)^XLFDT  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 134

Package Total Caller Graph
Surgery 134 SRO1L1  SROACAT  SROACC  SROACCT  SROACOM  SROACOP  SROACPM  SROADOC  
SROALEN  SROANP1  SROAO  SROAOP  SROAPM  SROARPT  SROASS  SROATT  
SROAUTL  SROCAN  SRODLAY  SROIRR  SROMENU  SRONOP  SRONOP1  SRONUR1  
SROPCEU  SROPECS  SROQD1  SROQIDP  SROQL  SROSNR  SROUNV  SRSCONR  
SRSDT  SRSKILL  ^SRF  OTHER POSTOP DIAGS  OTHER PREOP DIAGNOSIS  SR ANESTH REPORTS  SR CPT REPORTS  SR MANAGE REPORTS  
SR OR UTIL  SR STAFFING REPORTS  SR TRANSPLANT ASSESSMENT  SRCODING MENU  SRCODING UPDATE/VERIFY MENU  SRHL INTERFACE  SRO COMPLICATIONS MENU  SRO DEL MENU  
SRO PACKAGE MANAGEMENT  SRO UPDATE CANCELLED CASE  SRO-CHIEF REPORTS  SROA CARDIAC ENTER/EDIT  SROA ENTER/EDIT  SROA RISK ASSESSMENT  SROABCH  SROACLN  
SROACMP1  SROACOM1  SROACPM0  SROACR2  SROACTH1  SROADEL  SROAERR  SROAL1  
SROAL2  SROALN2  SROALOG  SROAMIS  SROANES  SROANES-D  SROANES1  SROANEW  
SROANIN  SROAOP2  SROAOUT  SROAPR2  SROAPRE  SROAR  SROCHIEF  SROCMPED  
SROCNR  SROCOM  SROCRAT  SRODIS  SRODLT  SRODTH  SROES  SROICU  
SROKEY MENU  SROMED  SROMOR  SRONAN  SRONASS  SRONEW  SRONIN  SRONOP-ENTER  
SRONOR  SRONUR2  SROPCE  SROPCE0  SROPCEP  SROPCEX  SROPDEL  SROPER  
SROPLIS  SROPLST1  SROPPC  SROPRIO  SROPRIT  SROQ MENU  SROQADM  SROQD  
SROQIDP0  SROQN  SROREAS  SROREQ  SROREST  SRORET  SRORPTS  SROSCHOP  
SROSPEC  SROSUR1  SROVER  SROVER2  SROWAIT  SROWC  SRSCHCA  SRSCHD  
SRSCHDC  SRSCHUN  SRSCPT  SRSRQST  SRSUPRQ  SRTPLS  

Entry Points

Name Comments DBIA/ICR reference
HDR ; display menu header
CLINIC(SRLOC,SRCASE)
ACTCLIN(SRLOC)
SC
INOUT ; select in/out-patient status choice for report
DATE(SRSD,SRED,SRQ)
SPEC ; select surgical specialty
PROC ; put procedures and CPT code in array for display
OTH
FORMAT
DIAG ; check diagnosis input for required space in every 31 characters
LOCK(SRCASE) ;
  • ICR #6785
    • Status: Pending
    • Usage: Private
    E1
    E2
    SINED
    XTMP
    UNLOCK(SRCASE) ; apply decremental lock
  • ICR #6785
    • Status: Pending
    • Usage: Private
    NOCNT(SRDA) ; screen for active, non-count clinic for this division
    DESC ; output attending code description when doing lookup
    TIME ; transform time to date and time

    External References

    Name Field # of Occurrence
    ^%DT DATE+6, DATE+8, TIME+1
    EN^DDIOL DIAG+7, E1+2, E2+2, DESC+3, DESC+4
    ^DIC SPEC+3
    $$GET1^DIQ HDR+3, SC, NOCNT+4
    ^DIR INOUT+3, SPEC+2
    $$CPT^ICPTCOD PROC+1, OTH+1
    SSOTH^SROCPT OTH+2
    SSPRIN^SROCPT PROC+1
    $$SIGNED^SROESUTL LOCK+4
    DEM^VADPT HDR+5
    $$FMADD^XLFDT LOCK+2
    $$NOW^XLFDT LOCK+2

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF,!,?(80-$L(Y)\2),Y
    • Line Location: HDR+3
    Function Call: WRITE
    • Prompt: !!
    • Condition for execution: SRCNT>1
    • Line Location: HDR+6
    Function Call: WRITE
    • Prompt: " "_VADM(1)_" ("_VA("PID")_") Case #"_SRTN_" - "_SRSDATE
    • Line Location: HDR+6
    Function Call: WRITE
    • Prompt: !!,"The ending date must be later than the starting date.",!
    • Line Location: DATE+9
    Function Call: WRITE
    • Prompt: @IOF,!
    • Line Location: SPEC+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: SPEC+3
    Routine Call
    • DIC
    • Line Location:
      • SPEC+3
    Routine Call
    • DIR
    • Line Location:
      • INOUT+3
      • SPEC+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DIC(4 - [#4] GET1^DIQ
    ^SC - [#44] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("DD" HDR+5
    ^SC - [#44] SCSC+1, SC+2, NOCNT+3, NOCNT+5, NOCNT+6, NOCNT+7
    ^SRF - [#130] HDR+5, CLINIC+1, PROC+1, PROC+2, OTHOTH+1, OTH+3, LOCK+3, UNLOCK+1
    ^SRO(132.9 - [#132.9] DESC+2
    ^SRO(133 - [#133] HDR+2, NOCNT+2
    ^VA(200 - [#200] E1+1, E2+1
    ^XTMP("SRLOCK-" LOCK+5, LOCK+8, LOCK+10, E1E2SINEDSINED+3, SINED+5, XTMP*, XTMP+1*
    , UNLOCK+2!, UNLOCK+3!, UNLOCK+5!, UNLOCK+6!

    Label References

    Name Line Occurrences
    E1 LOCK+6, SINED+1
    E2 LOCK+10, SINED+5
    FORMAT PROC+3, OTH+5
    OTH PROC+2
    SC CLINIC+1, ACTCLIN+1
    SINED LOCK+4
    XTMP LOCK+11

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %DT DATE+6!*, DATE+8!*, TIME+1*
    %DT("A" DATE+6*, DATE+8*
    D0 LOCK+1~
    DFN HDR+2~, HDR+5*
    DIC SPEC+3!*
    DIC("A" SPEC+3*
    DIC("S" SPEC+3*
    DIC(0 SPEC+3*
    DILOCKTM LOCK+5, LOCK+8, SINEDSINED+3
    DIR INOUT+1!, INOUT+3!, SPEC+2!
    DIR("?" SPEC+1*
    DIR("A" INOUT+1*, INOUT+2*, SPEC+2*
    DIR("B" INOUT+2*, SPEC+2*
    DIR(0 INOUT+3*, SPEC+2*
    DT CLINIC+1, ACTCLIN+1, NOCNT+2
    >> DTOUT INOUT+3, SPEC+2
    >> DUOUT INOUT+3, SPEC+2
    DUZ LOCK+5, LOCK+8, LOCK+10, XTMPXTMP+1, UNLOCK+2, UNLOCK+5
    >> I FORMAT+1*
    IOF HDR+3, HDR+6, SPEC+1
    >> J FORMAT+1*
    >> K PROC+1*, PROC+2*, OTH+4*, FORMAT*, FORMAT+1*
    >> SRB INOUT+2
    SRBL DIAG+1~, DIAG+3*, DIAG+4
    SRC DIAG+1~, DIAG+7
    SRC(1 DIAG+6*
    SRC(2 DIAG+6*
    SRC(3 DIAG+7*
    SRCASE CLINIC~, CLINIC+1, LOCK~, LOCK+3, LOCK+4, LOCK+5, LOCK+10, E1SINEDSINED+5
    XTMP, UNLOCK~, UNLOCK+1, UNLOCK+2, UNLOCK+3
    SRCC UNLOCK+1~
    SRCLIN CLINIC+1~, ACTCLIN+1~, SC*, SC+2*
    SRCNT HDR+2~*, HDR+3, HDR+6
    SRCONCC LOCK+1~, LOCK+3*, LOCK+7, LOCK+8, E2SINED+2, SINED+3, XTMP+1, UNLOCK+1~*, UNLOCK+4
    , UNLOCK+5, UNLOCK+6
    SRDA PROC+1~, OTH*, OTH+1, OTH+3, NOCNT~, NOCNT+2
    SRDIAG DIAG+1~, DIAG+2*, DIAG+3, DIAG+4*
    SRDIV NOCNT+1~, NOCNT+2*, NOCNT+3
    SRED DATE~, DATE+5*, DATE+10*
    >> SRESIG LOCK+4
    SRFLG DIAG+1~, DIAG+2*, DIAG+3*
    >> SRIO INOUT+4*
    SRKL SC~*, NOCNT+1~, NOCNT+4*
    >> SRL PROC+2, OTH+4, FORMATFORMAT+1
    SRLCK LOCK+1~, LOCK+3*, LOCK+4, LOCK+6*, LOCK+9*, LOCK+11, LOCK+12, SINED+1*, SINED+2, SINED+4*
    SRLOC CLINIC~, ACTCLIN~, SCSC+1, SC+2, NOCNT+1~, NOCNT+2*, NOCNT+3, NOCNT+4, NOCNT+5
    , NOCNT+6, NOCNT+7
    SRNOW LOCK+1~, LOCK+2*, XTMPXTMP+1
    SRNOW1 LOCK+1~, LOCK+2*, XTMPXTMP+1
    SRNUM HDR+2~, HDR+3*
    SRPROC PROC+1!
    SRPROC( PROC+2*, OTH+4*, FORMAT*, FORMAT+1*
    SRQ DATE~, DATE+5*, DATE+6*, DATE+8*
    >> SRRPT INOUT+1
    SRSD DATE~, DATE+5*, DATE+7*, DATE+9
    SRSDATE HDR+2~, HDR+5*, HDR+6
    >> SRSITE HDR+1
    >> SRSITE("DIV" HDR+3
    >> SRSITE("SITE" HDR+3
    >> SRSOUT INOUT+3*, SPEC+2*, SPEC+3*
    >> SRSPEC SPEC+3*
    >> SRSPECN SPEC+3*
    >> SRSUPCPT PROC+2, OTH+3
    SRTAG LOCK+1~, LOCK+3*, SINED+6*, XTMPXTMP+1
    >> SRTN HDR+4, HDR+5, HDR+6, PROC+1, PROC+2, OTHOTH+1, OTH+3
    SRUSER LOCK+1~, E1*, E1+1*, E1+2, E2*, E2+1*, E2+2
    SRX HDR+2~*, CLINIC+1~, ACTCLIN+1~, SC+1*, SC+2, LOCK+1~, E1*, E1+1, E2*, E2+1
    , NOCNT+1~, NOCNT+6*, NOCNT+7, DESC+1~, DESC+2*
    SRY CLINIC+1~, ACTCLIN+1~, SC+2*, NOCNT+1~, NOCNT+7*, DESC+1~, DESC+2*
    SRZ CLINIC+1~*, ACTCLIN+1~*, SC+2, NOCNT+1~, NOCNT+2*, NOCNT+7, DESC+1~, DESC+3
    SRZ( DESC+2*
    SRZ(0 DESC+3
    U CLINIC+1, SC+2, NOCNT+7
    >> VA("PID" HDR+6
    >> VADM(1 HDR+6
    X PROC+1~, PROC+2*, OTH+3*, OTH+4, FORMATFORMAT+1*, DIAG+1, DIAG+2, DIAG+3!, DIAG+5
    TIME+1*
    Y HDR+2~, HDR+3*, HDR+5*, INOUT+4, DATE+6, DATE+7, DATE+8, DATE+9, DATE+10, SPEC+3
    PROC+1~*, PROC+2, OTH+1*, OTH+2, OTH+3, FORMAT+1*, NOCNT+2, DESC+2, TIME+1
    Y(0 SPEC+3
    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 |  Local Variables  | All