Routine: DGPREP2

Information

DGPREP2 ;ALB/SCK - Pre-Registration Cont. ; 12/31/96

Source file <DGPREP2.m>

Package	Total	Call Graph
Registration	5	(,EN)^DGRPD EN^VALM ($$SETFLD,FULL,PAUSE)^VALM1 CLEAN^VALM10 EN^VALM2
Kernel	2	$$FMTE^XLFDT DISP^XQORM1
VA Fileman	1	^DIC

Package	Total	Caller Graph
Registration	2	DGPRE PRE-REGISTER PATIENT INQ DGPREP1

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for the DGPRE HIST protocol
HDR	; -- header code
EXPND	; -- expand on the selected call log entry ; Variables ; DGPIEN - IEN of selected patient ; DGPCM - Comments from the Call Log, displayed 1 line at a time ; DGPN1-3 - Loacal Var's for $O
INQ	; Entry point for patient Inquiry
INIT	; -- init variables and list array ; Variables ; DGPDT - Formatted date from Call Log, #41.43 ; DGPDD - Status entries from the DD for #41.43 ; DGPNR - No. of entries, index for LM IDX global ; DGPN1 - Local Var for $O ; DGPDATA - 0 node from Call Log file, #41.43
EXIT	; -- exit code
PTINQ	; Patient inquiry protocol
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !,DGPCM Line Location: EXPND+18
Routine Call	VALM Line Location: EN+2
Routine Call	DIC Line Location: PTINQ+11

Name	Line Occurrences (* Changed, ! Killed)
^DD(41.43	INIT+15
^DGS(41.43 - [#41.43]	EN+1, INIT+12, INIT+13, INIT+18, EXPND+16, EXPND+17
^DPT - [#2]	HDR+1
^TMP("DGPPR2"	INIT+11!, INIT+24, INIT+25, INIT+26*, EXIT+1!, EXPND+13
^TMP("DGPRERG"	PTINQ+8
^TMP($J	INIT+10!, INIT+13*, INIT+17, INIT+18, INIT+25
^VA(200 - [#200]	INIT+22

Name	Field # of Occurrence
DFN	PTINQ+1~, PTINQ+8*, PTINQ+11
DGPCM	EXPND+6~, EXPND+17*, EXPND+18
DGPDATA	INIT+8~, INIT+18*, INIT+19, INIT+22, INIT+23, EXIT+2!
DGPDD	INIT+8~, INIT+15*, INIT+16
DGPDT	INIT+8~, INIT+19*, INIT+21
DGPIEN	EXPND+6~, EXPND+13*, EXPND+16, EXPND+17
DGPN1	INIT+8~, INIT+12, INIT+13, INIT+16, INIT+17, INIT+18, INIT+25, EXPND+6~, EXPND+12, PTINQ+1~ , PTINQ+7*
DGPN2	EXPND+6~, EXPND+12, EXPND+13, PTINQ+1~, PTINQ+7, PTINQ+8
DGPN3	EXPND+6~, EXPND+15, EXPND+16, EXPND+17
DGPNDX	INIT+8~
DGPNR	INIT+8~, INIT+14, INIT+20, INIT+24, INIT+25, INIT+26, INIT+27, INIT+28
DGPRFLG	INQ+2~, INQ+3, PTINQ+1~, PTINQ+14
>> DGPT(	INIT+16*, INIT+23
DIC	PTINQ+11*!
DIC(0	PTINQ+11*
>> PTIFN	EN+1, HDR+1, INIT+12
U	HDR+1, INIT+13, INIT+15, INIT+19, INIT+22, INIT+23
VALMAT	EXPND+6~
>> VALMBCK	EXPND+10, PTINQ+6
>> VALMCNT	INIT+28*
>> VALMHDR(1	HDR+1*
VALMI	EXPND+6~, EXPND+9, PTINQ+4
VALMY	EXPND+6~, EXPND+10, PTINQ+6
VALMY(	EXPND+12, PTINQ+7
>> X	INIT+20, INIT+21, INIT+22, INIT+23, INIT+24, HELP+1, PTINQ+11
>> XQORNOD(0	EXPND+9, PTINQ+4
>> Y	PTINQ+12