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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SROCD

Package: Surgery

Routine: SROCD


Information

SROCD ;BIR/ADM - CASE CODING IN SURGERY PROCEDURE/DIAGNOSIS CODES FILE ;07/24/07

Source Information

Source file <SROCD.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Surgery 6 ^SROCD1  ^SROCD2  ^SROERR0  ^SROPS1  ^SROVAR  ^SRSKILL  
VA Fileman 3 ^DIE  D^DIQ  ^DIR  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Surgery 4 SRCODING EDIT  SROCD0  SROCD2  SROCDX  

Entry Points

Name Comments DBIA/ICR reference
HNC
SURE
END
HDR
OSCEI ; update SC/EI info on other diagnosis
EDIT
IR
MST
BEG
AO
PRJ
BRK ; break procedure if greater than 65 characters
EC
SC
CV

External References

Name Field # of Occurrence
^DIE OSCEI+11
D^DIQ BEG+2
^DIR SURE+2, SC, CV+1, AO, IR, EC, PRJ, MST, HNC
^SROCD1 BEG+4
^SROCD2 EDIT
^SROERR0 END
^SROPS1 SROCD+3
^SROVAR SROCD+2
^SRSKILL END
DEM^VADPT BEG+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF,!,SRNM_" Case #"_SRTN,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: $P(SRSDATE,"@")_" "_SRHDR(1)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?15,SRHDR(2)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?15,SRHDR(3)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"Please supply the following required information related to this diagnosis:",!
  • Line Location: OSCEI+1
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: CV+2
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: AO+1
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: IR+1
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: EC+1
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: PRJ+1
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: MST+1
Function Call: WRITE
  • Prompt: !,$C(7),?15,"Enter YES or NO."
  • Line Location: HNC+1
Routine Call
  • DIE
  • Line Location:
    • OSCEI+11
Routine Call
  • DIR
  • Line Location:
    • SURE+2
    • SC
    • CV+1
    • AO
    • IR
    • EC
    • PRJ
    • MST
    • HNC

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRO(136 - [#136] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] BEG+1, BEG+2, BEG+3, SURE+1, HDR+1
^SRO(136 - [#136] BEG+4, BEG+5, SURE+3, CV
^TMP("SRED1" SURE+3*, END+2!

Label References

Name Line Occurrences
AO OSCEI+5, AO+1
BRK HDR+1
CV OSCEI+4, CV+2
EC OSCEI+7, EC+1
EDIT EDIT+1
END EDIT
HDR SURE
HNC OSCEI+10, HNC+1
IR OSCEI+6, IR+1
MST OSCEI+9, MST+1
PRJ OSCEI+8, PRJ+1
SC OSCEI+3, SC+1
SURE BEG+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADCNT END+1!
DA OSCEI+1!, OSCEI+2*, OSCEI+11*!, CV
DA(1 OSCEI+2*, OSCEI+11*, CV
>> DFN BEG+2*
DIE OSCEI+1!, OSCEI+11*!
DIR SURE!, SURE+2!, OSCEI+1!, OSCEI+11!, SC!, CV+1!, AO!, IR!, EC!, PRJ!
, MST!, HNC!
DIR("A" SURE+1*, SURE+2*, SC*, CV+1*, AO*, IR*, EC*, PRJ*, MST*, HNC*
DIR("B" SURE+2*, CV*
DIR(0 SURE+2*, SC*, CV+1*, AO*, IR*, EC*, PRJ*, MST*, HNC*
DR OSCEI+1!, OSCEI+11*!
>> DTOUT SC, CV+1, AO, IR, EC, PRJ, MST, HNC
>> DUOUT SC, CV+1, AO, IR, EC, PRJ, MST, HNC
>> I HDR+3*, BRK+3*
IOF END+2, HDR
>> J BRK+3*
>> K BRK+2*, BRK+3*
REC END+1!
S BEG~
S(0 BEG+2*
SR2 BEG~, BEG+1*
SRADIAG END+1!
SRADX END+1!
SRASDX END+1!
>> SRCL(1 OSCEI+5, AO+2*
>> SRCL(2 OSCEI+6, IR+2*
>> SRCL(3 OSCEI+3, SC+2*
>> SRCL(4 OSCEI+7, EC+2*
>> SRCL(5 OSCEI+9, MST+2*
>> SRCL(6 OSCEI+10, HNC+2*
>> SRCL(7 OSCEI+4, CV+3*
>> SRCL(8 OSCEI+8, PRJ+2*
SRCMOD BEG~
SRCOMMA END+1!
SRCVD CV~*
>> SRDA OSCEI+2, OSCEI+11
>> SRDATE BEG+2*
SRDES BEG~
SRDIAGS END+1!
SRDIRX END+1!
SRDR OSCEI+2*, OSCEI+11!, SC+2*, CV+3*, AO+2*, IR+2*, EC+2*, PRJ+2*, MST+2*, HNC+2*
SRDX BEG~, END+1!
SRDX1 END+1!
SRDX2 END+1!
SRDXCNT END+1!
SREDIT BEG~, BEG+1*, BEG+5, EDIT, SURE+3*
SRHDR BEG~
SRHDR( BRK+2*, BRK+3*
SRHDR(1 HDR+1, BRK+1*
SRHDR(2 HDR+2
SRHDR(3 HDR+2
SRICD9 END+1!
SRMOD BEG~, BEG+1*
SRMSG END+1!
SRNM BEG~, BEG+2*, HDR
>> SRNON BEG+3*
SROCNTR END+1!
SROCPT2 END+1!
SRODIR END+1!
SROERR END*, END+1!
SROFLG END+1!
SROICD END+1!
SRPADX END+1!
SRPROC BEG~, HDR+1*, BRK+1, BRK+2
>> SRQ OSCEI+2*, OSCEI+3, OSCEI+4, OSCEI+5, OSCEI+6, OSCEI+7, OSCEI+8, OSCEI+9, SC*, CV+1*
, AO*, IR*, EC*, PRJ*, MST*, HNC*
SRS BEG~, BEG+1*
>> SRSDATE BEG+2*, HDR+1
SRSEL BEG~
SRSEL( OSCEI+2, OSCEI+11
>> SRSITE SROCD+2
>> SRSOUT BEG+1*, EDIT
SRTMP END+1!
>> SRTN SROCD+3, BEG+1, BEG+2, BEG+3, BEG+4, BEG+5, SURE+1, SURE+3, END, HDR
, HDR+1, OSCEI+2, OSCEI+11
SRTXT BEG~
SUB4 END+1!
U OSCEI+2, OSCEI+11
>> VA("PID" BEG+2
>> VADM(1 BEG+2
>> X BRK+2*, BRK+3*, SC+1, CV+2, AO+1, IR+1, EC+1, PRJ+1, MST+1, HNC+1
>> XQUIT SROCD+2*, SROCD+3*
>> Y BEG+2*, SURE+3, BRK+3*, SC+2, CV+3, AO+2, IR+2, EC+2, PRJ+2, MST+2
, HNC+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All