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 |  Local Variables |  All
Print Page as PDF
Routine: SROCDX

Package: Surgery

Routine: SROCDX


Information

SROCDX ;BIR/ADM - CASE CODING INPUT/EDIT ;08/29/05

Source Information

Source file <SROCDX.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Surgery 5 HDR^SROCD  ($$OASSDS,$$PASSDS,ASDX,OADD1,OTHADX,PADD1)^SROCDX1  SADXP^SROCDX2  SSOTH^SROCPT0  PRIN^SROMOD0  
DRG Grouper 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
VA Fileman 2 ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SROCD0  SROCD2  

Entry Points

Name Comments DBIA/ICR reference
DXDUP(SRDX)
CPTDISP
PCPT ; edit principal procedure code
PPROC
VALASC()
CASDX ; associate principal CPT to diagnosis
OTHCPTD
COTHADX
COTHBLD
SRODIR

External References

Name Field # of Occurrence
^DIE PPROC+1
^DIR PCPT+4, CASDX+9, COTHADX+10, DXDUP+5, VALASC+3
$$CPT^ICPTCOD COTHBLD+3, CPTDISP+1
$$MOD^ICPTMOD OTHCPTD+6, CPTDISP+6
HDR^SROCD CASDX+5, COTHADX+5
$$OASSDS^SROCDX1 COTHADX+8
$$PASSDS^SROCDX1 CASDX+8
ASDX^SROCDX1 PCPT+2, CASDX+5
OADD1^SROCDX1 COTHADX+12
OTHADX^SROCDX1 COTHADX+5
PADD1^SROCDX1 CASDX+11
SADXP^SROCDX2 PPROC+2
SSOTH^SROCPT0 COTHBLD+3
PRIN^SROMOD0 PPROC+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Principal Procedure:",!
  • Line Location: PCPT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PPROC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CASDX+7
Function Call: WRITE
  • Prompt: !
  • Line Location: COTHADX+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: COTHADX+6
Function Call: WRITE
  • Prompt: !,"Other Procedures:",!!,OTHCNT,"."," CPT Code: "_$P(SRSEL(SRDA),U,4)
  • Line Location: OTHCPTD+2
Function Call: WRITE
  • Prompt: !,?5,"Modifiers: "
  • Line Location: OTHCPTD+3
Function Call: WRITE
  • Prompt: $P($$MOD^ICPTMOD(SRM,"I"),"^",2),"-",$P($$MOD^ICPTMOD(SRM,"I"),"^",3)
  • Line Location: OTHCPTD+6
Function Call: WRITE
  • Prompt: "NOT ENTERED"
  • Line Location: OTHCPTD+8
Function Call: WRITE
  • Prompt: !,?3,"CPT Code: "_Y_" "_Z,!,?3,"Modifiers: "
  • Line Location: CPTDISP+2
Function Call: WRITE
  • Prompt: "NOT ENTERED"
  • Line Location: CPTDISP+3
Function Call: WRITE
  • Prompt: $P($$MOD^ICPTMOD(SRMO,"I"),"^",2),"-",$P($$MOD^ICPTMOD(SRMO,"I"),"^",3)
  • Line Location: CPTDISP+6
Routine Call
  • DIE
  • Line Location:
    • PPROC+1
Routine Call
  • DIR
  • Line Location:
    • PCPT+4
    • CASDX+9
    • COTHADX+10
    • DXDUP+5
    • VALASC+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRO(136 - [#136] PCPT+1, PPROC, PPROC+2, PPROC+3, CASDX+2, COTHBLD+1, COTHBLD+2, OTHCPTD+4, OTHCPTD+5, OTHCPTD+8
, CPTDISP+1, CPTDISP+3, CPTDISP+4, CPTDISP+5

Label References

Name Line Occurrences
$$DXDUP CASDX+9, COTHADX+10
$$VALASC CASDX+9, COTHADX+10
CASDX PCPT+7, CASDX+13
COTHADX COTHADX+14
COTHBLD COTHADX, OTHCPTD+1
CPTDISP PCPT+2, CASDX+5
OTHCPTD COTHADX+5
PPROC PCPT+1, PCPT+6
SRODIR CASDX+6, COTHADX+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ADCNT SRODIR+3*, SRODIR+5
CPT CASDX+2*, COTHBLD~, COTHBLD+3*, COTHBLD+4
CPT1 COTHBLD~, COTHBLD+2*, COTHBLD+3*, COTHBLD+4
>> D0 COTHADX+7*
DA PPROC+1!*, PPROC+2!
DIE PPROC+1!*
DIR PCPT+3!, CASDX+2!, CASDX+6!, COTHADX+5!, COTHADX+6!, DXDUP+1~, VALASC+1~
DIR("A" PCPT+4*, DXDUP+5*, VALASC+3*, SRODIR+1*, SRODIR+2*, SRODIR+4*, SRODIR+5*, SRODIR+6*
DIR("B" PCPT+4*, CASDX+8*, COTHADX+9*
DIR(0 PCPT+3*, CASDX+8*, COTHADX+7*, DXDUP+5*, VALASC+3*
DR PPROC+1!*
>> DTOUT PCPT+4, DXDUP, VALASC
>> DUOUT PCPT+4
>> I CASDX+9*, COTHADX+6*, COTHADX+10*
OTH COTHBLD~, COTHBLD+1*, COTHBLD+2, COTHBLD+3, COTHBLD+4, OTHCPTD+3*, OTHCPTD+4, OTHCPTD+5, OTHCPTD+8
OTHCNT CASDX+1~, COTHADX+1~, COTHADX+2*, OTHCPTD+2
SRADX CASDX+1~
SRAI DXDUP+1~, DXDUP+3*, DXDUP+4, DXDUP+5, DXDUP+6
SRASSDS CASDX+1~, CASDX+8*, COTHADX+1~, COTHADX+8*, COTHADX+9
SRCNT SRODIR~, SRODIR+3*, SRODIR+5*, COTHBLD~, COTHBLD+1*, COTHBLD+4, COTHBLD+5*
SRCNTR SRODIR~, SRODIR+3*, SRODIR+4, SRODIR+5*, SRODIR+6
SRCPT PPROC~*, PPROC+2, COTHBLD+3*, COTHBLD+4
SRDA COTHADX+2, COTHBLD~, COTHBLD+3*, OTHCPTD+2, OTHCPTD+3
SRDIE PPROC*, PPROC+1!
SRDIR COTHADX+1~
SRDIRX CASDX+1~
SRDIRX( DXDUP+5, SRODIR+3, SRODIR+5
SRDIRX(1 COTHADX+9
SRDUP DXDUP+1~*, DXDUP+5*, DXDUP+7
SRDX DXDUP~, DXDUP+2, DXDUP+3, DXDUP+4, DXDUP+5, DXDUP+6
SRDX0 CASDX+1~, COTHADX+1~
SRDX1 CASDX+1~, COTHADX+1~
SRDX2 CASDX+1~, CASDX+8, COTHADX+1~, COTHADX+7
SRDXCT CASDX+1~
SRDXX DXDUP+1~
SRDXX( DXDUP+5, DXDUP+6*
SRFIRST OTHCPTD~, OTHCPTD+1*, OTHCPTD+6, OTHCPTD+7*, CPTDISP~, CPTDISP+6, CPTDISP+7*
SRFLG SRODIR~, SRODIR+3*, SRODIR+5*
SRI OTHCPTD~, OTHCPTD+4*, OTHCPTD+5
SRM OTHCPTD~, OTHCPTD+5*, OTHCPTD+6
SRMO CPTDISP~, CPTDISP+5*, CPTDISP+6
>> SRMOD CPTDISP+4*, CPTDISP+5
>> SROCPT2 CPTDISP+1*
SROCT CASDX+1~
SRODIR CASDX+1~
SRODIR("A" CASDX+3*, CASDX+4*, COTHADX+3*, COTHADX+4*, SRODIR+6
>> SRPOTH COTHADX+7
SRPPY PCPT+1~, PCPT+5*, PCPT+6, PCPT+7
SRPRIN PCPT+1~*, PPROC+3
SRSEL COTHBLD!
SRSEL( COTHBLD+4*, OTHCPTD+2, OTHCPTD+3
>> SRSHT COTHBLD+3*, COTHBLD+4
>> SRSOUT PPROC+1*
>> SRTN PCPT+1, PPROC, PPROC+1, PPROC+2, PPROC+3, CASDX+2, COTHBLD+1, COTHBLD+2, OTHCPTD+4, OTHCPTD+5
, OTHCPTD+8, CPTDISP+1, CPTDISP+3, CPTDISP+4, CPTDISP+5
SRY OTHCPTD~, CPTDISP+1*
U VALASC+2, COTHBLD+2, COTHBLD+3, COTHBLD+4, OTHCPTD+2, OTHCPTD+3, OTHCPTD+5, CPTDISP+1, CPTDISP+5
VALA VALASC+1~*, VALASC+2*, VALASC+3, VALASC+4
X PCPT+1*, PPROC+3*, COTHBLD~, COTHBLD+2*, COTHBLD+3, CPTDISP+1*
>> Y PCPT+4, PCPT+5, PPROC+1, CASDX+9, CASDX+10, CASDX+12, COTHADX+10, COTHADX+11, COTHADX+13, DXDUP
, VALASC, VALASC+2, COTHBLD+3*, CPTDISP+1*, CPTDISP+2*
>> Y(0 VALASC, VALASC+2
>> Z CPTDISP+1*, CPTDISP+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All