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

Package: Surgery

Routine: SROVER2


Information

SROVER2 ;BIR/ADM - Case Coding and Verification ; 8/10/04 3:00pm

Source Information

Source file <SROVER2.m>

Entry Points

Name Comments DBIA/ICR reference
BEG
PRINT ; print information
END
HDR
LOOP ; break procedure if greater than 45 characters
ORPT ; print operation/procedure report
NRPT ; print nurse intraoperative report
MOD ; if data changed set coder verification field
CHECK ; check for changes to data

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"1. Principal Procedure: ",?24,SROPS(1)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,?24,SROPS(2)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,?24,SROPS(2)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,"2. Principal CPT Code: ",?24,$S(CPT:SRCPT,1:"NOT ENTERED")
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,?6,SRDES(I)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,?10,SRX
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"3. Other Procedures: "_$S($O(^SRF(SRTN,13,0)):"** INFORMATION ENTERED **",1:"NO OTHER PROCEDURES HAVE BEEN ENTERED")
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,"4. Principal Diagnosis: "_SRTXT
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,"4. Postoperative Diagnosis: "_SRTXT
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !,"5. Principal Diagnosis Code: "_SRDIAG
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !,"6. Other Postop Diagnosis: "_$S($O(^SRF(SRTN,15,0)):"** INFORMATION ENTERED **",1:"NO OTHER POSTOP DIAGNOSIS HAS BEEN ENTERED")
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,"7. Principal Pre-OP Diagnosis: "
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: $P(^(33),"^")
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !,"8. Principal Pre-OP Diagnosis Code: "_SRDIAG
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF,!,SRNM,!,"Operation Date: "_SRSDATE,?40,"Case #",SRTN,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!,?5,"Nurse Intraoperative Report NOT available on Non-OR Procedure",!
  • Line Location: NRPT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NRPT+1
Info |  Source |  Entry Points |  Interaction Calls