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

Package: Surgery

Routine: SROICU2


Information

SROICU2 ;B'HAM ISC/MAM - UNSCHEDULED ADMISSION TO ICU ; 2 OCT 1990 12:45 PM

Source Information

Source file <SROICU2.m>

Entry Points

Name Comments DBIA/ICR reference
SET ; case information
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: !!,"No unscheduled admissions to ICU for the selected date range."
  • Line Location: SROICU2+5
Function Call: WRITE
  • Prompt: !,SRODATE,?17,VADM(1),?55,SRSS,?110,SRSUR,!,?17,VA("PID"),?55,SRDIAG,?110,SRATT,!,?17,SRDIS,?55,SROP(1)
  • 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,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?52,"UNSCHEDULED ADMISSIONS TO ICU",?100,"DATE REVIEWED: "
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?53,"FROM ",$E(SRSD,4,5)_"/"_$E(SRSD,6,7)_"/"_$E(SRSD,2,3)," TO ",$E(SRED,4,5)_"/"_$E(SRED,6,7)_"/"_$E(SRED,2,3)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"DATE",?17,"PATIENT",?55,"SURGICAL SPECIALTY",?110,"PRIMARY SURGEON",!,?17,"PATIENT ID",?55,"POSTOPERATIVE DIAGNOSIS",?110,"ATTENDING SURGEON",!,?17,"REQ DISPOSITION/POSTOP DISPOSITION",?55,"OPERATIVE PROCEDURE(S)"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+6
Info |  Source |  Entry Points |  Interaction Calls