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

Call Graph Total: 14

Package Total Call Graph
Surgery 8 (HDR,OSCEI)^SROCD  SCEI^SROCD3  (COTHADX,OTHCPTD)^SROCDX  (ASSDIAG,OTHADX,OTHADXD,PASSDIAG)^SROCDX1  (DELASOC,DELWRN,PRINASOD,SADXO)^SROCDX2  SSOTH^SROCPT0  ($$ICD,$$ICD910,$$ICDSTR,ICDSRCH)^SROICD  OPROC^SROMOD0  
VA FileMan 4 FILE^DICN  ^DIE  GETS^DIQ  ^DIR  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Scheduling 1 CL^SDCO21  

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 SROCD2  

Entry Points

Name Comments DBIA/ICR reference
PRDX ; edit Principal Postop Diagnosis
PRESS
PDXEN ;
; JAS - 6/19/13 - Patch 177 - modifications to correct ^DIR incompatibility with ICD-10 Code Set Versioning Utility
PSCEI
POTH
PH
OPEN
OASS
DUP
DOTH
DH
ODXEN ;
; JAS - 6/20/13 - Patch 177 - modifications to correct ^DIR incompatibility with ICD-10 Code Set Versioning Utility
OSCEI
SCEC()
ADCHK() ; check for other procedures with no associated diagnosis
REMIND ; display reminder to update procedure/diagnosis associations
OIND

External References

Name Field # of Occurrence
FILE^DICN POTH+18, DOTH+25
^DIE PDXEN+12, OPEN+1, ODXEN+11, ODXEN+17
GETS^DIQ PRDX+5, OIND
^DIR PRDX+17, PRESS, POTH+8, POTH+13, POTH+16, DUP, DOTH+10, DOTH+14, ODXEN+10, REMIND+2
$$CPT^ICPTCOD POTH+3
CL^SDCO21 SCEC+1
HDR^SROCD PDXEN+11, POTH+11, PH, DOTH+12, 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+12, ODXEN+18
DELWRN^SROCDX2 POTH+9
PRINASOD^SROCDX2 PDXEN+13
SADXO^SROCDX2 OPEN+4
SSOTH^SROCPT0 POTH+3
$$ICD^SROICD PRDX+3, DOTH+5
$$ICD910^SROICD PRDX+4
$$ICDSTR^SROICD DOTH+4
ICDSRCH^SROICD PDXEN+3, DOTH+18, ODXEN+4
OPROC^SROMOD0 POTH+19, OPEN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Principal Postop Diagnosis:",!!,?5,"ICD"_$$ICD910^SROICD(SRTN)_" 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: !,"This is a required entry."
  • Line Location: PDXEN+5
Function Call: WRITE
  • Prompt: !!," Deletion of the Principal Postop Diagnosis Code is not allowed! ??"
  • Line Location: PDXEN+6
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+9
Function Call: WRITE
  • Prompt: !,CNT_". Enter NEW Other Postop Diagnosis Code",!
  • Line Location: DOTH+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: DOTH+11
Function Call: WRITE
  • Prompt: !,"Other Postop Diagnosis:",!!,SRDA_". "_$P(SRSEL(SRDA),U,2)
  • Line Location: DOTH+12
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+12
    • OPEN+1
    • ODXEN+11
    • ODXEN+17
Routine Call
  • DIR
  • Line Location:
    • PRDX+17
    • PRESS
    • POTH+8
    • POTH+13
    • POTH+16
    • DUP
    • DOTH+10
    • DOTH+14
    • ODXEN+10
    • 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] POTH+3, 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+11, DOTH+19, DOTH+20, DOTH+23
DOTH DH
DUP PDXEN+11, DOTH+23, ODXEN+15
OASS POTH+15
ODXEN DOTH+15
OIND DOTH+8, DOTH+12
OPEN POTH+14
OSCEI DOTH+15
PDXEN PRDX+2, PRDX+18, PDXEN+5, PDXEN+6, PDXEN+11
PH POTH+10, POTH+16
POTH PH
PRESS PSCEI+2, POTH+9, OSCEI
PSCEI PRDX+19
REMIND PDXEN+14, DOTH+26, ODXEN+13, ODXEN+19

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+7
, DOTH+9*, DOTH+10, DOTH+11
>> CPT POTH+3*, POTH+4, POTH+5
>> CPT1 POTH+2*, POTH+3*, POTH+5
DA PDXEN+12!*, POTH+19!*, OPEN!, OPEN+1*, OPEN+2!, OPEN+4!, DOTH+25!, ODXEN+11!*, ODXEN+12!, ODXEN+17!*
, ODXEN+18!
DA(1 POTH+19*, OPEN+1*, DOTH+24*, ODXEN+11*, ODXEN+17*
DD POTH+18!, DOTH+25!
DFN SCEC~, SCEC+1*
DIC POTH+18*!, DOTH+25*!
DIC(0 POTH+18*, DOTH+25*
DIE PDXEN+12!*, OPEN!, OPEN+1*!, ODXEN+11!*, ODXEN+12!, ODXEN+17!*, ODXEN+18!
DIR PRDX+16!, PRESS!, POTH+8!, POTH+12!, POTH+16!, OPEN!, DUP!, DOTH+10!, DOTH+13!, ODXEN+9!
, ODXEN+10!, ODXEN+17!, REMIND+1!, REMIND+2!
DIR("A" PRDX+17*, PRESS*, POTH+8*, POTH+13*, POTH+16*, DUP*, DOTH+10*, DOTH+14*, ODXEN+9*, REMIND+1*
, REMIND+2*
DIR("B" PRDX+17*, POTH+13*, DOTH+14*, ODXEN+9*
DIR(0 PRDX+16*, PRESS*, POTH+8*, POTH+12*, POTH+16*, DUP*, DOTH+10*, DOTH+13*, ODXEN+9*, REMIND+2*
DO POTH+18!, DOTH+25!
DR PDXEN+12!*, OPEN!, OPEN+1*!, DOTH+25!, ODXEN+11!*, ODXEN+12!, ODXEN+17*, ODXEN+18!
DT SCEC
>> DTOUT PRDX+17, POTH+8, POTH+13, POTH+16, DOTH+10, DOTH+14, ODXEN+10
>> DUOUT PRDX+17, POTH+8, POTH+13, POTH+16, DOTH+10, DOTH+14, ODXEN+10
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+7, DOTH+12*, 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+8, DOTH+9, DOTH+12, SCEC~, SCEC+2*, SCEC+3
>> SRADIAG( PDXEN+10, DOTH+22, ODXEN+14
SRADX ADCHK+1~*, ADCHK+2*, ADCHK+3
SRCL PSCEI+1!, 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+11*, DOTH+12, ODXEN+3
, ODXEN+11, ODXEN+12, ODXEN+17, ODXEN+18
SRDEF PDXEN+2*, DOTH+17~*, ODXEN+2~, ODXEN+3*
>> SRDES PRDX+3*, DOTH+5*
>> SRDIAG PRDX+2*, PRDX+3*, PRDX+4, DOTH+3*, DOTH+5*, DOTH+7
SRDICN POTH+18*!
SRDIE OPEN*, OPEN+1!
SRDIRED OPEN~*, OPEN+2
SRDUP PRDX+1~, PDXEN+9*, PDXEN+10*, PDXEN+11, POTH+16*, POTH+17*, DOTH+1~, DOTH+22*, DOTH+23, ODXEN+14*
, ODXEN+15
SRDXY PRDX+1~, PRDX+18*, PRDX+19, DOTH+15*
SRI PRDX+1~, PDXEN+9*, PDXEN+10*, DOTH+1~, DOTH+22*, ODXEN+14*
SRJ DOTH+1~
SRNEW PRDX+1~, PDXEN+7*, PDXEN+9, PDXEN+10, PDXEN+12, PDXEN+13, POTH+1~, POTH+16*, POTH+17, POTH+18
, POTH+20, DOTH+1~, DOTH+20*, DOTH+22, DOTH+25, ODXEN+6*, ODXEN+14, ODXEN+16, ODXEN+17
SRNUM PRDX+1~, PRDX+3*, DOTH+1~, DOTH+5*, DOTH+7
>> SROICD PDXEN+2
SROLD PRDX+1~, PRDX+2*, PDXEN+9, PDXEN+10, PDXEN+13, POTH+1~, OPEN*, OPEN+4, ODXEN+3*, ODXEN+14
, ODXEN+16, ODXEN+17
SROPY POTH+1~, POTH+14*, POTH+15
SROTH ADCHK+1~*, ADCHK+2*
SRPOTH POTH+1~, POTH+19*, OASS*
SRPRMT PDXEN+2~*, DOTH+17~*, ODXEN+2~*
SRQ ADCHK+1~*
SRSDATE SCEC~*, SCEC+1
SRSEL POTH+1!, DOTH+2!
SRSEL( POTH+5*, OPEN, OPEN+1, OPEN+4, OASS, DOTH+7*, DOTH+12, ODXEN+3, ODXEN+11, ODXEN+12!
, ODXEN+17, ODXEN+18
SRSHT POTH+1~, POTH+3*
>> SRSOUT POTH+1, POTH+8*, DOTH+2, DOTH+10*, ODXEN+8*, ODXEN+10*, ODXEN+13*
SRSYS DOTH+1~, DOTH+4*, DOTH+6
SRSYS1 DOTH+1~, DOTH+6*, DOTH+7
>> SRTN PRDX+2, PRDX+3, PRDX+4, PRDX+5, PRDX+6, PRDX+8, PRDX+9, PRDX+10, PRDX+11, PRDX+12
, PRDX+13, PRDX+14, PRDX+15, PDXEN+12, PSCEI, POTH+1, POTH+2, POTH+3, POTH+17, POTH+19
, OPEN+1, OPEN+4, DOTH+2, DOTH+3, DOTH+4, DOTH+5, DOTH+24, ODXEN+11, ODXEN+17, 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+7
U PRDX+3, POTH+2, POTH+3, POTH+17, OPEN, OPEN+1, OPEN+4, OASS, DOTH+3, DOTH+5
, DOTH+12, ODXEN+3, ODXEN+11, ODXEN+12, ODXEN+17, ODXEN+18, SCEC, SCEC+1
X PRDX+2*, PRDX+3, PDXEN+2~, PDXEN+4!, PDXEN+5, PDXEN+6, PDXEN+13*, POTH+2*, POTH+3, POTH+18*
, OPEN+4*, DOTH+3*, DOTH+5, DOTH+17~, DOTH+19!, DOTH+25*, ODXEN+2~, ODXEN+5!, ODXEN+8, ODXEN+12*
, ODXEN+18*
Y PRDX+3*, PRDX+17, PRDX+18, PDXEN+2~, PDXEN+7, PDXEN+12, POTH+3*, POTH+9, POTH+10, POTH+13
, POTH+14, POTH+16, POTH+18, POTH+19, OPEN+1, DOTH+5*, DOTH+11, DOTH+14, DOTH+15, DOTH+17~
, DOTH+20, ODXEN+2~, ODXEN+6, ODXEN+10
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