Routine: DGRUGC

Package	Total	Call Graph
VA Fileman	7	^%DT ^DIC (FILE,YN)^DICN ^DIE ^DIK DT^DIQ ^DIR
Registration	5	IN^DGHELP DFN^DGPMUTL BUL^DGRUGBGJ SELECT^DGRUGC1 LO^DGUTL

Package

Total

Call Graph

VA Fileman

^%DT ^DIC (FILE,YN)^DICN ^DIE ^DIK DT^DIQ ^DIR

Registration

IN^DGHELP DFN^DGPMUTL BUL^DGRUGBGJ SELECT^DGRUGC1 LO^DGUTL

Package	Total	Caller Graph
Registration	9	DG CNH PAI CLOSE RECORD DG CNH PAI CREATE RECORD DG CNH PAI DELETE RECORD DG CNH PAI OPEN DG RUG CLOSE DG RUG CREATE DG RUG DELETE DG RUG OPEN DGRUG1

Package

Total

Caller Graph

Registration

DG CNH PAI CLOSE RECORD DG CNH PAI CREATE RECORD DG CNH PAI DELETE RECORD DG CNH PAI OPEN DG RUG CLOSE DG RUG CREATE DG RUG DELETE DG RUG OPEN
DGRUG1

External References

Name	Field # of Occurrence
^%DT	WDCK
IN^DGHELP	ASK+2
DFN^DGPMUTL	EN1+1
BUL^DGRUGBGJ	ASK+10
SELECT^DGRUGC1	ASK+8
LO^DGUTL	CLOSE
^DIC	EN1, OPEN, KIL, CLOSE
FILE^DICN	ASK+10
YN^DICN	OKO, OKD, OKC
^DIE	ASK+13, ASK+20, OKO+1, OKC+1
^DIK	REMOVE+1, DEL, OKD+1
DT^DIQ	ASK+15, WR
^DIR	ASK+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN1+1
Function Call: WRITE	Prompt: !!,"(A)dmission/transfer or (S)emi Annual Census: A//" Line Location: ASK+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+1
Function Call: WRITE	Prompt: X Line Location: ASK+1
Function Call: WRITE	Prompt: !!,?12,"CHOOSE FROM:",!?12,"A - Assessment purpose is admission transfer",!?12,"S - Assessment purpose is semi-annual census",! Line Location: ASK+2
Function Call: WRITE	Prompt: !,"NEITHER ADMISSION NOR TRANSFERS ARE TO INTERMEDIATE CARE OR NURSING HOME WARDS",!?8,"AFTER THE LAST CLOSEOUT" Line Location: ASK+7
Function Call: WRITE	Prompt: !!,*7,"There is already an admission/transfer assessment created for that",!,"admission/transfer date",! Line Location: ASK+8
Function Call: WRITE	Prompt: !,"Record Deleted." Line Location: ASK+14
Function Call: WRITE	Prompt: !,"ADMISSION/TRANSFER DATE: " Line Location: ASK+15
Function Call: WRITE	Prompt: !!,"ASSESSMENT RECORD CREATED",!! Line Location: ASK+20
Function Call: WRITE	Prompt: !,*7,"THERE ARE NO ADMISSIONS ON FILE FOR THIS PATIENT" Line Location: NOAD+0
Function Call: WRITE	Prompt: " ","Assessment date: " Line Location: WR+0
Function Call: WRITE	Prompt: !!,DA," ",$P(^DPT(+^DG(45.9,DA,0),0),U,1) Line Location: OKO+0
Function Call: WRITE	Prompt: !,"Ok to reopen" Line Location: OKO+0
Function Call: WRITE	Prompt: !!,"OPENED" Line Location: OKO+1
Function Call: WRITE	Prompt: !,"Ok to delete ",$P(^DPT(+^DG(45.9,DA,0),0),U,1)," PAF record " Line Location: OKD+0
Function Call: WRITE	Prompt: !,"DELETED" Line Location: OKD+1
Function Call: WRITE	Prompt: !,"Answer YES or NO",! Line Location: OKD+2
Function Call: WRITE	Prompt: !,"Ok to close" Line Location: OKC+0
Function Call: WRITE	Prompt: !!,"CLOSED" Line Location: OKC+1
Function Call: WRITE	Prompt: !?5,"ANSWER 'Y'ES OR 'N'O" Line Location: YN+0
Routine Call	DIE Line Location: ASK+13 ASK+20 OKO+1 OKC+1
Routine Call	DIC Line Location: EN1 OPEN KIL CLOSE
Routine Call	DIR Line Location: ASK+18

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

Name	Line Occurrences (* Changed, ! Killed)
^DG(45.9 - [#45.9]	ASK+8, ASK+10*, OKO, OKD
^DGPM - [#405]	EN1+1, ASK+5, ASK+6
^DGPM("APCA"	ASK+6
^DIC(42 - [#42]	WDCK+1
^DPT - [#2]	WR, OKO, OKD
^UTILITY($J	ASK+7, QUIT!, WDCK+1*

Label References

Name	Line Occurrences
ASK	ASK+2
CLOSE	OKC+2
CLOUT	WDCK+1
EN	ASK+7, ASK+8, ASK+20, NOAD
EN1	ASK+8
KIL	OKD+2
NOAD	EN1+1
OKC	OKC
OKD	OKD
OKO	OKO
Q	EN, EN1, EN1+1, ASK+1
QUIT	ASK+7, ASK+8, ASK+20, Q, REMOVE+1, DEL, OPEN, OKO+2, KIL, OKD+1 , OKD+3, CLOSE
REMOVE	ASK+14
WDCK	ASK+5, ASK+6
YN	OKO, OKD, OKC

Name	Field # of Occurrence
^(	WDCK+1*
^("R"	ASK+11, ASK+12
^(0	ASK+5, ASK+6, ASK+10*, WR, WDCK+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASK+2, QUIT!, OKO, OKO+1, OKD, OKD+1, OKD+2, OKC, OKC+1
>> %DT	WDCK*
%Y	QUIT!, OKO, OKD, OKC
DA	EN1+1, ASK+10, ASK+14, QUIT!, REMOVE~, REMOVE+1!, DEL!, WR, OPEN, OKO , KIL, OKD, CLOSE*, OKC+2!
DFN	EN1, ASK+5, ASK+6, ASK+8, ASK+10, QUIT!, Q!, DEL
DGA1	QUIT!
DGAD	ASK+5, ASK+6, QUIT!, WR, WR+1!, WDCK+1
DGAP	ASK+3, ASK+4, ASK+8, ASK+10, QUIT!, Q!
DGCNH	EN1+1, ASK, ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, ASK+7, ASK+8 , ASK+9, ASK+11, ASK+12, ASK+13, ASK+15, ASK+16, QUIT+2!
DGCO	QUIT!, WDCK+1, CLOUT
DGCR	ASK+5, ASK+9, QUIT!
DGCT	QUIT!
DGD	ASK+8, ASK+15, ASK+19, ASK+20, QUIT!
DGDE	EN1+1*, ASK+5, ASK+6, QUIT!
DGDT	ASK+5, ASK+6, QUIT!, WDCK+1, CLOUT
DGFCNH	QUIT+2!
DGFL	ASK+8, QUIT!
DGFT	QUIT!
DGFY	QUIT!
DGI	ASK+9*, ASK+10, ASK+11, ASK+12, QUIT!
DGII	QUIT!
DGNO	ASK+5, QUIT!, WDCK+1
DGPT	QUIT!
DGR	QUIT!, WR*, WR+1!
DGSEMI	ASK+4*, Q!, WDCK+1
DGSV	QUIT!, WDCK+1*
DGT	QUIT!
DGWD	ASK+5, ASK+6, QUIT!, WDCK+1
DGX	QUIT!
DIC	EN1!, EN1+1, ASK+10, QUIT!, Q!, OPEN, OKO+2!, KIL, OKD+1!, CLOSE! , OKC+2!
DIC("A"	EN1+1, OPEN, KIL, CLOSE
DIC("S"	EN1+1, OPEN!, KIL!, CLOSE!
DIC(0	EN1, EN1+1, ASK+10, OPEN, KIL, CLOSE
DICR	QUIT!, WR
DIE	ASK+13, QUIT!, OKO+1, OKC+1*, OKC+2!
DIE("NO^"	ASK+13*
DIK	QUIT!, REMOVE+1!, DEL!, OKD+1*
DIR	ASK+17~
DIR("A"	ASK+18*
DIR(0	ASK+18*
DIROUT	QUIT+1!
DIRUT	QUIT+1!
DIV	QUIT!
DR	ASK+13, ASK+20, QUIT!, OKO+1, OKC+1, OKC+2!
DT	OKC+1, WDCK*, CLOUT
DTIME	ASK+1
DTOUT	QUIT+1!
DUOUT	QUIT+1!
DUZ	OKC+1
I	ASK+6*, QUIT!
J	ASK+6*, QUIT!
K	QUIT!
U	ASK+5, ASK+6, ASK+10, ASK+11, ASK+12, WR, OKO, OKD, WDCK+1
X	ASK, ASK+1, ASK+4, ASK+10, ASK+17~, QUIT!, OPEN, KIL, WDCK
Y	EN1, EN1+1, ASK+10, ASK+14, ASK+15, ASK+17~, QUIT!, WR, OPEN, KIL , CLOSE, WDCK
Y(0	ASK+19
Z	ASK+1*, QUIT!

Customize PDF page

Package: Registration

Routine: DGRUGC

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: