Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BMXADOS

Package: M Transfer

Routine: BMXADOS


Information

BMXADOS ; IHS/CIHA/GIS - UPDATE THE BMX ADO SCHEMA FILE ;

Source Information

Source file <BMXADOS.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 1

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All