Routine: DGPMVBM

Information

DGPMVBM ;ALB/MIR - BUILDING MANAGMENT BULLETIN GENERATOR ; 9 OCT 90

Source file <DGPMVBM.m>

Package	Total	Call Graph
MailMan	2	WHO^XMA21 ^XMD
VA Fileman	2	NOW^%DTC YN^DICN

Package	Total	Caller Graph
Registration	2	DGPMV3 DGSWITCH

Name	Comments	DBIA/ICR reference
SET	;set up variables for new transfers, discharges, or check-outs
SETLN	; -- set line in xmtext array
Q
EN	;begin checks for bulletin generation
FILE	;send bulletin
ASK	;ask if bulletin should be sent

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You have made a change to the room-bed." Line Location: EN+8
Function Call: WRITE	Prompt: !,"Do you want to notify Building Management" Line Location: ASK+1
Function Call: WRITE	Prompt: !?3,"Respond 'Y'es to notify Building Management of vacated bed, otherwise, 'N'o." Line Location: ASK+2

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	FILE+1, FILE+6
^DGPM - [#405]	EN+3, SET+1, SET+2
^DGPM("APID"	SET+1
^DGPM("APRD"	EN+3
^DIC(42 - [#42]	FILE+6
^UTILITY("DGPM BLDG MGMT"	FILE+2!, FILE+12!, SETLN+2*
^XMB(3.8 - [#3.8]	EN+1

Name	Line Occurrences
ASK	ASK+2
FILE	ASK+3
Q	EN+3, EN+5, EN+7, ASK+1, ASK+3, SET+1, SET+2, SET+3, FILE+1
SET	EN+4
SETLN	FILE+5, FILE+6, FILE+7, FILE+8, FILE+9, FILE+10

Name	Field # of Occurrence
^(	EN+3, SET+1
^(0	EN+3, SET+1, SET+2, FILE+6

Name	Field # of Occurrence
%	EN+3, ASK+1*, ASK+2, Q!
%Y	Q!
>> DFN	EN+3, SET+1
>> DGPMA	EN+2, EN+3, EN+7, SET+1
>> DGPMAN	SET+2
DGPMBL	FILE+5, FILE+6, FILE+7, FILE+8, FILE+9, FILE+10, FILE+12!, SETLN+2
DGPMBLN	FILE+3, FILE+12!, SETLN+1, SETLN+2
DGPMOB	ASK+3, SET+1, SET+2*, SET+3, FILE+1, FILE+6, Q!
DGPMOW	ASK+3, SET+1, SET+2*, FILE+6, Q!
>> DGPMP	EN+4, EN+5, EN+7, ASK+3
>> DGPMT	EN+2, EN+4, EN+5, SET+1, SET+2, FILE+9
DGPMX	EN+1*!, Q!
DUZ	FILE+4
I	Q!
X	EN+3, SET+1, SET+2, FILE+4, Q!
XMCHAN	FILE+4~*
>> XMDUZ	FILE+4*
XMSUB	FILE+3*, FILE+12!
XMTEXT	FILE+3*, FILE+12!
XMY	FILE+12!