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

Package: Surgery

Routine: SROSPSS


Information

SROSPSS ;B'HAM ISC/MAM - CASES W/O SPECIMENS BY SPECIALTY ; [ 07/27/98 2:33 PM ]

Source Information

Source file <SROSPSS.m>

Entry Points

Name Comments DBIA/ICR reference
DATE
UTIL ; case information
SET ; set case variables for printing
OPS
PAGE
HDR ; print heading
OTHER ; other operations
LOOP ; break procedure if greater than 50 characters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"TOTAL ",SRSPEC,": 0"
  • Line Location: SROSPSS+5
Function Call: WRITE
  • Prompt: !!,"TOTAL CASES WITHOUT SPECIMENS: 0"
  • Line Location: SROSPSS+6
Function Call: WRITE
  • Prompt: !!,"TOTAL ",SRSPEC,": ",TOTAL
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !,SROD,?20,VADM(1),?55,SRDIAG,?110,SRSUR,!,SRTN,?20,VA("PID"),?55,SROP(1),?110,SRATT
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !,?55,SROP(2)
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !,?55,SROP(2)
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !,?55,SROP(2)
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: OPS+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue listing cases, or '^' to exit from this option."
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE ",PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?55,"CASES WITHOUT SPECIMENS",?100,"DATE REVIEWED: "
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,"DATE",?20,"PATIENT",?55,"POSTOPERATIVE DIAGNOSIS",?110,"PRIMARY SURGEON",!,"CASE #",?20,"PATIENT ID",?55,"OPERATIVE PROCEDURE",?110,"ATTENDING SURGEON"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+7
Info |  Source |  Entry Points |  Interaction Calls