Routine: DGPREPST

Package	Total	Call Graph
Kernel	3	$$FMTE^XLFDT ($$NEWCP,BMES,MES)^XPDUTL RESCH^XUTMOPT
VA FileMan	3	^DIC WAIT^DICD FILE^DICN

Entry Points

Name	Comments	DBIA/ICR reference
START	;
OPT1	;
OPT2	;
OPT2Q
CNVRT	; Conversion procedure for converting pre-reg fields in the PATIENT File, #2 to ; the PRE-REGISTRATION AUDIT File, #41.41. This procedure uses the 'AZZ' ; cross reference in the PATIENT File, #2.

Name	Field # of Occurrence
^DIC	OPT2+3, OPT2+14, OPT2+20
WAIT^DICD	CNVRT+8
FILE^DICN	CNVRT+20
$$FMTE^XLFDT	OPT1+13
$$NEWCP^XPDUTL	START+3, START+6
BMES^XPDUTL	START+1, START+4, START+7, START+9, OPT1+13, OPT2+12, OPT2+22, OPT2+25, OPT2+28
MES^XPDUTL	OPT1+7, OPT1+18, OPT1+24, OPT1+32, OPT2+9
RESCH^XUTMOPT	OPT1+26

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Starting conversion of Preregistration entries..." Line Location: CNVRT+7
Function Call: WRITE	Prompt: "." Line Location: CNVRT+11
Function Call: WRITE	Prompt: !,"PROBLEM ADDING DFN: "_DGPDFN_" TO FILE 41.41" Line Location: CNVRT+21
Function Call: WRITE	Prompt: !!,"Conversion complete" Line Location: CNVRT+24
Function Call: WRITE	Prompt: !,DGPCNT_" Patient records scanned" Line Location: CNVRT+25
Function Call: WRITE	Prompt: !,DGPCNT1_" Records added to File #41.41" Line Location: CNVRT+26
Routine Call	DIC Line Location: OPT2+3 OPT2+14 OPT2+20

FileNo	Call Tags
^XMB(3.8 - [#3.8]	Classic Fileman Calls
^DGS(41.41 - [#41.41]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(3.8	OPT2+18
^DGS(41.41 - [#41.41]	CNVRT+15
^DIC(19 - [#19]	OPT1+3, OPT1+27
^DIC(19.2 - [#19.2]	OPT1+9, OPT1+12, OPT1+28
^DPT - [#2]	CNVRT+9, CNVRT+12, CNVRT+14

Name	Line Occurrences
OPT2Q	OPT2+21, OPT2+24, OPT2+27

Name	Field # of Occurrence
^(0	OPT1+12

Name	Field # of Occurrence
>> DA(1	OPT2+17*
DD	CNVRT+16!
DGPCNT	CNVRT+4~, CNVRT+6, CNVRT+10, CNVRT+11, CNVRT+25
DGPCNT1	CNVRT+4~, CNVRT+6, CNVRT+22, CNVRT+26
DGPD	CNVRT+4~, CNVRT+13!, CNVRT+14*
DGPD1	CNVRT+4~, CNVRT+13!, CNVRT+14*, CNVRT+15
DGPDFN	CNVRT+4~, CNVRT+9*, CNVRT+12, CNVRT+14, CNVRT+15, CNVRT+18, CNVRT+21
DGPDT	CNVRT+4~
DGPERR	OPT1+1~
>> DGPF	OPT1+9, OPT1+10, OPT1+26
DGPIEN	OPT1+1~, OPT1+3, OPT1+4, OPT1+9, OPT1+27, OPT1+28, OPT2+1~, OPT2+4*, OPT2+5, OPT2+17
DGPIEN1	OPT1+1~, OPT1+9, OPT1+10, OPT1+12, OPT1+28, OPT1+29
DGPMBR	OPT2+1~
DIC	OPT2+3, OPT2+14, OPT2+17, OPT2+20!, CNVRT+17
DIC("DR"	CNVRT+19*
DIC("P"	OPT2+18*
DIC(0	OPT2+3, OPT2+14, OPT2+17, CNVRT+17
DIFROM	OPT1+1~
DO	CNVRT+16!
MSG	OPT1+1~, OPT1+7!, OPT1+18!, OPT1+24!, OPT1+32!, OPT2+1~, OPT2+9!
MSG(1	OPT1+5, OPT1+16, OPT1+21, OPT1+30, OPT2+6*
MSG(2	OPT1+6, OPT1+17, OPT1+22, OPT1+31, OPT2+7*
MSG(3	OPT1+23, OPT2+8
U	OPT1+12, OPT1+26, OPT2+16, OPT2+21, OPT2+24, CNVRT+14
>> X	OPT2+3, OPT2+14, OPT2+16, CNVRT+18
>> XPDQUES("POS001"	OPT1+15, OPT1+26
>> XPDQUES("POS002"	OPT1+20, OPT1+26
>> XPDQUES("POS003"	OPT2+11, OPT2+16
>> Y	OPT1+12*, OPT1+13, OPT2+4, OPT2+21, OPT2+24, CNVRT+21