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

Package: Surgery

Routine: SROALLS


Information

SROALLS ;BIR/ADM - MAJOR CASES BY SPECIALTY ;01/18/07

Source Information

Source file <SROALLS.m>

Entry Points

Name Comments DBIA/ICR reference
START
UTL ; write to ^TMP("SRA,$J)
SET ; set variables
PRINT ;
CASE ; print a case
SS ; print surgical specialty
PAGE
HDR ; print heading
OTHER ; other operations
LOOP ; break procedures
SSCT ; write specialty count

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"TOTAL MAJOR CASES FOR ALL SPECIALTIES: ",SRTC
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,SRTN,?20,SRANM_" "_VA("PID"),?55,SRTECH
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,SRDT,?20,SROPS(1)
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: ?55,SRDOC
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: ?55,STATUS
  • Line Location: CASE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+6
Function Call: WRITE
  • Prompt: ?20,SROPS(2)
  • Condition for execution: $D(SROPS(2))
  • Line Location: CASE+6
Function Call: WRITE
  • Prompt: ?55,SREXCL
  • Line Location: CASE+6
Function Call: WRITE
  • Prompt: ?55,SREXCL
  • Line Location: CASE+6
Function Call: WRITE
  • Prompt: ?55,SREXCL
  • Line Location: CASE+6
Function Call: WRITE
  • Prompt: !,?20,SROPS(2)
  • Line Location: CASE+7
Function Call: WRITE
  • Prompt: !,?20,SROPS(3)
  • Line Location: CASE+7
Function Call: WRITE
  • Prompt: !,?20,SROPS(3)
  • Line Location: CASE+7
Function Call: WRITE
  • Prompt: !,?20,"CPT Codes: "
  • Line Location: CASE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+10
Function Call: WRITE
  • Prompt: "-"
  • Line Location: CASE+10
Function Call: WRITE
  • Prompt: !,"** SURGICAL SPECIALTY: ",SRSS," **",!
  • Line Location: SS+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: !!,"If you want to continue listing 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+2
Function Call: WRITE
  • Prompt: !!,"CASE #",?20,"PATIENT",?55,"ANESTHESIA TECHNIQUE"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"OPERATION DATE",?20,"OPERATIVE PROCEDURE(S)"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?55,"ASSESSMENT STATUS"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?55,"SURGEON"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?55,"EXCLUSION CRITERIA"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"TOTAL ",SRSS,": ",SRC,!
  • Line Location: SSCT+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SSCT+2
Info |  Source |  Entry Points |  Interaction Calls