Routine: ATXSTX

Package	Total	Call Graph
VA Fileman	4	DD^%DT ^DIC ^DIE ^DIR
IHS VA Utilities	3	$$VALI^XBDIQ1 ^XBKVAR EN^XBVK
Taxonomy	1	(BULL,KILL,TAX)^ATXSTX2

Entry Points

Name	Comments	DBIA/ICR reference
PGMSAVE	; SAVE GENERATED PROGRAM
CODE	;; If you modify this code change all F ATXI=n1:n2:n3 as appropriate
TAXONOMY	; GET TAXONOMY
GENRTN	; GENERATE ROUTINE TO INSTALL TAXONOMY
TXIENCHK	; CHECK TAXONOMY FOR IENS OR VALUES
PGMTMP2	;
INSTALL	; This is to test the code for the post init routine
POSTINIT	; UPDATE POST INIT ENTRY IN PACKAGE FILE
TXCHECK	; CHECK TAXONOMY
3	;; K:'$G(ATXPGMC) ^TMP("ATX",$J)
PGMNAME	; GET PROGRAM NAME
1	;; ;
INIT	;
2	;;START ;
5	;; F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X="" S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
4	;; S ATXPGMC=$G(ATXPGMC)+1
7	;; I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
EOJ	;
9	;; D KILL^ATXSTX2
8	;; I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
PGMBEG	; BUILD BEGINNING OF PROGRAM
PACKAGE	; GET PACKAGE
RECURSE	; CALLED FROM PGMTMP TO BUILD OTHER ROUTINES IF TOO LARGE
6	;; D OTHER
DRIVER	; BUILD MAIN DRIVER ROUTINE
PGMTMP	; BUILD TMP DATA FOR $T *(CALLED RECURSIVELY)*
START	;
BUILD	;
BULSTORE	; STORE BULLETIN
10	;; Q
SETTMP	; SET ^TMP GLOBAL
TXSTORE	; STORE TAXONOMY IN ^TMP
MAIN	;

External References

Name	Field # of Occurrence
DD^%DT	BUILD+3
BULL^ATXSTX2	INSTALL+4
KILL^ATXSTX2	INSTALL+6
TAX^ATXSTX2	INSTALL+5
^DIC	PACKAGE+3, TAXONOMY+3
^DIE	POSTINIT+10
^DIR	INIT+12, PGMNAME+3, POSTINIT+5
$$VALI^XBDIQ1	TXSTORE+4, TXSTORE+15, TXSTORE+41, BULSTORE+3, BULSTORE+11, POSTINIT+1
^XBKVAR	INIT+1
EN^XBVK	EOJ+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine will build a post-init routine for the specified package." Line Location: INIT+4
Function Call: WRITE	Prompt: !,"The post-init routine will add the selected entry to the TAXONOMY file" Line Location: INIT+5
Function Call: WRITE	Prompt: !,"on the target machine.",!! Line Location: INIT+6
Function Call: WRITE	Prompt: ! Line Location: INIT+11
Function Call: WRITE	Prompt: !!,"The name of the primary routine to be generated will be the package prefix" Line Location: INIT+15
Function Call: WRITE	Prompt: !,"followed by TX. For each taxonomy being sent there will be one routine with" Line Location: INIT+16
Function Call: WRITE	Prompt: !,"the same name followed by a letter A-Z. For large taxonomies there will be" Line Location: INIT+17
Function Call: WRITE	Prompt: !,"additional routines with the same letter A-Z followed by a letter A-Z.",! Line Location: INIT+18
Function Call: WRITE	Prompt: !,ATXPGM_"A-Z already exist. Cannot continue.",!! Line Location: PGMNAME+9
Function Call: WRITE	Prompt: !!,"Generating new routine ^"_ATXPGM Line Location: PGMNAME+11
Function Call: WRITE	Prompt: !,"Updating existing routine ^"_ATXDRVR,! Line Location: PGMNAME+13
Function Call: WRITE	Prompt: !,"Generating new routine ^"_ATXDRVR,! Line Location: PGMNAME+14
Function Call: WRITE	Prompt: !,"Checking taxonomy " Line Location: TXCHECK+1
Function Call: WRITE	Prompt: !!,"Cannot send a taxonomy of IENs.",! Line Location: TXCHECK+4
Function Call: WRITE	Prompt: !!,"Duplicate code entry for code="_X,! Line Location: TXCHECK+9
Function Call: WRITE	Prompt: !!,"No codes in taxonomy",! Line Location: TXCHECK+19
Function Call: WRITE	Prompt: !!,"B xref is not correct. B count=",ATXBC," Entry count=",ATX21C,! Line Location: TXCHECK+20
Function Call: WRITE	Prompt: !!,"AA xref is not correct. AA count=",ATXAAC," Entry count=",ATX21C,! Line Location: TXCHECK+21
Function Call: WRITE	Prompt: !,"Storing taxonomy " Line Location: TXSTORE+1
Function Call: WRITE	Prompt: "." Line Location: TXSTORE+13
Function Call: WRITE	Prompt: ":" Line Location: TXSTORE+23
Function Call: WRITE	Prompt: ":" Line Location: TXSTORE+30
Function Call: WRITE	Prompt: ":" Line Location: TXSTORE+37
Function Call: WRITE	Prompt: !,"Storing bulletin " Line Location: BULSTORE+1
Function Call: WRITE	Prompt: "." Line Location: BULSTORE+10
Function Call: WRITE	Prompt: !,"Generating routines",!! Line Location: BUILD+1
Function Call: WRITE	Prompt: "Routine ^",ATXPGM," has been filed.",! Line Location: PGMSAVE+6
Function Call: WRITE	Prompt: "Saving of routine ^",ATXPGM," failed.",! Line Location: PGMSAVE+7
Function Call: WRITE	Prompt: !!,"Package file already has post-init routine=^",ATXX Line Location: POSTINIT+4
Function Call: WRITE	Prompt: !,"Package post-init routine has been set to ^",ATXDRVR,! Line Location: POSTINIT+11
Routine Call	DIE Line Location: POSTINIT+10
Routine Call	DIC Line Location: PACKAGE+3 TAXONOMY+3
Routine Call	DIR Line Location: INIT+12 PGMNAME+3 POSTINIT+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls
^ATXAX - [#9002226]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("SAVE"	PGMSAVE+2
^%ZOSF("TEST"	PGMNAME+8, PGMNAME+12, PGMSAVE+5, DRIVER+10
^ATXAX - [#9002226]	TXCHECK+6, TXCHECK+7, TXCHECK+16, TXCHECK+18, TXIENCHK+1, TXIENCHK+5, TXIENCHK+6, TXSTORE+21, TXSTORE+22, TXSTORE+28 , TXSTORE+29, TXSTORE+35, TXSTORE+36
^DIC - [#1]	TXIENCHK+3
^DIC(9.4 - [#9.4]	PACKAGE+7, TXSTORE+36, BUILD+4
^TMP("ATX"	GENRTN+1!, TXCHECK+9, TXCHECK+10, TXSTORE+6, TXSTORE+9, TXSTORE+10, TXSTORE+17, TXSTORE+25, TXSTORE+32, TXSTORE+39 , BULSTORE+5, BULSTORE+13, BULSTORE+15, BULSTORE+17, BULSTORE+20, BULSTORE+22, BULSTORE+25, BULSTORE+27, BUILD+10, EOJ+1! , INSTALL+1!, INSTALL+4, INSTALL+5
^TMP("ATXPGM"	BUILD+5!, PGMBEG+1!, PGMSAVE+8!, SETTMP+2*, DRIVER+2!, EOJ+1!, INSTALL+3
^TMP("DIERR"	TXSTORE+2!
^TMP($J	GENRTN+1!
^XMB(3.6 - [#3.6]	BULSTORE+8, BULSTORE+14, BULSTORE+15, BULSTORE+17, BULSTORE+19, BULSTORE+20, BULSTORE+22, BULSTORE+24, BULSTORE+25, BULSTORE+27

Label References

Name	Line Occurrences
BUILD	GENRTN+10
BULSTORE	TXSTORE+42
DRIVER	GENRTN+11
EOJ	START+2
GENRTN	MAIN+3
INIT	MAIN+1
MAIN	START+1
PACKAGE	INIT+7
PGMBEG	BUILD+8, RECURSE+4
PGMNAME	GENRTN+4
PGMSAVE	BUILD+18, RECURSE+6, DRIVER+16
PGMTMP	BUILD+12, RECURSE+5
PGMTMP2	PGMTMP+4
RECURSE	PGMTMP2+3
SETTMP	BUILD+13, BUILD+14, BUILD+16, BUILD+17, PGMBEG+3, PGMBEG+4, PGMBEG+6, PGMBEG+7, PGMBEG+8, PGMBEG+10 , PGMBEG+11, PGMBEG+12, PGMTMP+2, PGMTMP+3, PGMTMP2+1, PGMTMP2+2, DRIVER+4, DRIVER+5, DRIVER+6, DRIVER+7 , DRIVER+8, DRIVER+9, DRIVER+13, DRIVER+15
TAXONOMY	GENRTN+2
TXCHECK	GENRTN+6
TXIENCHK	TXCHECK+3
TXSTORE	GENRTN+9

Naked Globals

Name	Field # of Occurrence
^(	BULSTORE+17, BULSTORE+22, BULSTORE+27
^("VERSION"	BUILD+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ATX21C	TXCHECK+6*, TXCHECK+19, TXCHECK+20, TXCHECK+21
>> ATXAAC	TXCHECK+14, TXCHECK+16, TXCHECK+21
>> ATXASP	INIT+14*, PGMBEG+3, DRIVER+4
>> ATXBC	TXCHECK+18*, TXCHECK+20
>> ATXBULL	TXSTORE+41*, TXSTORE+42, BULSTORE+3, BULSTORE+5, BULSTORE+8, BULSTORE+9, BULSTORE+14, BULSTORE+15, BULSTORE+17, BULSTORE+19 , BULSTORE+20, BULSTORE+22, BULSTORE+24, BULSTORE+25, BULSTORE+27
>> ATXCODE	TXSTORE+8, TXSTORE+9, TXSTORE+10, TXSTORE+12, TXSTORE+21, TXSTORE+22, TXSTORE+24, TXSTORE+28, TXSTORE+29, TXSTORE+31 , TXSTORE+35*, TXSTORE+36, TXSTORE+38
>> ATXDRVR	PGMNAME+7*, PGMNAME+12, PGMNAME+13, PGMNAME+14, DRIVER+1, POSTINIT+2, POSTINIT+9, POSTINIT+11
>> ATXF	TXSTORE+3, TXSTORE+4, TXSTORE+6, TXSTORE+14, TXSTORE+15, TXSTORE+17, BULSTORE+2*, BULSTORE+3, BULSTORE+5
>> ATXFGBL	TXIENCHK+3*, TXIENCHK+8
>> ATXFILE	TXIENCHK+1*, TXIENCHK+2, TXIENCHK+3
>> ATXI	PGMNAME+8, PGMNAME+9, PGMBEG+10, PGMBEG+11, DRIVER+10, INSTALL+3*
>> ATXIENS	TXSTORE+11, TXSTORE+15, BULSTORE+9, BULSTORE+11, BULSTORE+13, BULSTORE+15, BULSTORE+17
ATXL	PGMBEG+2, SETTMP+1, SETTMP+2, RECURSE+1~, DRIVER+3*
ATXLNTH	PGMBEG+2, PGMTMP2+3, SETTMP+3, RECURSE+1~, DRIVER+3*
>> ATXNIEN	TXIENCHK+4, TXIENCHK+5, TXIENCHK+7, TXIENCHK+8*, TXIENCHK+10
ATXPGM	PGMNAME+7, PGMNAME+8, PGMNAME+9, PGMNAME+10, PGMNAME+11, PGMBEG+1, PGMBEG+3, PGMSAVE+1, PGMSAVE+4, PGMSAVE+6 , PGMSAVE+7, PGMSAVE+8, SETTMP+2, RECURSE+1~, RECURSE+3, RECURSE+7, DRIVER+1, DRIVER+2, DRIVER+4, DRIVER+10
>> ATXPGMC	BUILD+6, PGMBEG+5, PGMBEG+11, PGMBEG+12, RECURSE+2, RECURSE+3
>> ATXPGMR	PGMNAME+10*, RECURSE+3
ATXPGMS	BUILD+7!
ATXPGMS(	BUILD+16, RECURSE+7*
>> ATXPGMZ	PGMNAME+5*, PGMNAME+7
>> ATXPK	PACKAGE+6*, PACKAGE+7, BUILD+4, POSTINIT+1, POSTINIT+9
>> ATXPRFX	PACKAGE+7*
>> ATXQ	MAIN+2, MAIN+3, GENRTN+3, GENRTN+5, GENRTN+7, INIT+2, INIT+8, INIT+9, INIT+19, PACKAGE+1 , PACKAGE+8, PGMNAME+1, PGMNAME+15, TAXONOMY+1, TAXONOMY+8, TXCHECK+2, TXCHECK+4, TXCHECK+9, TXCHECK+12, TXCHECK+13 , TXCHECK+22, TXIENCHK+10, POSTINIT+2, POSTINIT+3, POSTINIT+7
>> ATXSBSC	TXSTORE+12, TXSTORE+17, TXSTORE+24, TXSTORE+25, TXSTORE+31, TXSTORE+32, TXSTORE+38, TXSTORE+39
ATXTMPQ	PGMTMP+1, PGMTMP+4, PGMTMP2+3, RECURSE+1~
>> ATXTSF	MAIN+4, GENRTN+8, INIT+3
>> ATXTX	TAXONOMY+6*, TXCHECK+6, TXCHECK+7, TXCHECK+16, TXCHECK+18, TXIENCHK+1, TXIENCHK+5, TXIENCHK+6, TXSTORE+4, TXSTORE+6 , TXSTORE+11, TXSTORE+12, TXSTORE+21, TXSTORE+22, TXSTORE+24, TXSTORE+28, TXSTORE+29, TXSTORE+31, TXSTORE+35, TXSTORE+36 , TXSTORE+38, TXSTORE+41
>> ATXTXNM	TAXONOMY+7*, PGMBEG+6, PGMBEG+8
>> ATXVER	BUILD+4*, PGMBEG+4, DRIVER+5
>> ATXX	TXCHECK+15, TXCHECK+16, TXCHECK+17, TXCHECK+18, TXSTORE+4, TXSTORE+5, TXSTORE+6, TXSTORE+15, TXSTORE+16, TXSTORE+17 , BULSTORE+3, BULSTORE+4, BULSTORE+5, BULSTORE+11, BULSTORE+12, BULSTORE+13, BUILD+15, BUILD+16, POSTINIT+1, POSTINIT+2 , POSTINIT+4
>> ATXY	TXCHECK+5, TXCHECK+6, TXCHECK+7, TXCHECK+10, TXIENCHK+4, TXIENCHK+5, TXIENCHK+6, TXSTORE+10, TXSTORE+11, TXSTORE+22 , TXSTORE+25, TXSTORE+29, TXSTORE+32, TXSTORE+36, TXSTORE+39, BULSTORE+7, BULSTORE+8, BULSTORE+9, BULSTORE+14, BULSTORE+15 , BULSTORE+17, BULSTORE+21, BULSTORE+22, BULSTORE+26, BULSTORE+27
>> ATXZ	BULSTORE+16, BULSTORE+17
>> ATXZR	BUILD+9, BUILD+10, BUILD+11, PGMTMP+4, PGMTMP2+1, PGMTMP2+2
D	PACKAGE+4!, TAXONOMY+4!
D0	PACKAGE+4!, TAXONOMY+4!
D1	PACKAGE+4!, TAXONOMY+4!
DA	INIT+12!, PACKAGE+4!, PGMNAME+3!, TAXONOMY+4!, POSTINIT+5!, POSTINIT+9*
DD	PACKAGE+4!, TAXONOMY+4!
DI	PACKAGE+4!, TAXONOMY+4!
DIADD	PACKAGE+4!, TAXONOMY+4!
DIC	PACKAGE+2, PACKAGE+4!, TAXONOMY+2, TAXONOMY+4!
DIC(0	PACKAGE+2, TAXONOMY+2
DICR	PACKAGE+4!, TAXONOMY+4!
DIE	PACKAGE+4!, TAXONOMY+4!, PGMSAVE+1, PGMSAVE+3!, POSTINIT+9
DINUM	PACKAGE+4!, TAXONOMY+4!
DIPGM	PACKAGE+4!, TAXONOMY+4!
DIR	INIT+12!, PGMNAME+2!, PGMNAME+3!, POSTINIT+5!
DIR("?"	INIT+12*
DIR("A"	INIT+12, PGMNAME+3, POSTINIT+5*
DIR("B"	POSTINIT+5*
DIR(0	INIT+12, PGMNAME+3, POSTINIT+5*
>> DIRUT	INIT+13, PGMNAME+4
DLAYGO	PACKAGE+4!, TAXONOMY+4!
DO	PACKAGE+4!, TAXONOMY+4!
DQ	PACKAGE+4!, TAXONOMY+4!
DR	PACKAGE+4!, TAXONOMY+4!, POSTINIT+9*
DT	BUILD+2
U	PACKAGE+7, TXCHECK+7, TXIENCHK+1, TXIENCHK+6, TXSTORE+36, BUILD+4
>> X	INIT+14, PGMNAME+8, PGMNAME+10, PGMNAME+12, TXCHECK+7, TXCHECK+8, TXCHECK+9, TXCHECK+10, TXIENCHK+6, TXIENCHK+7 , BUILD+13, BUILD+14, BUILD+16, BUILD+17, PGMBEG+3, PGMBEG+4, PGMBEG+6, PGMBEG+7, PGMBEG+8, PGMBEG+10* , PGMBEG+11, PGMBEG+12, PGMTMP+2, PGMTMP+3, PGMTMP2+1, PGMTMP2+2, PGMSAVE+1, PGMSAVE+4, SETTMP+2, SETTMP+3 , DRIVER+4, DRIVER+5, DRIVER+6, DRIVER+7, DRIVER+8, DRIVER+9, DRIVER+10, DRIVER+12, DRIVER+13, DRIVER+15* , INSTALL+3*
XCM	PGMSAVE+3!
XCN	PGMSAVE+1*, PGMSAVE+3!
>> Y	PACKAGE+5, PACKAGE+6, PGMNAME+5, TAXONOMY+5, TAXONOMY+6, BUILD+2, BUILD+4, PGMBEG+3, DRIVER+4, DRIVER+12 , DRIVER+13, POSTINIT+6, INSTALL+3*
>> Y(0	TAXONOMY+7
>> Z	DRIVER+12

Marked Items

Name	Field # of Occurrence
$T(CODE+ATXI	PGMBEG+10, PGMBEG+11

Customize PDF page

Package: Taxonomy

Routine: ATXSTX

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items