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

Package: Surgery

Routine: SROALST


Information

SROALST ;BIR/MAM - ALL ASSESSMENTS ;01/18/07

Source Information

Source file <SROALST.m>

Entry Points

Name Comments DBIA/ICR reference
SET ; print assessments
OTHER ; other operations
LOOP ; break procedures
PAGE
HDR
CPT(SRY) ; check code for exclusion

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,SRTN,?20,SRANM_" "_VA("PID"),?55,$P(SRSS,"("),!,SRDT,?20,SROPS(1),?55,SRTECH,!,STATUS
  • Line Location: SET+21
Function Call: WRITE
  • Prompt: ?20,SROPS(2)
  • Condition for execution: $D(SROPS(2))
  • Line Location: SET+21
Function Call: WRITE
  • Prompt: ?55,SREXCL
  • Line Location: SET+21
Function Call: WRITE
  • Prompt: !,SRDOC
  • Line Location: SET+22
Function Call: WRITE
  • Prompt: ?20,SROPS(3)
  • Line Location: SET+22
Function Call: WRITE
  • Prompt: ?20,SROPS(3)
  • Line Location: SET+22
Function Call: WRITE
  • Prompt: !,?20,"CPT Codes: "
  • Line Location: SET+23
Function Call: WRITE
  • Prompt: ?31,$$CPT($P(SRPROC(I),"-"))_SRPROC(I)
  • Line Location: SET+24
Function Call: WRITE
  • Prompt: !
  • Line Location: SET+25
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SET+25
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: !!,"If you want to continue listing incomplete assessments, enter <RET>. Enter",!,"'^' to return to the menu."
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: @IOF,!,?(80-$L(SRHD)\2),SRHD,!,?(80-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"CASE #",?20,"PATIENT",?55,"SURGICAL SPECIALTY",!,"OPERATION DATE",?20,"PRINCIPAL OPERATION",?55,"ANESTHESIA TECHNIQUE",!,"ASSESSMENT STATUS",?55,"EXCLUSION CRITERIA",!,"SURGEON",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+2
Info |  Source |  Entry Points |  Interaction Calls