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

Package: Surgery

Routine: SROACC6


Information

SROACC6 ;BIR/MAM - CPT ACCURACY ONE CODE ;05/14/99 11:41 AM

Source Information

Source file <SROACC6.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
UTIL ; set ^TMP("SR")
SRTN
PRINT ; print each case
LINE
LOOP ; break procedure greater than 50 characters
DESC ; print description

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: SROACC6+9
Function Call: WRITE
  • Prompt: !!,?(132-$L(CPT1)\2),CPT1
  • Line Location: DESC+3
Function Call: WRITE
  • Prompt: !,?50,"PRINCIPAL PROCEDURES"
  • Line Location: DESC+4
Function Call: WRITE
  • Prompt: !,?54,"OTHER PROCEDURES"
  • Line Location: DESC+5
Function Call: WRITE
  • Prompt: !,?(132-$L(Y)\2),Y
  • Line Location: DESC+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: DESC+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DESC+8
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+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+17
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] SROACC6+5, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+8, UTIL+1, UTIL+2
^SRF("AC" SROACC6+5
^SRO(136 - [#136] UTIL+4, UTIL+5
^SRO(137.45 - [#137.45] PRINT+4
^TMP("SR" SROACC6+8, SROACC6+9, SRTN, DESC+1, DESC+6, UTIL+4*, UTIL+5*
^VA(200 - [#200] PRINT+9, PRINT+10

Label References

Name Line Occurrences
DESC SROACC6+8, PRINT+1
LINE SROACC6+9, DESC+3
LOOP PRINT+12
PRINT SRTN
SRTN SROACC6+8
UTIL SROACC6+5

Naked Globals

Name Field # of Occurrence
^( PRINT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CPT UTIL+4*, UTIL+5*
>> CPT1 DESC+2*, DESC+3
>> DFN PRINT+3*
>> EDATE DESC+2, DESC+7
>> EDATE1 SROACC6+5
>> I DESC+7*
IOSL PRINT+1
>> LINE DESC+8*, LINE*
>> LOOP LOOP+1*, PRINT+16*
>> M LOOP+1, PRINT+12*, PRINT+15*
MM LOOP+1*, PRINT+12!
MMM LOOP+1*, PRINT+12!, PRINT+15
>> OP UTIL+5*
>> SDATE1 SROACC6+5
>> SR( PRINT+8*
>> SRATT PRINT+8*, PRINT+10*, PRINT+13
>> SRCPT DESC+2, DESC+7, UTIL+4, UTIL+5
>> SRCPTT PRINT+15*, PRINT+16
SRDESC DESC+7!
SRDESC( DESC+7
>> SRDT PRINT+3*, PRINT+6*, PRINT+13
>> SRFLG PRINT+14, UTIL+2, UTIL+3
>> SRHDR SROACC6+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+16
SROPT(1 PRINT+15*
>> SRSDT SROACC6+5*, SROACC6+8*, SRTN, PRINT+3, PRINT+6, UTIL+4, UTIL+5
>> SRSOUT SROACC6+6, SROACC6+8, SRTN, DESC+1, PRINT+1
>> SRSS PRINT+4*, PRINT+5*, PRINT+14
>> SRSUR PRINT+8*, PRINT+9*, PRINT+13
>> SRTN SROACC6+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 SROACC6+7*, SROACC6+8*, SRTN, DESC+1, DESC+4, DESC+5, DESC+6
>> VA("PID" PRINT+7, PRINT+13
>> VADM(1 PRINT+7
>> X DESC+1*, DESC+2*, DESC+6*, DESC+7*, PRINT+4*, PRINT+5*
>> Y DESC+7*, 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