Routine: DGREGE

Information

DGREGE ;ALB/JDS - EDIT REGISTRATIONS/DISPOSITIONS ; 04/30/2004

Package	Total	Call Graph
Registration	3	SEG^DGA4004 (BEFORE,EVT,VALIDATE)^DGDIS $$SCE^DGSDU
Scheduling	3	EN^SDCO ($$ASK,INT)^SDCO6 $$GETDISP^SDVSIT2
VA Fileman	3	^%DT ^DIC ^DIE
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	3	DG DISPOSITION EDIT DGDIS DGREG

Name	Comments	DBIA/ICR reference
A
EL
ELQ
HELP
CO(DFN,SDDT,SDISHDL)	; -- ask check out questions
COQ
Q
NUM	; choose by number of find last registration
W1
DT
F11

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: A+0
Function Call: WRITE	Prompt: !!,"No registrations to print from.",!! Line Location: A+1
Function Call: READ	Prompt: "Registration date/time: " Formatting: !! Timeout: DTIME Variable: X Line Location: F11+0
Function Call: WRITE	Prompt: !! Line Location: F11+0
Function Call: WRITE	Prompt: $J(J,2),". ",$$FMTE^XLFDT($E(L,1,12),"5Z") Line Location: HELP+0
Function Call: WRITE	Prompt: ?$X\40+1*40 Line Location: HELP+0
Function Call: WRITE	Prompt: ! Condition for execution: $X>75 Line Location: HELP+0
Function Call: WRITE	Prompt: !,"Enter the date and time, Entry #, or 'L' for the last registration,",!," to select the registration you wish to edit" Line Location: HELP+1
Function Call: WRITE	Prompt: " ",$$FMTE^XLFDT(9999999-DFN1,"5Z"),!! Line Location: NUM+5
Function Call: WRITE	Prompt: Y Line Location: DT+0
Function Call: WRITE	Prompt: !!,"Updating eligibility status for this registration...",! Line Location: EL+0
Function Call: WRITE	Prompt: !!,"Disposition on AMIS Segment ",DGSEG," - ",$S($D(^DG(391.1,+DGSEG,0)):$P(^(0),"^",1),1:"SEGMENT NAME UNKNOWN") Line Location: EL+5
Function Call: WRITE	Prompt: !!,"Patient falls into a means test category...AMIS 401-420 segment will be",!,"determined at time the report is generated..." Line Location: EL+6
Function Call: WRITE	Prompt: ! Line Location: ELQ+0
Routine Call	DIE Line Location: W1+2 EL+4 EL+5
Routine Call	DIC Line Location: A

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DT
^DG(391.1 - [#391.1]	EL+5
^DG(43 - [#43]	CO+6
^DIC(37 - [#37]	CO+6
^DIC(8 - [#8]	EL+2
^DPT - [#2]	A+1, F11, HELP, NUM+2, NUM+3, W1, W1+4, EL+1, EL+2, CO+3
^TMP("SDEVT HANDLE"	W1+1*
^TMP("SDEVT"	CO+4

Name	Field # of Occurrence
^(	HELP, EL+1, EL+2
^(0	EL+1, EL+2, EL+5

Name	Field # of Occurrence
%	Q!
>> %DT	F11*
%H	Q!
%X	Q!
%Y	Q!
C	Q!
D0	Q!
D1	Q!
DA	A, A+1, F11, HELP, NUM+2, NUM+3, W1, W1+2, Q!, EL+1
DA(1	W1, EL+1
DE	W1+2!, EL+5!
DFN	A*, W1, W1+1, W1+2, W1+4, W1+6, W1+7, W1+8, Q!, EL+1 , EL+2, CO~, CO+2, CO+3
DFN1	F11, NUM+1, NUM+2, NUM+3, NUM+4, NUM+5, W1, W1+1, W1+4, W1+6 , W1+7, W1+8, Q!, EL+1, CO+1~
DGL	W1+3~, W1+4*, W1+5, W1+6
DGSEG	EL+5, ELQ!
DGXXX	EL+1*, ELQ!
DGXXX1	EL+1*, EL+4, ELQ!
DGXXX2	EL+1*, EL+2, ELQ!
DGXXX3	EL+2*, ELQ!
DGXXXD	W1+2, EL+4, EL+5, ELQ!
DIC	A*!
DIC(0	A*
DIE	W1+2*!, Q!, EL+5!
DIE("NO^"	EL+1*, ELQ!
DP	W1, Q!, EL+1
DQ	W1+2!, EL+5!
DR	W1, W1+2!, EL+1, EL+2, EL+3, EL+4, EL+5!, ELQ!
DTIME	F11
I	HELP, NUM+3, Q!
J	HELP*, Q!
L	HELP, W1, W1+1, Q!
SDCOQUIT	CO+1~, CO+4, CO+5
SDDT	CO~, CO+2, CO+3
SDIS	CO+1~, CO+3*, CO+4, CO+6
SDISHDL	DGREGE+2~, W1+1*, W1+6, W1+7, CO~, CO+4, CO+7
SDOE	CO+1~, CO+2*, CO+4, CO+7
SDPMTDF	CO+1~, CO+6*, CO+7
U	W1, W1+1, W1+5, W1+6
X	F11*, NUM+2, NUM+3, Q!
Y	A, F11, Q!, DT