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: 140

Package Total Caller Graph
Surgery 140 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  
SRO1L1  SROA CARDIAC ENTER/EDIT  SROA ENTER/EDIT  SROA RISK ASSESSMENT  SROABCH  SROACAT  SROACC  SROACCT  
SROACLN  SROACMP1  SROACOM  SROACOM1  SROACOP  SROACPM  SROACPM0  SROACR2  
SROACTH1  SROADEL  SROADOC  SROAERR  SROAL1  SROAL2  SROALEN  SROALN2  
SROALOG  SROAMIS  SROANES  SROANES-D  SROANES1  SROANEW  SROANIN  SROANP1  
SROAO  SROAOP  SROAOP2  SROAOUT  SROAPM  SROAPR2  SROAPRE  SROAR  
SROARPT  SROASS  SROATT  SROAUTL  SROCAN  SROCHIEF  SROCMPED  SROCNR  
SROCOM  SROCRAT  SRODIS  SRODLAY  SRODLT  SRODTH  SROES  SROICU  
SROIRR  SROKEY MENU  SROMED  SROMENU  SROMOR  SRONAN  SRONASS  SRONEW  
SRONIN  SRONOP  SRONOP-ENTER  SRONOP1  SRONOR  SRONUR1  SRONUR2  SROPCE  
SROPCE0  SROPCEP  SROPCEU  SROPCEX  SROPDEL  SROPECS  SROPER  SROPLIS  
SROPLST1  SROPPC  SROPRIO  SROPRIT  SROQ MENU  SROQADM  SROQD  SROQD1  
SROQIDP  SROQIDP0  SROQL  SROQN  SROREAS  SROREQ  SROREST  SRORET  
SRORPTS  SROSCHOP  SROSNR  SROSPEC  SROSUR1  SROUNV  SROVER  SROVER2  
SROWAIT  SROWC  SRSCAN  SRSCAN0  SRSCHCA  SRSCHD  SRSCHD1  SRSCHDA  
SRSCHDC  SRSCHUN  SRSCONR  SRSCPT  SRSDT  SRSKILL  SRSRQST  SRSUP1  
SRSUPC  SRSUPRQ  SRTPLS  ^SRF  

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