Routine: DGPMGL1

Package	Total	Call Graph
Registration	6	^DGABUL RCCK^DGPMBSAR (,UP43)^DGPMBSR Q^DGPMGL ^DGPMGL2 (CLEAN,DONE)^DGPMGLG
IHS Changes To ADT	5	FORMAT^BDGAD0 ^BDGAD1 ^BDGADD ^BDGADS (MSG,PAUSE)^BDGF
VA Fileman	4	^%DT (C,NOW)^%DTC YN^DICN ^DIE
Kernel	2	^%ZIS ^%ZTLOAD

Package

Total

Call Graph

Registration

^DGABUL RCCK^DGPMBSAR (,UP43)^DGPMBSR Q^DGPMGL ^DGPMGL2 (CLEAN,DONE)^DGPMGLG

IHS Changes To ADT

FORMAT^BDGAD0 ^BDGAD1 ^BDGADD ^BDGADS (MSG,PAUSE)^BDGF

VA Fileman

^%DT (C,NOW)^%DTC YN^DICN ^DIE

Kernel

^%ZIS ^%ZTLOAD

Package	Total	Caller Graph
Registration	1	DGPMGL

Package

Total

Caller Graph

Registration

DGPMGL

Entry Points

External References

Name	Field # of Occurrence
^%DT	WHEN+2
C^%DTC	A+2, A+4, WHEN+3, WHEN+6, RC+3
NOW^%DTC	GO+1
^%ZIS	IHS+8
^%ZTLOAD	QUE+5
FORMAT^BDGAD0	IHS+4
^BDGAD1	GO+8
^BDGADD	GO+10
^BDGADS	GO+10
MSG^BDGF	IHS+5
PAUSE^BDGF	IHS+3
^DGABUL	WHEN+21
RCCK^DGPMBSAR	RC1
^DGPMBSR	GO+8
UP43^DGPMBSR	GO+8
Q^DGPMGL	ADC+2, IHS+2, IHS+3, IHS+4
^DGPMGL2	ADC, ADC+1
CLEAN^DGPMGLG	GO
DONE^DGPMGLG	Q
YN^DICN	RC1+7
^DIE	GO+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"LAST BED STATUS REPORT TOTALS EXIST FOR ",Y Line Location: A+0
Function Call: WRITE	Prompt: !!,"LAST TREATING SPECIALTY REPORT TOTALS EXIST FOR ",Y Line Location: A+1
Function Call: WRITE	Prompt: !!,"PRINT REPORT",$S(GL&BS:"S",1:"")," FOR WHICH DATE: ",DD,"// " Line Location: WHEN+1
Function Call: WRITE	Prompt: !!,"EARLIEST DATE ALLOWED IS ",Y,".",*7 Line Location: WHEN+4
Function Call: WRITE	Prompt: !!,"CHOOSE A DATE ON OR BEFORE ",Y,".",*7 Line Location: WHEN+5
Function Call: WRITE	Prompt: !!,"NO TOTALS EXIST FOR PREVIOUS DAY!!",*7 Line Location: WHEN+9
Function Call: WRITE	Prompt: !!,"NO TOTALS EXIST FOR PREVIOUS DAY!!" Line Location: WHEN+11
Function Call: WRITE	Prompt: !!," * BED STATUS REPORT WILL NOT BE CALCULATED...TODAY'S ACTIVITY IS INCOMPLETE! ",7 Line Location: WHEN+14
Function Call: WRITE	Prompt: !!," * THE TSR WILL NOT PRINT...TODAY'S ACTIVITY IS INCOMPLETE! ",7 Line Location: WHEN+18
Function Call: WRITE	Prompt: !!,"EARLIEST DATE FOR TREATING SPECIALTY REPORT IS ",Y,".",*7,!!,"TREATING SPECIALTY REPORT WILL NOT BE PRINTED FOR THE DATE SELECTED!" Line Location: WHEN+20
Function Call: WRITE	Prompt: !!,"Note: This output should be printed at a column width of 132.",! Line Location: ADC+3
Function Call: WRITE	Prompt: !!,"CENSUS FILES LOCKED; SOMEONE ELSE RUNNING RECALC; TRY AGAIN LATER!!" Line Location: IHS+3
Function Call: WRITE	Prompt: ! Line Location: IHS+4
Function Call: WRITE	Prompt: !!,"G&L corrections exist from ",Y,"." Line Location: RC+2
Function Call: WRITE	Prompt: !,"SINCE G&L CORRECTIONS ARE RECENT (WITHIN LAST WEEK) RECALCULATION WILL OCCUR",!,"AUTOMATICALLY AS THE "_$S('TSR:"BED STATUS REPORT",'BS:"TREATING SPECIALTY REPORT",1:"BSR AND TSR")_" IS COMPUTED!" Line Location: RC+4
Function Call: WRITE	Prompt: "/TSR" Condition for execution: TSR Line Location: RC1+5
Function Call: WRITE	Prompt: " Totals" Line Location: RC1+5
Function Call: WRITE	Prompt: !!,"Recalculate Totals" Line Location: RC1+7
Function Call: WRITE	Prompt: !?4,"Answer YES to recalculate totals to insure accurancy or NO to simply print",!?4,"report with existing CENSUS file totals." Line Location: RC1+11
Routine Call	DIE Line Location: GO+13
Routine Call	%ZIS Line Location: IHS+8

FileNo	Call Tags
^DG(43 - [#43]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BDGCWD - [#9009016.2]	IHS+3, WHEN+10, RC+8
^DD("DD"	A, A+4, WHEN+4, WHEN+5, WHEN+20, GO+1, RC+2
^DG(43 - [#43]	WHEN+21
^DGS(43.5 - [#43.5]	RC+1
^DIC(42 - [#42]	RC+8
^UTILITY($J	A+6!

Name	Line Occurrences
IHS	WHEN+16
Q	WHEN+2, IHS+8
QUE	IHS+8
RC	ADC+2, IHS+2
RC1	RC1+11
RCQ	RC+4, RC+8, RC1+7, RC1+10
WHEN	WHEN+2, WHEN+4, WHEN+5, WHEN+10, WHEN+19, WHEN+20

Name	Field # of Occurrence
^("NOT"	WHEN+21
^(0	RC+8

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ADC+2, IHS+2, GO+1, RC+4, RC+8, RC1+1, RC1+6, RC1+7, RC1+10, RC1+11
>> %DT	WHEN+2*
>> %ZIS	IHS+8*
BDGFRM	IHS+4~, GO+10
BDGQUIT	IHS+4~
>> BDGREP	GO+8, RC1+6, RC1+7
>> BS	A, WHEN+1, WHEN+14*, WHEN+19, WHEN+20, ADC, ADC+1, ADC+2, IHS+1, IHS+2 , RC+4, QUE
>> CD	RC+1*, RC+2, RC+4, RC1+10
>> DA	GO+13*
>> DD	A+7*, WHEN+1, WHEN+2
>> DGNOW	GO+1*
>> DGPM("G"	WHEN+4, RC+1
>> DGPM("GLS"	RC1+1
>> DIE	GO+13*
>> DR	GO+13*
DT	A+2, A+5, WHEN+5, WHEN+14, WHEN+18, RC+3
DTIME	WHEN+1
>> GL	A, WHEN+1, WHEN+19, WHEN+20, IHS+3, QUE
>> I	QUE+1*
IO	IHS+8, IHS+9
IO("Q"	IHS+8!
IOM	QUE
ION	QUE
IOSL	QUE
IOST	QUE
>> LD	A, A+4, A+5, WHEN+6
LW	RC+3*, RC+4, RCQ!
>> PD	WHEN+3*
>> POP	IHS+8
>> RC	ADC+1, IHS+1, GO+8, RC+1, RC+4, RC+8, RC1+2, RC1+10*
>> RCCK	ADC+2, RC1+1
>> RCR	RC1+2
>> RD	WHEN+3*, WHEN+14, WHEN+18, WHEN+20, WHEN+21, RC+2, RC+4, RC+8, RC1+10
>> REM	A*
>> TSR	WHEN+18*, WHEN+19, WHEN+20, ADC+1, ADC+2, RC+4
>> TSRI	WHEN+20
>> WD	WHEN+10, RC+8*
>> X	A+2, A+4, WHEN+1, WHEN+2, WHEN+3, WHEN+10, RC+3
>> X1	A+2, A+4, WHEN+3, WHEN+6, RC+3*
>> X2	A+2, A+4, WHEN+3, WHEN+6, RC+3*
>> Y	A, A+4, A+7, WHEN+2, WHEN+3, WHEN+4, WHEN+5, WHEN+6, WHEN+20, GO+1 , RC+2*
>> YD	A+2*, A+4, A+5, WHEN+21
>> ZTDESC	QUE*
>> ZTIO	QUE*
>> ZTRTN	QUE*
>> ZTSAVE(	QUE+1*
>> ZTSAVE("BDGFRM"	QUE+3*

Customize PDF page

Package: Registration

Routine: DGPMGL1

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
A
IHS	; skipped VA code from above and added IHS code;IHS/ANMC/LJF 3/30/2001
WHEN	; Asking when to print report/s
RC1
RCQ
Q
VAR	; REM=Recalc Patient Days ; LD=Last Date G&L was run ; YD=YesterDay ; ; RD=Report Date ; PD=Previous Date ; CD= Correction Date ; ; RC=ReCalc from date ;
QUE
ADC
RC	; G&L corrections
GO