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

Package: Surgery

Routine: SROCD0


Information

SROCD0 ;BIR/ADM - CASE CODING INPUT/EDIT ;08/01/05

Source Information

Source file <SROCD0.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Surgery 7 (HDR,OSCEI)^SROCD  SCEI^SROCD3  (COTHADX,OTHCPTD)^SROCDX  (ASSDIAG,OTHADX,OTHADXD,PASSDIAG)^SROCDX1  (DELASOC,DELWRN,PRINASOD,SADXO)^SROCDX2  SSOTH^SROCPT0  OPROC^SROMOD0  
VA Fileman 4 FILE^DICN  ^DIE  GETS^DIQ  ^DIR  
DRG Grouper 2 $$ICDDX^ICDCODE  $$CPT^ICPTCOD  
Scheduling 1 CL^SDCO21  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROCD2  

Entry Points

Name Comments DBIA/ICR reference
OSCEI
DH
REMIND ; display reminder to update procedure/diagnosis associations
ODXEN
OIND
ADCHK() ; check for other procedures with no associated diagnosis
PSCEI
PDXEN
DUP
OASS
POTH
PRESS
PRDX ; edit Principal Postop Diagnosis
DOTH
OPEN
PH
SCEC()

External References

Name Field # of Occurrence
FILE^DICN POTH+18, DOTH+18
^DIE PDXEN+6, OPEN+1, ODXEN+5, ODXEN+11
GETS^DIQ PRDX+5, OIND
^DIR PRDX+17, PRESS, PDXEN, POTH+8, POTH+13, POTH+16, DUP, DOTH+8, DOTH+12, DOTH+14
, ODXEN+1, ODXEN+4, REMIND+2
$$ICDDX^ICDCODE PRDX+3, DOTH+4
$$CPT^ICPTCOD POTH+3
CL^SDCO21 SCEC+1
HDR^SROCD PDXEN+5, POTH+11, PH, DOTH+10, DH
OSCEI^SROCD OSCEI+1
SCEI^SROCD3 PSCEI+1
COTHADX^SROCDX POTH+20, OASS
OTHCPTD^SROCDX POTH+11
ASSDIAG^SROCDX1 DH
OTHADX^SROCDX1 POTH+11
OTHADXD^SROCDX1 POTH+6
PASSDIAG^SROCDX1 DH
DELASOC^SROCDX2 ODXEN+6, ODXEN+12
DELWRN^SROCDX2 POTH+9
PRINASOD^SROCDX2 PDXEN+7
SADXO^SROCDX2 OPEN+4
SSOTH^SROCPT0 POTH+3
OPROC^SROMOD0 POTH+19, OPEN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Principal Postop Diagnosis:",!!,?5,"ICD9 Code: "_SRDIAG
  • Line Location: PRDX+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRDX+7
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"SC:",$E(ENVARR(136,SRTN_",",.04,"E"))
  • Line Location: PRDX+8
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"CV:",$E(ENVARR(136,SRTN_",",.1,"E"))
  • Line Location: PRDX+9
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"AO:",$E(ENVARR(136,SRTN_",",.05,"E"))
  • Line Location: PRDX+10
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"IR:",$E(ENVARR(136,SRTN_",",.06,"E"))
  • Line Location: PRDX+11
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"SWAC:",$E(ENVARR(136,SRTN_",",.07,"E"))
  • Line Location: PRDX+12
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"SHAD:",$E(ENVARR(136,SRTN_",",.11,"E"))
  • Line Location: PRDX+13
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"MST:",$E(ENVARR(136,SRTN_",",.08,"E"))
  • Line Location: PRDX+14
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"H&N:",$E(ENVARR(136,SRTN_",",.09,"E"))
  • Line Location: PRDX+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PRESS+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PDXEN+0
Function Call: WRITE
  • Prompt: !!," Deletion of the Principal Postop Diagnosis Code is not allowed! ??"
  • Line Location: PDXEN+1
Function Call: WRITE
  • Prompt: !,"This is a required entry."
  • Line Location: PDXEN+2
Function Call: WRITE
  • Prompt: !,"Other Procedures:",!
  • Line Location: POTH+0
Function Call: WRITE
  • Prompt: !,CNT_". Enter NEW Other Procedure Code",!
  • Line Location: POTH+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: POTH+10
Function Call: WRITE
  • Prompt: !
  • Line Location: OPEN+0
Function Call: WRITE
  • Prompt: !,"Other Postop Diagnosis:",!
  • Line Location: DOTH+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DOTH+7
Function Call: WRITE
  • Prompt: !,CNT_". Enter NEW Other Postop Diagnosis Code",!
  • Line Location: DOTH+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: DOTH+9
Function Call: WRITE
  • Prompt: !,"Other Postop Diagnosis:",!!,SRDA_". "_$P(SRSEL(SRDA),U,2)
  • Line Location: DOTH+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ODXEN+0
Function Call: WRITE
  • Prompt: !!," >>> No SC/EI information required for this patient. <<<"
  • Line Location: OSCEI+0
Function Call: WRITE
  • Prompt: !
  • Line Location: REMIND+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OIND+2
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"SC:",$E(ENVARR(136.04,OTH_","_SRTN_",",.02,"E"))
  • Line Location: OIND+3
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"CV:",$E(ENVARR(136.04,OTH_","_SRTN_",",.08,"E"))
  • Line Location: OIND+4
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"AO:",$E(ENVARR(136.04,OTH_","_SRTN_",",.03,"E"))
  • Line Location: OIND+5
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"IR:",$E(ENVARR(136.04,OTH_","_SRTN_",",.04,"E"))
  • Line Location: OIND+6
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"SWAC:",$E(ENVARR(136.04,OTH_","_SRTN_",",.07,"E"))
  • Line Location: OIND+7
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"SHAD:",$E(ENVARR(136.04,OTH_","_SRTN_",",.09,"E"))
  • Line Location: OIND+8
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"MST:",$E(ENVARR(136.04,OTH_","_SRTN_",",.05,"E"))
  • Line Location: OIND+9
Function Call: WRITE
  • Prompt: ?SRCOLSPN,"H&N:",$E(ENVARR(136.04,OTH_","_SRTN_",",.06,"E"))
  • Line Location: OIND+10
Routine Call
  • DIE
  • Line Location:
    • PDXEN+6
    • OPEN+1
    • ODXEN+5
    • ODXEN+11
Routine Call
  • DIR
  • Line Location:
    • PRDX+17
    • PRESS
    • PDXEN
    • POTH+8
    • POTH+13
    • POTH+16
    • DUP
    • DOTH+8
    • DOTH+12
    • DOTH+14
    • ODXEN+1
    • ODXEN+4
    • REMIND+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRO(136 - [#136] Classic Fileman Calls,  GETS^DIQ
136.04 GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] PRDX+3, POTH+3, DOTH+4, SCEC, SCEC+1
^SRO(136 - [#136] PRDX+2, PSCEI, POTH+1, POTH+2, POTH+17, OPEN+4, DOTH+2, DOTH+3, ADCHK+2

Label References

Name Line Occurrences
$$ADCHK POTH+9
$$SCEC PRDX+1, DOTH+1
DH DOTH+9, DOTH+14, DOTH+16
DOTH DH
DUP PDXEN+5, DOTH+16, ODXEN+9
OASS POTH+15
ODXEN DOTH+13
OIND DOTH+6, DOTH+10
OPEN POTH+14
OSCEI DOTH+13
PDXEN PRDX+2, PRDX+18, PDXEN+1, PDXEN+2, PDXEN+5
PH POTH+10, POTH+16
POTH PH
PRESS PSCEI+2, POTH+9, OSCEI
PSCEI PRDX+19
REMIND PDXEN+8, DOTH+19, ODXEN+7, ODXEN+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT POTH+1~*, POTH+4, POTH+5, POTH+7*, POTH+8, POTH+10, POTH+20, DOTH+1~, DOTH+2*, DOTH+5
, DOTH+7*, DOTH+8, DOTH+9
>> CPT POTH+3*, POTH+4, POTH+5
>> CPT1 POTH+2*, POTH+3*, POTH+5
DA PDXEN!, PDXEN+6!*, POTH+19!*, OPEN!, OPEN+1*, OPEN+2!, OPEN+4!, DOTH+18!, ODXEN+5!*, ODXEN+6!
, ODXEN+11!*, ODXEN+12!
DA(1 POTH+19*, OPEN+1*, DOTH+17*, ODXEN+5*, ODXEN+11*
DD POTH+18!, DOTH+18!
DFN SCEC~, SCEC+1*
DIC POTH+18*!, DOTH+18*!
DIC(0 POTH+18*, DOTH+18*
DIE PDXEN+6!*, OPEN!, OPEN+1*!, ODXEN+5!*, ODXEN+6!, ODXEN+11!*, ODXEN+12!
DIR PRDX+16!, PRESS!, PDXEN!, POTH+8!, POTH+12!, POTH+16!, OPEN!, DUP!, DOTH+8!, DOTH+11!
, DOTH+14!, ODXEN!, ODXEN+1!, ODXEN+3!, ODXEN+4!, ODXEN+11!, REMIND+1!, REMIND+2!
DIR("A" PRDX+17*, PRESS*, PDXEN*, POTH+8*, POTH+13*, POTH+16*, DUP*, DOTH+8*, DOTH+12*, DOTH+14*
, ODXEN*, ODXEN+3*, REMIND+1*, REMIND+2*
DIR("B" PRDX+17*, PDXEN*, POTH+13*, DOTH+12*, ODXEN*, ODXEN+3*
DIR(0 PRDX+16*, PRESS*, PDXEN*, POTH+8*, POTH+12*, POTH+16*, DUP*, DOTH+8*, DOTH+11*, DOTH+14*
, ODXEN*, ODXEN+3*, REMIND+2*
DO POTH+18!, DOTH+18!
DR PDXEN+6!*, OPEN!, OPEN+1*!, DOTH+18!, ODXEN+5!*, ODXEN+6!, ODXEN+11*, ODXEN+12!
DT SCEC
>> DTOUT PRDX+17, PDXEN, POTH+8, POTH+13, POTH+16, DOTH+8, DOTH+12, DOTH+14, ODXEN+1, ODXEN+4
>> DUOUT PRDX+17, PDXEN, POTH+8, POTH+13, POTH+16, DOTH+8, DOTH+12, DOTH+14, ODXEN+1, ODXEN+4
ENVARR PRDX+1~, DOTH+1~
ENVARR( OIND+1, OIND+3, OIND+4, OIND+5, OIND+6, OIND+7, OIND+8, OIND+9, OIND+10
ENVARR(136 PRDX+6, PRDX+8, PRDX+9, PRDX+10, PRDX+11, PRDX+12, PRDX+13, PRDX+14, PRDX+15
>> OTH POTH+1*, POTH+2, POTH+3, POTH+5, DOTH+2*, DOTH+3, DOTH+5, DOTH+10*, OIND, OIND+1
, OIND+3, OIND+4, OIND+5, OIND+6, OIND+7, OIND+8, OIND+9, OIND+10
>> OTHCNT POTH+10*
OTHER POTH+1~, POTH+20*
SCEC PRDX+1~*, PRDX+4, PSCEI+1, DOTH+1~*, DOTH+6, DOTH+7, DOTH+10, SCEC~, SCEC+2*, SCEC+3
>> SRADIAG( PDXEN+4, DOTH+15, ODXEN+8
SRADX ADCHK+1~*, ADCHK+2*, ADCHK+3
SRCL PSCEI+1!, DOTH+14!, OSCEI, SCEC+1, SCEC+2
SRCL(1 PRDX+10, OIND+5
SRCL(2 PRDX+11, OIND+6
SRCL(3 PRDX+8, OIND+3
SRCL(4 PRDX+12, OIND+7
SRCL(5 PRDX+14, OIND+9
SRCL(6 PRDX+15, OIND+10
SRCL(7 PRDX+9, OIND+4
SRCL(8 PRDX+13, OIND+8
SRCOLSPN PRDX+7~*, PRDX+8*, PRDX+9*, PRDX+10*, PRDX+11*, PRDX+12*, PRDX+13*, PRDX+14*, PRDX+15*, OIND+2~*
, OIND+3*, OIND+4*, OIND+5*, OIND+6*, OIND+7*, OIND+8*, OIND+9*, OIND+10*
>> SRCPT POTH+3*, POTH+5
>> SRDA POTH+3*, POTH+10*, POTH+20*, OPEN, OPEN+1, OPEN+4, OASS, DOTH+9*, DOTH+10, ODXEN
, ODXEN+5, ODXEN+6, ODXEN+11, ODXEN+12
>> SRDES PRDX+3*, DOTH+4*
>> SRDIAG PRDX+2*, PRDX+3*, PRDX+4, DOTH+3*, DOTH+4*, DOTH+5
SRDICN POTH+18*!
SRDIE OPEN*, OPEN+1!
SRDIRED OPEN~*, OPEN+2
SRDUP PRDX+1~, PDXEN+3*, PDXEN+4*, PDXEN+5, POTH+16*, POTH+17*, DOTH+1~, DOTH+15*, DOTH+16, ODXEN+8*
, ODXEN+9
SRDXY PRDX+1~, PRDX+18*, PRDX+19, DOTH+13*
SRI PRDX+1~, PDXEN+3*, PDXEN+4*, DOTH+1~, DOTH+15*, ODXEN+8*
SRJ DOTH+1~
SRNEW PRDX+1~, PDXEN+1*, PDXEN+3, PDXEN+4, PDXEN+6, PDXEN+7, POTH+1~, POTH+16*, POTH+17, POTH+18
, POTH+20, DOTH+1~, DOTH+14*, DOTH+15, DOTH+18, ODXEN+1*, ODXEN+8, ODXEN+10, ODXEN+11
SRNUM PRDX+1~, PRDX+3*, PDXEN, DOTH+1~, DOTH+4*, DOTH+5
SROLD PRDX+1~, PRDX+2*, PDXEN+3, PDXEN+4, PDXEN+7, POTH+1~, OPEN*, OPEN+4, ODXEN*, ODXEN+8
, ODXEN+10, ODXEN+11
SROPY POTH+1~, POTH+14*, POTH+15
SROTH ADCHK+1~*, ADCHK+2*
SRPOTH POTH+1~, POTH+19*, OASS*
SRQ ADCHK+1~*
SRSDATE SCEC~*, SCEC+1
SRSEL POTH+1!, DOTH+2!
SRSEL( POTH+5*, OPEN, OPEN+1, OPEN+4, OASS, DOTH+5*, DOTH+10, ODXEN, ODXEN+5, ODXEN+6!
, ODXEN+11, ODXEN+12
SRSHT POTH+1~, POTH+3*
>> SRSOUT POTH+1, POTH+8*, DOTH+2, DOTH+8*, ODXEN+2*, ODXEN+4*, ODXEN+7*
>> SRTN PRDX+2, PRDX+3, PRDX+5, PRDX+6, PRDX+8, PRDX+9, PRDX+10, PRDX+11, PRDX+12, PRDX+13
, PRDX+14, PRDX+15, PDXEN+6, PSCEI, POTH+1, POTH+2, POTH+3, POTH+17, POTH+19, OPEN+1
, OPEN+4, DOTH+2, DOTH+3, DOTH+4, DOTH+17, ODXEN+5, ODXEN+11, SCEC, SCEC+1, ADCHK+2
, OIND, OIND+1, OIND+3, OIND+4, OIND+5, OIND+6, OIND+7, OIND+8, OIND+9, OIND+10
SRX POTH+17*, DOTH+1~, DOTH+3*, DOTH+5
U PRDX+3, POTH+2, POTH+3, POTH+17, OPEN, OPEN+1, OPEN+4, OASS, DOTH+3, DOTH+4
, DOTH+10, ODXEN, ODXEN+5, ODXEN+6, ODXEN+11, ODXEN+12, SCEC, SCEC+1
>> X PRDX+2*, PRDX+3, PDXEN+1, PDXEN+2, PDXEN+7*, POTH+2*, POTH+3, POTH+18*, OPEN+4*, DOTH+3*
, DOTH+4, DOTH+18*, ODXEN+2, ODXEN+6*, ODXEN+12*
>> Y PRDX+3*, PRDX+17, PRDX+18, PDXEN+1, PDXEN+6, POTH+3*, POTH+9, POTH+10, POTH+13, POTH+14
, POTH+16, POTH+18, POTH+19, OPEN+1, DOTH+4*, DOTH+9, DOTH+12, DOTH+13, DOTH+14, ODXEN+1
, ODXEN+4
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