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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SROACCM

Package: Surgery

Routine: SROACCM


Information

SROACCM ;BIR/MAM - TOTAL CPTS ;12/15/98 11:34 AM

Source Information

Source file <SROACCM.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Surgery 2 ^SROSTOP  ($$DIV,$$NODATA)^SROUTL0  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROACCT  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry when queued
PRINT ; print info
PAGE
HDR ; print heading
UTIL ; set ^TMP("SR")

External References

Name Field # of Occurrence
$$CPT^ICPTCOD PRINT+3
^SROSTOP HDR+1
$$DIV^SROUTL0 EN+3
$$NODATA^SROUTL0 EN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,CPT1,?55,TOT,?79,TOT1,?110,TOT2,!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,!,?57,"SURGICAL SERVICE",?100,"REVIEWED BY",!,?50,"CUMULATIVE REPORT OF CPT CODES",?100,"DATE REVIEWED:"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$S(SRFLG=1:"O.R. SURGICAL PROCEDURES",SRFLG=2:"NON-O.R. PROCEDURES",1:"O.R. SURGICAL PROCEDURES AND NON-O.R. PROCEDURES")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"CPT CODE - SHORT DESCRIPTION",?50,"TOTAL PROCEDURES",?72,"TOTAL PRINCIPAL PROCEDURES",?104,"TOTAL OTHER PROCEDURES",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN+2
^SRF - [#130] EN+3, UTIL+1, UTIL+2, UTIL+4
^SRF("AC" EN+3
^SRO(136 - [#136] UTIL+5, UTIL+6
^TMP("SR" EN+1!, EN+5, EN+6, PRINT+2, UTIL+5*, UTIL+6*

Label References

Name Line Occurrences
HDR EN+4
PAGE PRINT+1
PRINT EN+5
UTIL EN+3

Naked Globals

Name Field # of Occurrence
^(0 UTIL+6
^(1 PRINT+2, UTIL+5
^(2 PRINT+2, UTIL+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CPT EN+5*, PRINT+2, PRINT+3, UTIL+5*, UTIL+6*
>> CPT1 PRINT+3*, PRINT+4
DTIME PAGE
>> EDATE EN+2, PRINT+3
>> EDATE1 EN+3
IO EN+1
IOF HDR+2
IOSL PRINT+1
IOST PAGE
>> LINE PRINT+4*, HDR+5*
>> OP UTIL+6*
>> SDATE EN+2
>> SDATE1 EN+3
>> SRFLG HDR+4, UTIL+2, UTIL+3
SRFRTO EN+2~*, HDR+3
>> SRHALT HDR+1
>> SRINST EN+1*, HDR+2
>> SRNON UTIL+1*, UTIL+2, UTIL+3
>> SRSDT EN+3*
>> SRSITE("SITE" EN+1
>> SRSOUT EN+1*, EN+4, EN+5, PRINT+1, PAGE*, HDR+1*
>> SRTN EN+3*, UTIL+1, UTIL+2, UTIL+4, UTIL+5, UTIL+6
>> TOT PRINT+2*, PRINT+4
>> TOT1 PRINT+2*, PRINT+4
>> TOT2 PRINT+2*, PRINT+4
>> X PAGE*, UTIL+5*, UTIL+6*
>> Y EN+2*, PRINT+3*
>> ZTQUEUED HDR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All