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

Package: Surgery

Routine: SROACOM


Information

SROACOM ;BIR/MAM - COMPLETE ASSESSMENT ;05/05/10

Source Information

Source file <SROACOM.m>

Entry Points

Name Comments DBIA/ICR reference
YEP
COMPLT
PRINT
EN
END
LIST
PRT
ANES
RET
PAGE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This assessment has a "_$S(Y="C":"'COMPLETE'",1:"'TRANSMITTED'")_" status.",!!,"No action taken."
  • Line Location: SROACOM+4
Function Call: WRITE
  • Prompt: !!,?6,"The coding for Procedure and Diagnosis is not complete."
  • Line Location: YEP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: YEP+1
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: YEP+3
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: YEP+5
Function Call: WRITE
  • Prompt: !!,"Updating the current status to 'COMPLETE'..."
  • Line Location: COMPLT+0
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !!,"Enter <RET> to print the completed assessment, or 'NO' to return to the menu."
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF,!,"This assessment is missing the following items:",!
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !,?5,$J(SRCNT,2)_". "_$P(SRX(SRZ),"^")
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: RET+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RET+0
Function Call: WRITE
  • Prompt: @IOF,!!!
  • Line Location: PAGE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call