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

Package: Surgery

Routine: SROACC2


Information

SROACC2 ;BIR/MAM - CPT ACCURACY ALL CODES AND 1 SPECIALTY ;05/14/99 11:33 AM

Source Information

Source file <SROACC2.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Surgery 2 (HDR,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 SROACC0  

Entry Points

Name Comments DBIA/ICR reference
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^SROACC0 SROACC2+7, MORE+1, PRINT+1
LOOP^SROACC0 PRINT+11
OPER^SROACC0 PRINT+8
$$DIV^SROUTL0 SROACC2+6
$$NODATA^SROUTL0 SROACC2+8
DEM^VADPT PRINT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: SROACC2+8
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+10
Function Call: WRITE
  • Prompt: ?60,SROP(2)
  • Condition for execution: $D(SROP(2))
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?111,SRATT,!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: "NON-O.R."
  • Condition for execution: SRFLG=3&(SRNON)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?60,SROP(3)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?111,SRATT,!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?111,SRATT,!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,?60,SROPT(LOOP)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+13
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 SROACC2+5
^SRF - [#130] SROACC2+6, PRINT+2, PRINT+3, PRINT+5, UTIL+1, UTIL+2, UTIL+5, UTIL+6
^SRF("AC" SROACC2+6
^SRO(136 - [#136] UTIL+4, UTIL+8
^SRO(137.45 - [#137.45] SROACC2+5
^TMP("SR" SROACC2+7, SROACC2+8, MORE+3, SRTN, DESC+1, UTIL+7*, UTIL+8*
^VA(200 - [#200] PRINT+6, PRINT+7

Label References

Name Line Occurrences
DESC MORE+3, PRINT+1
LINE SROACC2+8, DESC+2
LOOP PRINT+9
MORE SROACC2+7
PRINT SRTN
SRTN MORE+3
UTIL SROACC2+6

Naked Globals

Name Field # of Occurrence
^( PRINT+5
^(0 UTIL+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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