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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRO(136 - [#136] Classic Fileman Calls,  GETS^DIQ
136.04 GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call