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

Package: Surgery

Routine: SROACC5


Information

SROACC5 ;BIR/MAM - CPT ACCURACY ALL CODES ;05/14/99 11:33 AM

Source Information

Source file <SROACC5.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 3 HDR^SROACC  (LOOP,OPER)^SROACC0  ($$DIV,$$NODATA)^SROUTL0  
DRG Grouper 1 ($$CPT,$$CPTD)^ICPTCOD  
Registration 1 DEM^VADPT  
VA Fileman 1 D^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROACC  

Entry Points

Name Comments DBIA/ICR reference
CNT ; get count
UTIL ; set ^TMP("SR")
SRTN
PRINT ; print each case
LINE
MORE ; print CPT description and get cases
LOOP ; break procedure greater than 50 characters
DESC ; print description

External References

Name Field # of Occurrence
D^DIQ PRINT+3
$$CPT^ICPTCOD MORE+2
$$CPTD^ICPTCOD DESC+5
HDR^SROACC SROACC5+6, MORE+1, PRINT+1
LOOP^SROACC0 PRINT+16
OPER^SROACC0 PRINT+11
$$DIV^SROUTL0 SROACC5+5
$$NODATA^SROUTL0 SROACC5+7
DEM^VADPT PRINT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: SROACC5+7
Function Call: WRITE
  • Prompt: !!,?(132-$L(CPT1)\2),CPT1
  • Line Location: DESC+2
Function Call: WRITE
  • Prompt: !,?50,"PRINCIPAL PROCEDURES"
  • Line Location: DESC+3
Function Call: WRITE
  • Prompt: !,?54,"OTHER PROCEDURES"
  • Line Location: DESC+4
Function Call: WRITE
  • Prompt: !,?(132-$L(Y)\2),Y
  • Line Location: DESC+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: DESC+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DESC+6
Function Call: WRITE
  • Prompt: !,SRDT,?20,SRNAME,?60,SROP(1),?111,SRSUR,!,?3,SRTN,?20,VA("PID")
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: ?60,SROP(2)
  • Condition for execution: $D(SROP(2))
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: ?111,SRATT,!
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: "NON-O.R."
  • Condition for execution: SRFLG=3&(SRNON)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ?20,SRSS
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ?60,SROP(3)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ?60,SROP(3)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ?60,SROP(3)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,?60,SROPT(LOOP)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: LINE+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECC(723 PRINT+5
^SRF - [#130] SROACC5+5, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+8, UTIL+1, UTIL+2
^SRF("AC" SROACC5+5
^SRO(136 - [#136] UTIL+4, UTIL+5
^SRO(137.45 - [#137.45] PRINT+4
^TMP("SR" SROACC5+6, SROACC5+7, CNT+1*, CNT+2*, MORE+3, SRTN, DESC+1, UTIL+4*, UTIL+5*
^VA(200 - [#200] PRINT+9, PRINT+10

Label References

Name Line Occurrences
CNT UTIL+5
DESC MORE+3, PRINT+1
LINE SROACC5+7, DESC+2
LOOP PRINT+12
MORE SROACC5+6
PRINT SRTN
SRTN MORE+3
UTIL SROACC5+5

Naked Globals

Name Field # of Occurrence
^( CNT+1, PRINT+8, UTIL+4
^(0 UTIL+5
^(1 UTIL+4
^(2 CNT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CPT SROACC5+6*, CNT+1, CNT+2, MORE+2, MORE+3, SRTN, DESC+1, DESC+5, UTIL+4*, UTIL+5*
>> CPT1 MORE+2*, DESC+2
>> DFN PRINT+3*
>> EDATE MORE+2, DESC+5
>> EDATE1 SROACC5+5
>> I DESC+5*
IOSL MORE+1, PRINT+1
>> LINE DESC+6*, LINE*
>> LOOP LOOP+1*, PRINT+17*
>> M LOOP+1, PRINT+12*, PRINT+16*
MM LOOP+1*, PRINT+12!
MMM LOOP+1*, PRINT+12!, PRINT+16
>> OP UTIL+5*
>> SDATE1 SROACC5+5
>> SR( PRINT+8*
>> SRATT PRINT+8*, PRINT+10*, PRINT+13
>> SRCPTT PRINT+16*, PRINT+17
SRDESC DESC+5!
SRDESC( DESC+5
>> SRDT PRINT+3*, PRINT+6*, PRINT+13
>> SRFLG PRINT+14, UTIL+2, UTIL+3
>> SRHDR SROACC5+6*
>> SRNAME PRINT+7*, PRINT+13
>> SRNON PRINT+2*, PRINT+4, PRINT+5, PRINT+8, PRINT+14, UTIL+1*, UTIL+2, UTIL+3
SROP PRINT+12!
SROP( LOOP+1*
SROP(1 PRINT+12*, PRINT+13
SROP(2 PRINT+13
SROP(3 PRINT+14
SROP(4 PRINT+14
SROP(5 PRINT+14
>> SROPER LOOP+1*, PRINT+12*
SROPT PRINT+12!
SROPT( PRINT+17
SROPT(1 PRINT+16*
>> SRSDT SROACC5+5*, MORE+3*, SRTN, PRINT+3, PRINT+6, UTIL+4, UTIL+5
>> SRSOUT SROACC5+6, MORE+1, MORE+3, SRTN, DESC+1, PRINT+1
>> SRSS PRINT+4*, PRINT+5*, PRINT+14
>> SRSUR PRINT+8*, PRINT+9*, PRINT+13
>> SRTN SROACC5+5*, SRTN*, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+8, PRINT+13, UTIL+1, UTIL+2
, UTIL+4, UTIL+5
>> SSN PRINT+7*
>> TYPE MORE+2*, MORE+3*, SRTN, DESC+1, DESC+3, DESC+4
>> VA("PID" PRINT+7, PRINT+13
>> VADM(1 PRINT+7
>> X CNT+1*, CNT+2*, MORE+2*, DESC+5*, PRINT+4*, PRINT+5*, UTIL+4*
>> Y DESC+5*, PRINT+3*, PRINT+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All