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

Package: Surgery

Routine: SRSCPT2


Information

SRSCPT2 ;BIR/MAM - MISSING CPTS (ALL SPECIALTIES) ;03/29/06

Source Information

Source file <SRSCPT2.m>

Entry Points

Name Comments DBIA/ICR reference
CASE ; get case number
SET ; set variables & print info
UTIL ; set ^TMP("SR",$J)
UT
HDR ; print heading
OPS ; print operations
LOOP ; break procedure if greater than 59 characters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: SRSCPT2+7
Function Call: WRITE
  • Prompt: !,SRSDATE,?18,SRSNM_" ("_VA("PID")_")",?60,SRSUR,!,SRTN
  • Line Location: SET+9
Function Call: WRITE
  • Prompt: !,"NON-O.R."
  • Condition for execution: SRFLG=3&(SRNON)
  • Line Location: SET+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SET+11
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SET+11
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?(80-$L(SRINST)\2),SRINST,!,?23,"Completed Cases Missing CPT Codes",!,?(80-$L(SRTITLE)\2),SRTITLE,!,?(80-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"Operation Date",?18,"Patient (ID#)",?60,"Surgeon/Provider",!,"Case #",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?18,SROPS(1)
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !,?18,SROPS(2)
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !,?18,SROPS(2)
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !,?18,SROPS(2)
  • Line Location: OPS+2
Info |  Source |  Entry Points |  Interaction Calls