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

Package: Surgery

Routine: SROCD2


Information

SROCD2 ;BIR/ADM - DISPLAY MAIN SCREEN FOR CASE CODING ;07/27/05

Source Information

Source file <SROCD2.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Surgery 8 HDR^SROCD  ($$SCEC,DOTH,POTH,PRDX)^SROCD0  SCEI^SROCD3  ^SROCD4  PCPT^SROCDX  PADXD^SROCDX1  ($$ICD,$$ICDSTR)^SROICD  PRIN^SROMOD0  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
VA FileMan 2 ^DIE  ^DIR  

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 SROCD  

Entry Points

Name Comments DBIA/ICR reference
EN
DSPLY
ASK
HELP
RANGE ; range of numbers
ONE ; edit one item
REQ
PDX
PCPT

External References

Name Field # of Occurrence
^DIE PDX+1, PCPT
^DIR ASK+1
$$CPT^ICPTCOD DSPLY+11, DSPLY+22
$$MOD^ICPTMOD DSPLY+15, DSPLY+25
HDR^SROCD DSPLY+2, ONE+1
$$SCEC^SROCD0 PDX+2
DOTH^SROCD0 ONE+3
POTH^SROCD0 ONE+2
PRDX^SROCD0 ONE+4
SCEI^SROCD3 PDX+2
^SROCD4 ASK+2
PCPT^SROCDX ONE+5
PADXD^SROCDX1 DSPLY+18
$$ICD^SROICD DSPLY+4, DSPLY+8, DSPLY+31
$$ICDSTR^SROICD DSPLY+3, DSPLY+28, PDX+1
PRIN^SROMOD0 PCPT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"1. Principal Postop Diagnosis Code "_SRSYS_": ",SRDIAG
  • Line Location: DSPLY+5
Function Call: WRITE
  • Prompt: "NOT ENTERED"
  • Line Location: DSPLY+6
Function Call: WRITE
  • Prompt: SRDIAG
  • Line Location: DSPLY+9
Function Call: WRITE
  • Prompt: !,"3. Principal CPT Code: ",SRCPT_SRX_" "_SRSHRT
  • Line Location: DSPLY+17
Function Call: WRITE
  • Prompt: ?23,"NOT ENTERED"
  • Line Location: DSPLY+19
Function Call: WRITE
  • Prompt: SRCPT_SRY_" "_SRSHRT
  • Line Location: DSPLY+27
Function Call: WRITE
  • Prompt: " NOT ENTERED"
  • Line Location: DSPLY+28
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $G(SRFLG)
  • Line Location: DSPLY+32
Function Call: WRITE
  • Prompt: ?16,$E(SRDIAG,1,28)
  • Line Location: DSPLY+32
Function Call: WRITE
  • Prompt: ?48,$E(SRDIAG,1,28)
  • Line Location: DSPLY+33
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLY+34
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DSPLY+34
Function Call: WRITE
  • Prompt: !!,"Enter the number corresponding to the information you want to update. You may",!,"enter 'ALL' to update all the information displayed on this screen, or a"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"range of numbers separated by a ':' to update more than one item.",!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"The following information is required before continuing.",!
  • Line Location: REQ+0
Function Call: WRITE
  • Prompt: !,"This is a required response. Enter '^' to exit"
  • Line Location: PDX+3
Function Call: WRITE
  • Prompt: !,"This is a required response. Enter '^' to exit"
  • Line Location: PCPT+1
Routine Call
  • DIE
  • Line Location:
    • PDX+1
    • PCPT
Routine Call
  • DIR
  • Line Location:
    • ASK+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] DSPLY, DSPLY+1
^SRO(136 - [#136] DSPLY+1, DSPLY+6, DSPLY+7, DSPLY+8, DSPLY+13, DSPLY+14, DSPLY+15, DSPLY+19, DSPLY+20, DSPLY+21
, DSPLY+23, DSPLY+24, DSPLY+25, DSPLY+28, DSPLY+29, DSPLY+30, DSPLY+35, PDX, PDX+2, PDX+3
, PCPT, PCPT+1

Label References

Name Line Occurrences
ASK ASK+3, ASK+5
DSPLY DSPLY+35
HELP ASK+3, ASK+5
ONE ASK+7, RANGE+2
PCPT PCPT+1
PDX PDX+3
RANGE ASK+6
REQ DSPLY+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CPT DSPLY+10*, DSPLY+11, DSPLY+13, DSPLY+21*, DSPLY+22, DSPLY+23, DSPLY+29
CURLEY RANGE+1~, RANGE+2*
DA PDX+1!*, PCPT!*, PCPT+2!
DIE PDX+1!*, PCPT!*, PCPT+2!
DIR ASK!, ASK+1!
DIR("?" ASK*, ASK+1*
DIR("A" ASK*
DIR(0 ASK*
DR PDX+1!*, PCPT!*, PCPT+2!
>> DTOUT ASK+1
>> DUOUT ASK+1
EMILY ASK+7*, RANGE+1~, RANGE+2*, ONE+2, ONE+3, ONE+4, ONE+5
>> LINE DSPLY+34*
SCEC EN~, PDX+2*, PDX+4!
SHEMP RANGE+1~, RANGE+2*
>> SR(0 DSPLY+1*, DSPLY+4, DSPLY+10
>> SRAO( ASK+3
>> SRAO(1 DSPLY+36*
>> SRAO(2 DSPLY+36*
>> SRAO(3 DSPLY+36*
>> SRAO(4 DSPLY+36*
SRCHFNO EN~, DSPLY*
SRCL PDX+2!
SRCMOD EN~, DSPLY+14*, DSPLY+15*, DSPLY+16, DSPLY+24*, DSPLY+25*, DSPLY+26
>> SRCNT DSPLY+29*, DSPLY+30*, DSPLY+32, DSPLY+33
>> SRCOMMA DSPLY+14*, DSPLY+16*, DSPLY+24*, DSPLY+26*
>> SRCPT DSPLY+10*, DSPLY+11*, DSPLY+17, DSPLY+22*, DSPLY+27
>> SRD DSPLY+7*, DSPLY+8, DSPLY+29*, DSPLY+30
>> SRDATE DSPLY+1*, DSPLY+11, DSPLY+22
>> SRDIAG DSPLY+4*, DSPLY+5, DSPLY+8*, DSPLY+9, DSPLY+30*, DSPLY+31*, DSPLY+32, DSPLY+33
>> SRDX DSPLY+4*, DSPLY+8*, DSPLY+30*, DSPLY+31
>> SREDIT DSPLY*
SRFIRST EN~, DSPLY+20*, DSPLY+27*
SRFLG EN~, DSPLY+7*, DSPLY+9*, DSPLY+10*, DSPLY+24*, DSPLY+29*, DSPLY+32*
>> SRI DSPLY+14*, DSPLY+15, DSPLY+24*, DSPLY+25
SRM DSPLY+15*!, DSPLY+25*!
>> SRMSG DSPLY+12*
SRNON EN~, DSPLY*, DSPLY+2
SRSHRT EN~, DSPLY+10*, DSPLY+11*, DSPLY+17, DSPLY+21*, DSPLY+22*, DSPLY+27
>> SRSOUT DSPLY*, DSPLY+35, ASK+1*, ASK+3, ASK+5, RANGE+2, PDX, PDX+1*, PCPT*
>> SRSYS DSPLY+3*, DSPLY+5, DSPLY+6
>> SRTN DSPLY, DSPLY+1, DSPLY+3, DSPLY+4, DSPLY+6, DSPLY+7, DSPLY+8, DSPLY+13, DSPLY+14, DSPLY+15
, DSPLY+19, DSPLY+20, DSPLY+21, DSPLY+23, DSPLY+24, DSPLY+25, DSPLY+28, DSPLY+29, DSPLY+30, DSPLY+31
, DSPLY+35, PDX, PDX+1, PDX+2, PDX+3, PCPT, PCPT+1
>> SRX DSPLY+10*, DSPLY+14*, DSPLY+16*, DSPLY+17, DSPLY+20*, DSPLY+21, DSPLY+23, DSPLY+24, DSPLY+25, DSPLY+28
, DSPLY+29, DSPLY+30
>> SRY DSPLY+21*, DSPLY+24*, DSPLY+26*, DSPLY+27
>> X ASK+2, ASK+3*, ASK+4*, ASK+5, ASK+6, ASK+7, RANGE+2
>> Y DSPLY+11*, DSPLY+22*, ASK+5*, PDX+1, PDX+2*, PCPT
>> Z ASK+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All