Routine: DGSWITCH

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

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

Source Information

Source file <DGSWITCH.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Registration	5	RESET^DGPMDDCN ^DGPMEVT EN^DGPMVBM INP^DGRPD KVAR^VADPT
VA FileMan	2	^DIC ^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Registration	2	DG BED SWITCH DGOERR BED SWITCH
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN
OERR
REASK
Q
OREN
DIE

External References

Name	Field # of Occurrence
RESET^DGPMDDCN	DIE
^DGPMEVT	DIE+1
EN^DGPMVBM	DIE+1
INP^DGRPD	OERR
^DIC	EN+1
^DIE	DIE
KVAR^VADPT	Q

Interaction Calls

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
Routine Call	DIC Line Location: EN+1
Routine Call	DIE Line Location: DIE

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	OERR+3, DIE
^DGPM("APCA"	OERR+2
^DGPM("APMV"	OERR+3
^UTILITY("DGPM"	EN!, Q!, DIE*

Label References

Name	Line Occurrences
DIE	OERR+2, OERR+4
EN	EN+1, REASK
OERR	OREN
Q	EN+1
REASK	OERR, OERR+1, OERR+2, OERR+3

Naked Globals

Name	Field # of Occurrence
^(	OERR+3
^(0	OERR+3, DIE

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	Q!
D	Q!
DA	OERR+2, OERR+4, Q!, DIE
DFN	EN+1, OERR+2, OERR+3, Q!, OREN
DGOERR	EN*, Q!
DGPMA	Q!, DIE*, DIE+1
DGPMDA	Q!, OREN, DIE
DGPMDCD	OERR+1, Q!
DGPMOC	Q!
DGPMOS	Q!
DGPMP	Q!, DIE*, DIE+1
DGPMT	OERR+2, OERR+4, Q!, DIE
DGPMVI	Q!
DGPMVI(1	OERR
DGPMVI(13	OERR+2, OERR+3
DGSWITCH	EN, Q!, OREN
DIC	EN+1*, Q!
DIC("S"	EN+1*
DIC(0	EN+1*
DIE	OERR+2*, Q!
DR	OERR+2*, Q!
DTIME	EN+1
I	OERR+2, OERR+3, OERR+4, Q!
ORACTION	EN!, REASK, Q
>> ORVP	OREN
X	EN+1, OERR+3, Q!
XQORQUIT	EN*, Q!
Y	EN+1, Q!, OREN*