Routine: DGSWITCH

Information

DGSWITCH ;SF/GFT/MIR - SWITCH BEDS ; 5/17/88 10:54 AM ;

Source file <DGSWITCH.m>

Name	Line Occurrences
Function Call: READ	Formatting: !! Prompt: "SWITCH BED FOR PATIENT: " Variable: X Timeout: DTIME Line Location: EN+1
Function Call: WRITE	Prompt: *7,!?5,"NO ADMISSIONS ON FILE!" Line Location: OERR+0
Function Call: WRITE	Prompt: ! Line Location: OERR+1
Function Call: WRITE	Prompt: !,"Patient is not in-house!",*7 Line Location: OERR+1
Function Call: WRITE	Prompt: !,"Not while ",$S("^2^3^25^26^"[X:"on absence",1:"ASIH") Line Location: OERR+3

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^DGPM - [#405]	Classic Fileman Calls