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 Total: 12

Package Total Call Graph
Surgery 7 HDR^SROCD  ($$SCEC,DOTH,POTH,PRDX)^SROCD0  SCEI^SROCD3  ^SROCD4  PCPT^SROCDX  PADXD^SROCDX1  PRIN^SROMOD0  
DRG Grouper 3 $$ICDDX^ICDCODE  $$CPT^ICPTCOD  $$MOD^ICPTMOD  
VA Fileman 2 ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROCD  

Entry Points

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

External References

Name Field # of Occurrence
^DIE PDX+1, PCPT
^DIR ASK+1
$$ICDDX^ICDCODE DSPLY+3, DSPLY+7, DSPLY+30
$$CPT^ICPTCOD DSPLY+10, DSPLY+21
$$MOD^ICPTMOD DSPLY+14, DSPLY+24
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+17
PRIN^SROMOD0 PCPT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"1. Principal Postop Diagnosis Code:",?36,SRDIAG
  • Line Location: DSPLY+4
Function Call: WRITE
  • Prompt: ?36,"NOT ENTERED"
  • Line Location: DSPLY+5
Function Call: WRITE
  • Prompt: ?36,SRDIAG
  • Line Location: DSPLY+8
Function Call: WRITE
  • Prompt: !,"3. Principal CPT Code: ",SRCPT_SRX_" "_SRSHRT
  • Line Location: DSPLY+16
Function Call: WRITE
  • Prompt: ?23,"NOT ENTERED"
  • Line Location: DSPLY+18
Function Call: WRITE
  • Prompt: SRCPT_SRY_" "_SRSHRT
  • Line Location: DSPLY+26
Function Call: WRITE
  • Prompt: " NOT ENTERED"
  • Line Location: DSPLY+27
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $G(SRFLG)
  • Line Location: DSPLY+31
Function Call: WRITE
  • Prompt: ?16,$E(SRDIAG,1,28)
  • Line Location: DSPLY+31
Function Call: WRITE
  • Prompt: ?48,$E(SRDIAG,1,28)
  • Line Location: DSPLY+32
Function Call: WRITE
  • Prompt: !
  • Line Location: DSPLY+33
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DSPLY+33
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+5, DSPLY+6, DSPLY+7, DSPLY+12, DSPLY+13, DSPLY+14, DSPLY+18, DSPLY+19, DSPLY+20
, DSPLY+22, DSPLY+23, DSPLY+24, DSPLY+27, DSPLY+28, DSPLY+29, DSPLY+34, PDX, PDX+2, PDX+3
, PCPT, PCPT+1

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CPT DSPLY+9*, DSPLY+10, DSPLY+12, DSPLY+20*, DSPLY+21, DSPLY+22, DSPLY+28
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+33*
SCEC EN~, PDX+2*, PDX+4!
SHEMP RANGE+1~, RANGE+2*
>> SR(0 DSPLY+1*, DSPLY+3, DSPLY+9
>> SRAO( ASK+3
>> SRAO(1 DSPLY+35*
>> SRAO(2 DSPLY+35*
>> SRAO(3 DSPLY+35*
>> SRAO(4 DSPLY+35*
SRCHFNO EN~, DSPLY*
SRCL PDX+2!
SRCMOD EN~, DSPLY+13*, DSPLY+14*, DSPLY+15, DSPLY+23*, DSPLY+24*, DSPLY+25
>> SRCNT DSPLY+28*, DSPLY+29*, DSPLY+31, DSPLY+32
>> SRCOMMA DSPLY+13*, DSPLY+15*, DSPLY+23*, DSPLY+25*
>> SRCPT DSPLY+9*, DSPLY+10*, DSPLY+16, DSPLY+21*, DSPLY+26
>> SRD DSPLY+6*, DSPLY+7, DSPLY+28*, DSPLY+29
>> SRDATE DSPLY+1*, DSPLY+3, DSPLY+7, DSPLY+10, DSPLY+21, DSPLY+30
>> SRDIAG DSPLY+3*, DSPLY+4, DSPLY+7*, DSPLY+8, DSPLY+29*, DSPLY+30*, DSPLY+31, DSPLY+32
>> SRDX DSPLY+3*, DSPLY+7*, DSPLY+29*, DSPLY+30
>> SREDIT DSPLY*
SRFIRST EN~, DSPLY+19*, DSPLY+26*
SRFLG EN~, DSPLY+6*, DSPLY+8*, DSPLY+9*, DSPLY+23*, DSPLY+28*, DSPLY+31*
>> SRI DSPLY+13*, DSPLY+14, DSPLY+23*, DSPLY+24
SRM DSPLY+14*!, DSPLY+24*!
>> SRMSG DSPLY+11*
SRNON EN~, DSPLY*, DSPLY+2
SRSHRT EN~, DSPLY+9*, DSPLY+10*, DSPLY+16, DSPLY+20*, DSPLY+21*, DSPLY+26
>> SRSOUT DSPLY*, DSPLY+34, ASK+1*, ASK+3, ASK+5, RANGE+2, PDX, PDX+1*, PCPT*
>> SRTN DSPLY, DSPLY+1, DSPLY+5, DSPLY+6, DSPLY+7, DSPLY+12, DSPLY+13, DSPLY+14, DSPLY+18, DSPLY+19
, DSPLY+20, DSPLY+22, DSPLY+23, DSPLY+24, DSPLY+27, DSPLY+28, DSPLY+29, DSPLY+34, PDX, PDX+1
, PDX+2, PDX+3, PCPT, PCPT+1
>> SRX DSPLY+9*, DSPLY+13*, DSPLY+15*, DSPLY+16, DSPLY+19*, DSPLY+20, DSPLY+22, DSPLY+23, DSPLY+24, DSPLY+27
, DSPLY+28, DSPLY+29
>> SRY DSPLY+20*, DSPLY+23*, DSPLY+25*, DSPLY+26
>> X ASK+2, ASK+3*, ASK+4*, ASK+5, ASK+6, ASK+7, RANGE+2
>> Y DSPLY+10*, DSPLY+21*, 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