Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls