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

Package: Surgery

Routine: SROCDX


Information

SROCDX ;BIR/ADM - CASE CODING INPUT/EDIT ;08/29/05

Source Information

Source file <SROCDX.m>

Entry Points

Name Comments DBIA/ICR reference
PCPT ; edit principal procedure code
PPROC
CASDX ; associate principal CPT to diagnosis
COTHADX
DXDUP(SRDX)
VALASC()
SRODIR
COTHBLD
OTHCPTD
CPTDISP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Principal Procedure:",!
  • Line Location: PCPT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PPROC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CASDX+7
Function Call: WRITE
  • Prompt: !
  • Line Location: COTHADX+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: COTHADX+6
Function Call: WRITE
  • Prompt: !,"Other Procedures:",!!,OTHCNT,"."," CPT Code: "_$P(SRSEL(SRDA),U,4)
  • Line Location: OTHCPTD+2
Function Call: WRITE
  • Prompt: !,?5,"Modifiers: "
  • Line Location: OTHCPTD+3
Function Call: WRITE
  • Prompt: $P($$MOD^ICPTMOD(SRM,"I"),"^",2),"-",$P($$MOD^ICPTMOD(SRM,"I"),"^",3)
  • Line Location: OTHCPTD+6
Function Call: WRITE
  • Prompt: "NOT ENTERED"
  • Line Location: OTHCPTD+8
Function Call: WRITE
  • Prompt: !,?3,"CPT Code: "_Y_" "_Z,!,?3,"Modifiers: "
  • Line Location: CPTDISP+2
Function Call: WRITE
  • Prompt: "NOT ENTERED"
  • Line Location: CPTDISP+3
Function Call: WRITE
  • Prompt: $P($$MOD^ICPTMOD(SRMO,"I"),"^",2),"-",$P($$MOD^ICPTMOD(SRMO,"I"),"^",3)
  • Line Location: CPTDISP+6
Info |  Source |  Entry Points |  Interaction Calls