Routine: BMXADOS

Package	Total	Call Graph
VA Fileman	5	^DIC YN^DICN ^DIE ^DIK ^DIR
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
M Transfer	1	BMXADOS1

Entry Points

Name	Comments	DBIA/ICR reference
OLD1
FLIST(OUT,FILE,MODE)	;EP - GIVEN A FILE RETURN THE FILEDS IN AN ARRAY MODE=0: NUMERIC ORDER, MODE=1: ALPHA ORDER ; ONLY NON MULTIPLES AND WORD PROCESSING FIELDS ARE LISTED
PASS1	; PASS 1. BUILD THE ARRAY OF ALL SUBFILES
FDEL(SIEN,FIELD)	; DELETE AN EXISTING ENTRY FROM THE 'FIELD' MULTIPLE. RETURN '1' IF THE RECORD WAS DELETED
PAUSE(I)	; SCROLL CHECK
NEW
LKUP	; AUTOMATICALLY ADD A LOOKUP FIELD TO THE SCHEMA
OLD
ASTG(STG)	; CONVERT STRING FROM FILE NUMBERS TO FILE NAMES
UDIC
SCHEMA
FDEF(FILE,FIELD)	;EP - GIVEN A FILEMAN FILE AND FIELD, RETURN THE DATA DEFINITION IN ADO FORMAT
UPDATE	; UPDATE THE SCHEMA FILE
IFLG
FNAME
SC(OUT,FILE,MODE)	;EP - SUB CRAWLER. GIVEN A FILE NUMBER RETURN ALL OF ITS DESCENDANT FILES IN AN ARRAY
DDA	; ADO FORMAT
FIN
ID	; AUTOMATICALLY ADD AN IDENTIFIER REFERENCE
SC3	; 3RD PASS. BUILD OUTPUT ARAY
SC2	; SECOND PASS. BUILD THE INTERMEDIATE ARRAY
F1
F2
FILE(SIEN)	; GET THE FILE OR SUBFILE NUMBER
DTYPE
FLD1
NEW2
FLD(FIEN,SIEN)	; GET THE FIELD
NEW1

External References

Name	Field # of Occurrence
^DIC	UDIC+2, IFLG+14, LKUP+2, ID+4, NEW
YN^DICN	FLD1+9, FLD1+14, IFLG+2, FDEL+4, OLD1+2, OLD1+4, NEW1+8
^DIE	SCHEMA+2, IFLG+18, LKUP+7, ID+9
^DIK	FDEL+7, FDEL+9
^DIR	FLD+9, FLD1+5, NEW1+9
^XBFMK	FIN

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Select a field from this "_$S($D(^DD(FIEN,0,"UP")):"sub-",1:"")_"file: " Line Location: FLD+5
Function Call: WRITE	Prompt: I,?3,FARR(I) Line Location: FLD+6
Function Call: WRITE	Prompt: " ??" Line Location: FLD1+3
Function Call: WRITE	Prompt: !,"FileMan requires a non-null value for this field" Line Location: FLD1+8
Function Call: WRITE	Prompt: !,"Is null allowed" Line Location: FLD1+9
Function Call: WRITE	Prompt: !,"This field is a pointer value (IEN)." Line Location: FLD1+12
Function Call: WRITE	Prompt: !,"Want to automatically insert the lookup value in the schema" Line Location: FLD1+13
Function Call: WRITE	Prompt: ! Line Location: FLD1+14
Function Call: WRITE	Prompt: !,"Want to display identifiers with this field" Line Location: IFLG+1
Function Call: READ	Timeout: $G(DTIME,60) Variable: Y Line Location: IFLG+4
Function Call: WRITE	Prompt: !,"Entry Point to generate Identifiers: " Line Location: IFLG+4
Function Call: WRITE	Prompt: !,IMSG Line Location: IFLG+6
Function Call: WRITE	Prompt: " ??" Line Location: IFLG+7
Function Call: WRITE	Prompt: !,IMSG Line Location: IFLG+10
Function Call: WRITE	Prompt: !!! Line Location: IFLG+10
Function Call: WRITE	Prompt: !,"The LOOKUP field '"_X_"' has been added to the schema",! Line Location: LKUP+3
Function Call: WRITE	Prompt: !,"The identifier field '"_X_"' has been added to the schema",! Line Location: ID+5
Function Call: WRITE	Prompt: !,"This field already is attached to the schema. Want to delete it" Line Location: FDEL+3
Function Call: WRITE	Prompt: " Done!",! Line Location: FDEL+10
Function Call: WRITE	Prompt: !,$S(NSTG["/":"Sub-",1:""),"File #",FILE," (",NSTG,") is linked to this schema." Line Location: OLD1+0
Function Call: WRITE	Prompt: !,"Want to keep it" Line Location: OLD1+1
Function Call: WRITE	Prompt: !!,"If you change or delete this file number,",!,"all the information in this schema will be deleted." Line Location: OLD1+3
Function Call: WRITE	Prompt: !,"Are you sure you want to do this" Line Location: OLD1+4
Function Call: WRITE	Prompt: !! Line Location: OLD1+5
Function Call: WRITE	Prompt: !,"This schema definition has been deleted. You may redefine it now" Line Location: OLD1+9
Function Call: WRITE	Prompt: !!,"The ",FNAME," file contains the following sub-file" Line Location: NEW1+2
Function Call: WRITE	Prompt: "s" Line Location: NEW1+2
Function Call: WRITE	Prompt: ! Line Location: NEW1+3
Function Call: WRITE	Prompt: I,?3,FARR(I) Line Location: NEW1+4
Function Call: WRITE	Prompt: !!,"Is the schema linked to a sub-file in this list" Line Location: NEW1+7
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Function Call: WRITE	Prompt: "Select a number from the list (1-",(I-1),") or press <ENTER> to continue: " Line Location: PAUSE+4
Function Call: READ	Timeout: $G(DTIME,60) Variable: % Line Location: PAUSE+5
Function Call: WRITE	Prompt: " ??" Line Location: PAUSE+8
Function Call: WRITE	Prompt: $C(13),?79,$C(13) Line Location: PAUSE+9
Routine Call	DIE Line Location: SCHEMA+2 IFLG+18 LKUP+7 ID+9
Routine Call	DIC Line Location: UDIC+2 IFLG+14 LKUP+2 ID+4 NEW
Routine Call	DIR Line Location: FLD+9 FLD1+5 NEW1+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BMXADO - [#90093.99]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BMXADO - [#90093.99]	SCHEMA+2, IFLG+13*, FDEL+2, FDEL+8, FILE+2
^DD(	FLD+5, FLD1+7, IFLG+15, FDEF+2, FDEF+3, OLD+1, OLD+2, SC+1, SC2+2, SC2+4 , SC2+9, PASS1+2, PASS1+4, ASTG+4, F1, F1+1, F1+3

Label References

Name	Line Occurrences
$$ASTG	SC2+5
$$FDEF	FLD1+3
$$FDEL	FLD1+2
$$FILE	SCHEMA+1
$$PAUSE	FLD+6, NEW1+4
FIN	UDIC+2, SCHEMA+1
FLD	SCHEMA+3
FLD1	FLD+8
FLIST	FLD+3
ID	IFLG+19
IFLG	IFLG+10
NEW2	NEW1+6
OLD1	OLD1+5
PASS1	SC+4, PASS1+6
SC	NEW1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	UPDATE+1~, FLD+2~, FLD1, FLD1+1, FLD1+7, FLD1+8, FLD1+9, FLD1+10, FLD1+14, IFLG+2 , FDEL+4, FDEL+5, FDEF+1~, DTYPE, DTYPE+1, DDA+3, DDA+5, DDA+6, DDA+9, DDA+10 , DDA+14, DDA+16, DDA+27, FILE+1~, OLD1+1, OLD1+2, OLD1+4, OLD1+5, NEW1+8, PAUSE+1~ , PAUSE+5, PAUSE+6, PAUSE+7, PAUSE+8, SC+2~, FLIST+2~, F1+2, F1+3, F1+4, F1+7 , F2+3*, F2+4
%Y	FLD+2~, FLD1+9
ARR	SC+2~, FLIST+2~
ARR(	SC2+1, SC2+2!, SC2+12!, PASS1+3, F1+8, F2+1, F2+3, F2+5!
ARR(0	SC+5
DA	SCHEMA+2, FLD+1~, FLD+9!, IFLG+16, LKUP+5, ID+1~, ID+7, FDEL+1~, FDEL+6, FDEL+9 , NEW1+9!
DA(1	IFLG+11, ID+2, FDEL+6*
DIC	UPDATE+1~, UDIC+1, SCHEMA+2, FLD+1~, IFLG+11, IFLG+16, LKUP+5, ID+7, FILE+1~, NEW*
DIC("A"	UDIC*
DIC("P"	IFLG+12*
DIC(0	UDIC+1, IFLG+12, NEW*
DIE	SCHEMA+2, FLD+1~, IFLG+16, LKUP+5, ID+1~, ID+7
DIK	FDEL+1~, FDEL+6*
DIR	FLD+9!, FLD1+5!, NEW1+9!
DIR("A"	FLD+9, FLD1+5, NEW1+9*
DIR("B"	FLD1+5*
DIR(0	FLD+9, FLD1+5, NEW1+9*
DNAME	FDEF+1~, FNAME*, DDA+1, DDA+8, DDA+13, DDA+19, DDA+25, DDA+30, DDA+31, DDA+33
DR	SCHEMA+2, FLD+1~, IFLG+17, LKUP+6, ID+1~, ID+8
DTIME	IFLG+4, PAUSE+5
DTYPE	FLD+2~, FLD1+4, LKUP+4, ID+6, FDEF+1~, DTYPE, DTYPE+1*, DTYPE+2, DDA+1, DDA+8 , DDA+13, DDA+19, DDA+25, DDA+30, DDA+31, DDA+32
FARR	FLD+2~, FLD+3, FILE+1~, NEW1
FARR(	FLD+6, FLD1, NEW1+4, NEW2, PAUSE+7
FARR(9999	FLD+4
FARR(999999	NEW1+1
FDEF	FLD+1~
FIELD	FDEL~, FDEL+2, FDEL+8, FDEF~, FDEF+2, FDEF+3
FIEN	UPDATE+1~, SCHEMA+1, SCHEMA+2, SCHEMA+3, FLD~, FLD+3, FLD+5, FLD1+3, FLD1+7, IFLG+15 , FDEL+1~, FDEL+2, FDEL+6, FDEL+8, FDEL+9, FILE+1~, OLD, OLD1+2, SC+2~, SC+3* , PASS1+2, PASS1+5~*
FILE	FDEF~, FDEF+2, FDEF+3, FILE+1~, FILE+2*, OLD1, OLD1+2, SC~, SC+1, SC+3 , FLIST~, F1, F1+1
FLD	FLIST+2~, FLIST+3, F1, F1+1, F1+6, F1+8
FLDIEN	FLD+1~, FLD1+1*, FLD1+2, FLD1+3, FLD1+7, FLD1+9, IFLG+12, IFLG+15, LKUP+1, DDA+4 , DDA+23
FLDNAME	FLD+1~, FLD1+1*, FLD1+5
FLDTYPE	FLD+1~
FNAME	UPDATE+1~, FDEF+1~, FILE+1~, NEW+1, NEW1+2, SC+2~, SC2+9, SC2+11, SC3+5*, SC3+8
FNO	FILE+1~, FILE+2, OLD, OLD+1, OLD+2, NEW+1, NEW1, NEW1+1, NEW1+8, SC+2~ , SC2+1, SC2+2, SC2+3, SC2+9, SC2+11, SC2+12, SC3+7, SC3+8, PASS1+1~, PASS1+2* , PASS1+3, PASS1+4, PASS1+5, ASTG+1~, ASTG+3*, ASTG+4
GBL	FILE+1~, OLD1+6, OLD1+7, OLD1+8
HDR	FLD+2~, FLD1+6, LKUP+4, ID+6*
I	FLD+2~, FLD+6, FDEF+1~, DTYPE+1, DDA+27, FILE+1~, NEW1+4, PAUSE~, PAUSE+3, PAUSE+4 , PAUSE+7
IFLAG	FLD+2~, IFLG, IFLG+8, IFLG+19, DDA+4, DDA+23*
IFLAG(0	IFLG+6, IFLG+7, IFLG+8*, IFLG+10, ID+3
IMSG	FLD+2~, IFLG+3*, IFLG+6, IFLG+10!
>> IPFLAG(0	IFLG+10!
LEN	FLD+2~, FLD1+4, LKUP+4, ID+6, FDEF+1~, DDA+1, DDA+2, DDA+5, DDA+6, DDA+8 , DDA+11, DDA+13, DDA+17, DDA+19, DDA+21, DDA+22, DDA+25, DDA+28*
LEV	ASTG+1~, ASTG+2*, ASTG+3
LEVEL	SC+2~, SC2+8, SC2+11, SC3+6, SC3+8
MODE	SC~, SC2+5, FLIST~, F1+7
NAME	ASTG+1~, ASTG+4, ASTG+5, ASTG+6, ASTG+7, FLIST+2~, F1+5*, F1+7, F1+8
NODE	SC+2~, SC3+1, SC3+2, SC3+3
NSTG	FILE+1~, OLD+1, OLD+2, OLD1
OUT	SC~, FLIST~
OUT(	SC3+8, F2+4
PAUSE	FLD+2~, FLD+6, FLD+7, FLD+8, NEW1+4, NEW1+5, NEW1+6
PCE	ASTG+1~, ASTG+3*, ASTG+7
PFLAG	FLD+2~, FLD1+11, FLD1+14, IFLG+20, DDA+30
READ	FLD+2~, IFLG+15*
REF	ID+1~, ID+3*
SARR	SC+2~
SIEN	UPDATE+1~, SCHEMA*, SCHEMA+1, SCHEMA+2, SCHEMA+3, FLD~, FLD1+2, IFLG+11, IFLG+13, ID+2 , FDEL~, FDEL+2, FDEL+6, FDEL+8, FILE~, FILE+2, OLD1+6
SNAME	UPDATE+1~, SCHEMA*
SS	FLIST+2~, F1+6, F1+7, F1+8, F2, F2+1, F2+3, F2+5
STG	FLD+2~, FDEF+1~, FDEF+3, DTYPE, FNAME, DDA+3, DDA+8, DDA+9, DDA+14, DDA+15 , DDA+20, DDA+26, SC+2~, SC2+3, SC2+4, SC2+5, SC2+6, SC2+7, SC2+8, SC2+10 , ASTG~, ASTG+2, ASTG+3, ASTG+6, ASTG+7, ASTG+9, F1+1, F1+2, F1+5
STOP	UPDATE+1~, SCHEMA+3, FLD+4, FLD+7, FLD+10*
SUB	FILE+1~
TOT	FLD+2~, FLD+4, FLD+9, FILE+1~, NEW1+1, NEW1+2, NEW1+9, SC+2~, SC+3, SC3+4 , SC3+8, FLIST+2~, FLIST+3, F2+2, F2+4
TRANS	FLD+1~, FLD1+6, FLD1+10
U	SCHEMA, SCHEMA+2, FLD+7, FLD1+7, IFLG+15, DTYPE, FNAME, DDA+26, FILE+2, OLD1+8 , NEW+1, NEW1+5, PAUSE+6, SC2+2, SC2+11, SC3+5, SC3+6, SC3+7, F1+2, F1+3 , F1+5, F1+8, F2+4
UP	SC+2~, SC2+3, SC2+4
WP	FLIST+2~, F1+4*, F1+8
X	UPDATE+1~, FLD+1~, FLD1+3, FLD1+4, IFLG+12, LKUP+1, LKUP+3, ID+1~, ID+2, ID+5 , FDEF+1~, DTYPE, DTYPE+1, DDA+15, DDA+16, DDA+26, DDA+27, FILE+1~, SC+2~, SC2+10 , SC2+11, SC3+3*, SC3+5, SC3+6, SC3+7
Y	UPDATE+1~, UDIC+2, SCHEMA, FLD+1~, FLD+8, FLD+10, FLD1, FLD1+6, IFLG+4, IFLG+5 , IFLG+6, IFLG+7, IFLG+8, IFLG+14, IFLG+16, LKUP+2, LKUP+5, ID+1~, ID+4, ID+7 , FDEF+1~, DTYPE+1, DDA+10, DDA+11, DDA+16, DDA+17, DDA+20, DDA+21, DDA+26, DDA+27 , DDA+28, FILE+1~, NEW, NEW+1, NEW1+6*, NEW1+10, NEW2
Z	FDEF+1~, DDA+27*

Customize PDF page

Package: M Transfer

Routine: BMXADOS

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: