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

Package: Surgery

Routine: SROVER


Information

SROVER ;BIR/MAM - VERIFY CASE ;[ 01/30/01 1:52 PM ]

Source Information

Source file <SROVER.m>

Entry Points

Name Comments DBIA/ICR reference
BEG
DONE
STRT
UP
VER
END
LOOP ; break procedure if greater than 45 characters
RT ; start RT logging
OTHER
PRINT ; print information

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you would like to reverify this case, or 'N' to exit",!,"this option."
  • Line Location: DONE+2
Function Call: WRITE
  • Prompt: !!,"This case has been locked. If you wish to update it, please contact",!,"your Chief of Surgery, or package coordinator."
  • Line Location: STRT+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: UP+0
Function Call: WRITE
  • Prompt: !!,"Verification of this case has not been made."
  • Line Location: UP+1
Function Call: WRITE
  • Prompt: !!,"Your answer has a control character in it, please re-type it.",!
  • Line Location: UP+3
Function Call: WRITE
  • Prompt: !!,"If the information above is not correct, enter 'YES'. You may then update",!,"any of the fields displayed. Enter RETURN to proceed with verification",!,"of this case."
  • Line Location: UP+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: VER+0
Function Call: WRITE
  • Prompt: !!,"No action has been taken. "
  • Line Location: VER+0
Function Call: WRITE
  • Prompt: !,"Enter 'YES' if the procedures, diagnosis, and occurrences are correct",!,"for this case. If you enter 'NO', the case will be left unverified."
  • Line Location: VER+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !,?10,SRX
  • Line Location: OTHER+4
Function Call: WRITE
  • Prompt: @IOF,!,SRNM,?52,"Operation Date: "_SRSDATE,!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,?3,^UTILITY($J,"W",3,V,0)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"2. Principal CPT Code: ",X
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,?5,SRDES(I)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,?10,SRX
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"3. Principal Procedure: ",?24,SROPS(1)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,?24,SROPS(2)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,?24,SROPS(2)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,"4. Other Procedures: ",?24
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,"5. Postoperative Diagnosis: "
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?30,$P(^(34),"^")
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,"6. Intraoperative Occurrences: "_$S($O(^SRF(SRTN,10,0)):"** INFORMATION ENTERED **",1:"NO OCCURRENCES HAVE BEEN ENTERED")
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !,"7. Principal Pre-OP Diagnosis: "
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: $P(^(33),"^")
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,"8. Principal Pre-OP Diagnosis Code "_$$ICDSTR^SROICD(SRTN)_": "_SRDIAG
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+21
Info |  Source |  Entry Points |  Interaction Calls