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

Package: Surgery

Routine: SROASS


Information

SROASS ;BIR/MAM - SELECT ASSESSMENT ;01/18/07

Source Information

Source file <SROASS.m>

Entry Points

Name Comments DBIA/ICR reference
PST
START ; start display
OPT
ENTER ; edit, complete, or delete
EXCL
END
HELP ;
TRANS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: PST+0
Function Call: WRITE
  • Prompt: " * DIED "_$E(SRDT,4,5)_"/"_$E(SRDT,6,7)_"/"_$E(SRDT,2,3)_" *"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: CNT,". ---- CREATE NEW ASSESSMENT"
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !!,"There are no Surgery Risk Assessments entered for "_VADM(1)_".",!!
  • Line Location: START+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"Enter the number of the desired assessment."
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: " Select '"_CNT_"' to create an",!,"assessment for another surgical case."
  • Condition for execution: $D(SRNEW)
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: @IOF,!,?1,SRANM,!!
  • Line Location: ENTER+5
Function Call: WRITE
  • Prompt: !!,"1. Enter Risk Assessment Information",!,"2. Delete Risk Assessment Entry",!,"3. Update Assessment Status to 'COMPLETE'"
  • Line Location: ENTER+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENTER+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENTER+10
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: ENTER+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENTER+10
Function Call: WRITE
  • Prompt: !!,"Enter <RET> or '1' to enter or edit information related to this Risk ",!,"Assessment entry. If you want to delete the Assessment, enter '2'."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Enter '3' to update the status of this Assessment to 'COMPLETE'."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: @IOF,!,"This assessment has already been transmitted. The information contained",!,"in it cannot be altered unless you first change the status to 'INCOMPLETE'."
  • Line Location: TRANS+0
Info |  Source |  Entry Points |  Interaction Calls