Routine: DGPMBSAR

Information

DGPMBSAR ;ALB/LM/MJK - RECALC ENTRY POINTS; [ 09/13/2001 3:55 PM ]

Source file <DGPMBSAR.m>

Package	Total	Call Graph
VA Fileman	5	^%DT C^%DTC YN^DICN ^DIE ^DIK
Registration	3	(,UP43)^DGPMBSR (DAT,ERR,PAR,PCHK,RCR)^DGPMGL DONE^DGPMGLG
Kernel	1	ISQED^%ZTLOAD

Package	Total	Caller Graph
Registration	4	DG G&L RECALC DG IHS A&D RECALC DGPMBSAB DGPMGL1
IHS Changes To ADT	1	BDGCENI

Name	Comments	DBIA/ICR reference
A
PR	;W !,"DO YOU WANT TO RECALCULATE PATIENT DAYS" S %=2 D YN^DICN
VAR	; RC=ReCalc from date ; RD=Report Date ; ; PD=Previous Date ; REM=Recalc patient days ;
DAT	; -- get params and chk data
WDCHK	; -- chk first ward
DEFS	; -- defaults for recalc
DATQ
Q
GO
QUE	; Recalculation Queue
RPD	;W !!,"Recalculation of patient days could take up to 30 minutes longer per date..."
CLEAN	; -- clean up corrections file
ASK
RCCK	; Check for ReCalc already running
GO1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?4,*7,"Can't Recalculate data prior to ",Y,"!" Line Location: ASK+2
Function Call: WRITE	Prompt: !!,"Request Queued!" Line Location: QUE+4
Function Call: WRITE	Prompt: !,"ReCalc Already Scheduled for ",Y,! Line Location: RCCK+5
Routine Call	DIE Line Location: GO1 CLEAN+4

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ASK+2, RCCK+5, RCCK+6
^DG(41.9 - [#41.9]	WDCHK+2
^DGS(43.5 - [#43.5]	CLEAN+2, CLEAN+4
^DIC(42 - [#42]	WDCHK+1

Name	Field # of Occurrence
%	WDCHK+1, WDCHK+4!, RCCK+6
%DT	ASK!, DEFS+1!
%DT("A"	ASK*
%DT(0	ASK*
>> BS	DEFS+4*
>> C	DAT+4*
DA	GO1!, CLEAN+2, CLEAN+3!, CLEAN+4*, CLEAN+5!
DE	CLEAN+5!
DG	CLEAN+5!
DGCDT	CLEAN+1, CLEAN+2, CLEAN+4, CLEAN+5!
>> DGI	CLEAN+2, CLEAN+4
>> DGPM("G"	ASK+1, DAT+4
>> DGPM("GLS"	RCCK+2, RCCK+3, RCCK+5, RCCK+6
>> DGPM(0	DAT+2, CLEAN+1
DIE	GO1!, CLEAN+4, CLEAN+5!
DIK	CLEAN+2*, CLEAN+3!
DQ	CLEAN+5!
DR	GO1!, CLEAN+4, CLEAN+5!
DT	ASK, CLEAN+1, DEFS+1*, DEFS+2
>> E	A, DAT+1, DAT+2, DAT+4*
>> EGL	CLEAN+4, WDCHK+2, WDCHK+3
>> GL	DEFS+4*
>> I	DAT+4*
>> J	WDCHK+2*
>> PD	DEFS+3*
>> RC	ASK+1, ASK+2, WDCHK+2, WDCHK+3
RCCK	A+1, Q!, RCCK+1!, RCCK+7*
>> RD	DEFS+2*
>> REM	DEFS+4*
>> TSR	DEFS+4*
U	DAT+4, CLEAN+1
WD	WDCHK+1*, WDCHK+2, WDCHK+4!
>> X	ASK+1, ASK+2, CLEAN+1, WDCHK+2, WDCHK+3, DEFS+1, DEFS+2, DEFS+3
>> X1	CLEAN+1, WDCHK+2, WDCHK+3, DEFS+2, DEFS+3*
>> X2	CLEAN+1, WDCHK+2, WDCHK+3, DEFS+2, DEFS+3*
>> Y	ASK, ASK+1, ASK+2, RCCK+5, RCCK+6*, DEFS+1
>> ZTCPU	RCCK+3*
>> ZTSK	RCCK+3*
>> ZTSK(0	RCCK+5