Routine: BVCHK

Information

BVCHK ; IHS/ITSC/JDH - check field values in files 3,6,16 & 200

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$HTFM^XLFDT $$VERSION^XPDUTL
VA Fileman	3	(,UPDATE)^DIE EN^DIK ^DIR
IHS V Files 200 Conversion	2	PR^BVCONV ^BVCONV1
IHS VA Support Files	1	EN^AVAPCHK
IHS VA Utilities	1	$$VAL^XBDIQ1

Entry Points

Name	Comments	DBIA/ICR reference
DEV()	; get ouput device
HDR	; report header
SUBHDR	; print subhdrs
PTR(SUB,STR)
AKPROV	; set AK.PROVIDER xref
CONV()	; conversion already done message
HDR0	; report header
EN1
BVC6	; file 6 to file 200 mapping
BVC3	; file 3 to file 200 mapping
AVAPCHK	; run ^AVAPCHK
INIT
BLD1	; keep mismatch fields with mismatch names
CNT	; CONVERSION FILDS AND RECORD COUNTS
EN	;EP non setting, checks file status only;
BVC16	; file 16 to file 200 mapping
PRECMP	;EP precompile check
STUFF()	; put file 6 data in correspoding empty file 200 field
BLD(BVCERNM,BVCFROM,BVCTO)	; build error global
RTN()	; press return to continue
RPT	; print out report
COMPILE	; check files

External References

Name	Field # of Occurrence
^%ZIS	DEV+2
^%ZISC	RPT+14
^%ZTLOAD	DEV+5
EN^AVAPCHK	AVAPCHK+1
PR^BVCONV	PRECMP+9
^BVCONV1	EN1+7, PRECMP+5
^DIE	STUFF+5, STUFF+6
UPDATE^DIE	AKPROV+9
EN^DIK	AKPROV+6
^DIR	RTN+2
$$VAL^XBDIQ1	COMPILE+35, COMPILE+36
$$HTFM^XLFDT	INIT+3
$$VERSION^XPDUTL	EN1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine can not be called from the top",!! Line Location: BVCHK+3
Function Call: WRITE	Prompt: !,"The conversion is in progress, Please do not run this routine." Line Location: EN+1
Function Call: WRITE	Prompt: !!,"You must have fileman programmer access to run this routine.",!! Line Location: EN+2
Function Call: WRITE	Prompt: !!,"The PCC Conversion may now be run." Line Location: EN1+6
Function Call: WRITE	Prompt: !,"D EN^BVCONV when you are ready",!! Line Location: EN1+7
Function Call: WRITE	Prompt: !!,"The conversion appears to already be complete." Line Location: CONV+2
Function Call: WRITE	Prompt: !,"PRE-CONVERSION STATUS REPORT",! Line Location: COMPILE+1
Function Call: WRITE	Prompt: !!,BVCERMS Line Location: COMPILE+14
Function Call: WRITE	Prompt: !?7,"Stuffing the field in file 200 with the value of "_BVCFREX Line Location: STUFF+2
Function Call: WRITE	Prompt: !?9,"The value has "_$S(BVCSFTD:"",1:"not ")_"been stuffed" Line Location: STUFF+8
Function Call: WRITE	Prompt: !!,"You can not queue a job to the home device or a slave printer..Try again",!!,*7 Line Location: DEV+4
Function Call: WRITE	Prompt: !,"The pre-PCC Conversion is task "_ZTSK Line Location: DEV+5
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"Field comparisons between file "_BVCFLFR_" and 200 - Categorized Listing",!! Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"Category: "_BVCERMS,!! Line Location: SUBHDR+1
Function Call: WRITE	Prompt: "200 DA",?8,"6 DA",?14,"FIELD NAME" Line Location: SUBHDR+2
Function Call: WRITE	Prompt: ?30,"FILE 6 VALUE",?50,"FILE 200 VALUE" Line Location: SUBHDR+3
Function Call: WRITE	Prompt: ! Line Location: SUBHDR+4
Function Call: WRITE	Prompt: @IOF Line Location: HDR0+2
Function Call: WRITE	Prompt: !!,"Field comparisons between file "_BVCFLFR_" and 200 - Sequential Detail Listing",!! Line Location: HDR0+3
Function Call: WRITE	Prompt: !!,"You must have the variable DUZ defined" Line Location: PRECMP+1
Function Call: WRITE	Prompt: !,"But running this routine may identify places where correctIve action is needed." Line Location: PRECMP+2
Function Call: WRITE	Prompt: !!,"The pre-conversion routine (EN^BVCHK) may clear up many of the exceptions you may get.",!,"Please run the pre-conversion routine before this call." Line Location: PRECMP+3
Function Call: WRITE	Prompt: !!,"The conversion has already begun, so this compile is now prohibited." Line Location: PRECMP+4
Function Call: WRITE	Prompt: !,"The conversion has completed already." Line Location: PRECMP+5
Function Call: WRITE	Prompt: !,"FILE #",?15,"ROOT",?30,"RECORD COUNT" Line Location: CNT+2
Function Call: WRITE	Prompt: !!,"Total number of records to convert "_$FN(BVCCT,",") Line Location: CNT+7
Routine Call	DIE Line Location: AKPROV+9
Routine Call	DIE Line Location: STUFF+5 STUFF+6
Routine Call	DIR Line Location: RTN+2
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BVCHK(1	EN1+6*, INIT+2!, PRECMP+3
^BVCONV(0	PRECMP+4
^BVCONV(1	EN+1, PRECMP+10!
^BVCONV1(1	PRECMP+6!
^DD(	COMPILE+29, PTR+2
^DD(200	COMPILE+30
^DD(9000001	CONV+2
^DIC - [#1]	CNT+3
^DIC(16 - [#16]	COMPILE+10
^DIC(19.1 - [#19.1]	AKPROV+2
^VA(200 - [#200]	COMPILE+16, COMPILE+39, COMPILE+40, STUFF+7, AKPROV+3, AKPROV+10
^XTMP("BVCHK"	EN1+8!, INIT+2!, INIT+3, BLD+3, BLD+4, BLD1+1*

Label References

Name	Line Occurrences
$$CONV	EN1+6, PRECMP+2
$$DEV	EN+3, DEV+3
$$PTR	CNT+5
$$RTN	HDR+1, HDR0+1
$$STUFF	COMPILE+47
AKPROV	COMPILE+40
AVAPCHK	EN1+3
BLD	COMPILE+15, COMPILE+17, COMPILE+39, COMPILE+44, COMPILE+50, STUFF+9, AKPROV+11, AKPROV+13
BLD1	COMPILE+49
COMPILE	EN1+4
HDR	RPT+1, RPT+11
HDR0	COMPILE+21
INIT	EN1+2
RPT	EN1+5
SUBHDR	RPT+9, RPT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1~*
BVC16	EN1~
BVC3	EN1~
>> BVC51	AKPROV+3*, AKPROV+4, AKPROV+5, AKPROV+7
BVC6	EN1~
BVCCT	CNT+1~, CNT+5, CNT+7
BVCDA	EN1~, COMPILE+3*
BVCDAFH	EN1~, COMPILE+43*
BVCDAFR	EN1~, COMPILE+8, COMPILE+9, COMPILE+10, COMPILE+14, COMPILE+15, COMPILE+17, COMPILE+34, COMPILE+35, COMPILE+43 , STUFF+5, BLD+2, BLD+3, BLD+4, BLD+6, BLD1+1, RPT+7*, RPT+13
BVCDAH	EN1~, BLD+2, BLD+6, RPT+3
BVCDATA	EN1~, COMPILE+22*, COMPILE+23, COMPILE+24, COMPILE+25, COMPILE+26
>> BVCDATO	COMPILE+10, COMPILE+12, COMPILE+14, COMPILE+15, COMPILE+16, COMPILE+17, COMPILE+36, COMPILE+40, COMPILE+43, STUFF+6 , STUFF+7, BLD+3, BLD+4, BLD1+1, RPT+2, RPT+8, RPT+13, AKPROV+3, AKPROV+5, AKPROV+8 , AKPROV+10
BVCERH	EN1~, RPT+3, RPT+9
BVCERMS	EN1~, COMPILE+13, COMPILE+14, COMPILE+17, COMPILE+39, COMPILE+44, COMPILE+50, STUFF+9, BLD+4, BLD1+1 , RPT+7, SUBHDR+1, AKPROV+11, AKPROV+13*
BVCERNM	EN1~, BLD~, BLD+3, BLD+4, BLD+5, RPT+2, RPT+8, RPT+9, RPT+12, SUBHDR+3
BVCFDA	AKPROV+8~
BVCFDA(	AKPROV+8*
BVCFDFR	EN1~, COMPILE+23*, COMPILE+29, COMPILE+35, COMPILE+37, COMPILE+44, COMPILE+48, STUFF+5
BVCFDH	EN1~, RPT+3*
BVCFDNM	EN1~, COMPILE+11, COMPILE+25, COMPILE+40, COMPILE+45, COMPILE+47, STUFF+3, BLD+4, BLD1+1, RPT+7* , RPT+10, RPT+12, RPT+13
BVCFDTO	EN1~, COMPILE+11, COMPILE+24, COMPILE+30, COMPILE+36, STUFF+6, RPT+2*
BVCFLFR	EN1~, COMPILE+4, COMPILE+5, COMPILE+6, COMPILE+10, COMPILE+12, COMPILE+14, COMPILE+29, COMPILE+43, BLD+3 , BLD+4, BLD1+1, RPT+2, HDR+3, HDR0+3
BVCFLG	CONV+1~, CONV+2, CONV+3, AKPROV+1~*
BVCFLH	EN1~, RPT+3*
BVCFREX	EN1~, COMPILE+35*, COMPILE+39, COMPILE+42, COMPILE+44, COMPILE+46, COMPILE+50, STUFF+2, STUFF+6, STUFF+9 , BLD1+1, AKPROV+11, AKPROV+13
BVCFRIN	EN1+1~, COMPILE+34*, STUFF+7
BVCFROM	EN1+1~, COMPILE+29, COMPILE+31, BLD~, BLD+4, RPT+7, RPT+13
BVCGL	CNT+1~, CNT+3*, CNT+4, CNT+6
BVCGLB	EN1+1~, RPT+4, RPT+5, RPT+6, RPT+8
BVCGLBH	EN1+1~, RPT+4*, RPT+5
BVCGLFR	EN1+1~, COMPILE+6*, COMPILE+9, COMPILE+34, COMPILE+35
BVCHK	EN1+1~, EN1+6, INIT+4, BLD+5
BVCNDFR	EN1+1~, COMPILE+31*, COMPILE+34
BVCNDTO	EN1+1~, COMPILE+32*, STUFF+7
BVCNMMT	EN1+1~, COMPILE+44, COMPILE+47, COMPILE+49, COMPILE+51, INIT+4*
BVCNODE	EN1+1~, COMPILE+19, COMPILE+20, COMPILE+22
BVCOK	EN1+1~, COMPILE+15*
BVCORD	EN1~, COMPILE+11, COMPILE+26, BLD+3, BLD+4, BLD1+1
BVCPCFR	EN1+1~, COMPILE+31*, COMPILE+34
BVCPCTO	EN1+1~, COMPILE+32*, STUFF+7
BVCPRCP	PRECMP+7~, PRECMP+8*
>> BVCPRKY	AKPROV+2*, AKPROV+3, AKPROV+8
BVCPRPT	EN1+1~, COMPILE+16*, COMPILE+17
BVCREC	CNT+1~, CNT+5*, CNT+6
BVCROOT	EN1+1~, COMPILE+2*, COMPILE+4, COMPILE+20, COMPILE+22
BVCRUN	PRECMP+7~, PRECMP+8*
BVCSFTD	EN1+1~, STUFF+7*, STUFF+8, STUFF+9, STUFF+10
BVCSUB	CNT+1~, CNT+3*, CNT+5, CNT+6
BVCTO	EN1+1~, COMPILE+30, COMPILE+32, BLD~, BLD+4, RPT+7, RPT+13
BVCTOEX	EN1+1~, COMPILE+36*, COMPILE+38, COMPILE+39, COMPILE+42, COMPILE+44, COMPILE+46, COMPILE+47, COMPILE+50, BLD1+1 , AKPROV+7, AKPROV+11, AKPROV+13
BVCTONM	EN1+1~, COMPILE+38*, COMPILE+40, AKPROV+10
BVCZERO	CNT+1~, CNT+4*, CNT+5
DA	STUFF+1~, STUFF+4~, STUFF+5, STUFF+6, AKPROV+5~*
DA(1	AKPROV+5*, AKPROV+6
DIE	STUFF+1~, STUFF+4~, STUFF+5, STUFF+6
DIK	AKPROV+5~, AKPROV+6*
DIK(1	AKPROV+6*
DIR	RTN+1~
DIR(0	RTN+2*
>> DIRUT	RTN+2
DR	STUFF+1~, STUFF+4~, STUFF+5, STUFF+6
DT	INIT+3
DUZ	PRECMP+1
DUZ(0	EN+2
I	COMPILE+39~, INIT, INIT+1
IO	COMPILE+1, DEV+4, RPT+2
IO("Q"	DEV+3
IO(0	DEV+4
IOF	HDR+2, HDR0+2
ION	RTN+2
IOSL	COMPILE+21, RPT+11
IOST	RTN+2
J	COMPILE+39~, INIT+1
POP	EN1+5, COMPILE+2, COMPILE+9, COMPILE+20, COMPILE+21, INIT+5, DEV+1~, DEV+3, DEV+5, DEV+6 , RPT+2, RPT+5, RPT+11, RTN+1~, RTN+2, RTN+3, HDR+1, HDR0+1*
RTN	PTR+1~, PTR+3, PTR+4
S	PTR+1~, PTR+2, PTR+3
STR	PTR~, PTR+2
SUB	PTR~, PTR+2
U	CONV+2, COMPILE+16, COMPILE+23, COMPILE+24, COMPILE+25, COMPILE+26, COMPILE+29, COMPILE+30, COMPILE+34, STUFF+7 , INIT+3, BLD+3, BLD+4, BLD1+1, RPT+7
X	STUFF+1~, INIT+1, BLD+3, DEV+3, RPT+6, RPT+7, RPT+12, RPT+13, AKPROV+1~, CNT+1~ , CNT+4, CNT+5*, CNT+6
>> ZTDESC	DEV+5*
>> ZTDTH	DEV+5*
>> ZTRTN	DEV+5*
>> ZTSK	DEV+5

Marked Items

Name	Field # of Occurrence
$T(@I+J	INIT+1
$T(^BVCONV1	EN1+7, PRECMP+5

Customize PDF page

Package: IHS V Files 200 Conversion

Routine: BVCHK

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items