Routine: C0CRXNRD

Package	Total	Call Graph
VA Fileman	7	EN^DDIOL $$FIND1^DIC FILE^DICN (UPDATE,WP)^DIE CLEAN^DILF $$ROOT^DILFD $$GET1^DIQ
Kernel	1	($$STATUS,CLOSE,OPEN)^%ZISH

Entry Points

Name	Comments	DBIA/ICR reference
IMPORT(PATH)
READSRC(PATH)	; Open the read RxNorm Sources file: RXNSAB.RRF
DELFILED(FN)	; Delete file data; PEP procedure; only for RxNorm files ; FN is Filenumber passed by Value
EX2
EX
READCON(PATH,INCRES)	; Open and read concepts file: RXNCONSO.RRF; EP ; PATH ByVal, path of RxNorm files ; INCRES ByVal, include restricted sources. 1 for yes, 0 for no
READNDC(PATH)	; Open and read NDC/RxNorm/VANDF relationship file: RXNSAT.RRF
GETLINES(PATH,FILENAME)	; Get number of lines in a file
EX3

External References

Name	Field # of Occurrence
$$STATUS^%ZISH	GETLINES+4, READCON+11, READCON+14, READNDC+7, READNDC+10, READSRC+6, READSRC+9
CLOSE^%ZISH	GETLINES+5, EX, EX2, EX3
OPEN^%ZISH	GETLINES+1, READCON+8, READNDC+5, READSRC+4
EN^DDIOL	READCON+9, READCON+44
$$FIND1^DIC	READCON+21
FILE^DICN	READNDC+21
UPDATE^DIE	READCON+43, READSRC+37
WP^DIE	READCON+46, READSRC+40
CLEAN^DILF	DELFILED+3
$$ROOT^DILFD	DELFILED+4
$$GET1^DIQ	READCON+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "No entry from top" Line Location: C0CRXNRD+2
Function Call: WRITE	Prompt: C0CCOUNT," of ",LINES," read ",! Line Location: READCON+15
Function Call: WRITE	Prompt: "Error reading file..., Please check...",! Line Location: READNDC+6
Function Call: WRITE	Prompt: C0CCOUNT," of ",LINES," read ",! Line Location: READNDC+11
Function Call: WRITE	Prompt: !,"THERE IS TROUBLE IN RIVER CITY",! Line Location: READNDC+22
Function Call: WRITE	Prompt: "Error reading file..., Please check...",! Line Location: READSRC+5
Function Call: WRITE	Prompt: I,! Line Location: READSRC+10
Function Call: WRITE	Prompt: "ERR" Line Location: READSRC+38
Routine Call	DIE Line Location: READCON+43 READSRC+37
Routine Call	DIC Line Location: READCON+21
Routine Call	DIE Line Location: READCON+46 READSRC+40

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^C0CRXN(176.001 - [#176.001]	WP^DIE
^C0CRXN(176.002 - [#176.002]	Classic Fileman Calls
^C0CRXN(176.003 - [#176.003]	FIND1^DIC, GET1^DIQ, WP^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DIERR"	READCON+44, READSRC+38

Label References

Name	Line Occurrences
$$GETLINES	READCON+7, READNDC+4
DELFILED	READCON+6, READNDC+3, READSRC+3
EX	READCON+9, READCON+44, READSRC+38
EX2	READNDC+6, READNDC+22
EX3	READSRC+5
READCON	IMPORT+2
READNDC	IMPORT+2
READSRC	IMPORT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C0CCOUNT	READCON+10~, READCON+11, READCON+15, READCON+42, READCON+46, READNDC+7, READNDC+11
CODE	READCON+16~, READCON+27*, READCON+41
DA	READNDC+18~
DIC	READNDC+18~, READNDC+20*
DIC("DR"	READNDC+20*
DIC(0	READNDC+20*
DO	READNDC+19!
DR	READNDC+18~
FILENAME	GETLINES~, GETLINES+1, READCON+5~, READCON+7, READCON+8, READNDC+2~, READNDC+4, READNDC+5, READSRC+2~*, READSRC+4
FN	DELFILED~, DELFILED+2, DELFILED+4
I	GETLINES+3~, GETLINES+4, GETLINES+6, READSRC+6, READSRC+10, READSRC+29, READSRC+30, READSRC+31, READSRC+32, READSRC+33 , READSRC+34, READSRC+35, READSRC+36, READSRC+40
INCRES	READCON~, READCON+4*, READCON+25
IO	GETLINES+2, READCON+12, READCON+15, READNDC+8, READNDC+11, READSRC+7, READSRC+10
J	READCON+34~, READSRC+26
LINE	GETLINES+4, READCON+13~, READCON+17, READCON+18, READCON+19, READCON+26, READCON+27, READCON+28, READNDC+9~, READNDC+12 , READNDC+15, READNDC+16, READSRC+8~, READSRC+12, READSRC+13, READSRC+14, READSRC+15, READSRC+16, READSRC+17, READSRC+18 , READSRC+19, READSRC+20
LINES	READCON+7~, READCON+15, READNDC+4~, READNDC+11
NDC	READNDC+14~, READNDC+16*, READNDC+20
PATH	IMPORT~, IMPORT+1, IMPORT+2, GETLINES~, GETLINES+1, READCON~, READCON+3, READCON+7, READCON+8, READNDC~ , READNDC+1, READNDC+4, READNDC+5, READSRC~, READSRC+1, READSRC+4
>> POP	READCON+9, READNDC+6, READSRC+5
RCUI	READSRC+11~, READSRC+13*, READSRC+30
RESTRIC	READCON+22~*, READCON+25
ROOT	DELFILED+4~*, DELFILED+5, DELFILED+7, DELFILED+8
RSAB	READSRC+11~, READSRC+15*, READSRC+32
RXAUI	READCON+16~, READCON+18*, READCON+38
RXCUI	READCON+16~, READCON+17, READCON+37, READNDC+14~, READNDC+15, READNDC+20
RXNFDA	READCON+36~, READSRC+28~
RXNFDA(	READCON+37, READCON+38, READCON+39, READCON+40, READCON+41, READSRC+29, READSRC+30, READSRC+31, READSRC+32, READSRC+33 , READSRC+34, READSRC+35, READSRC+36*
RXNIEN	READCON+42~
RXNIEN(1	READCON+42*
SAB	READCON+16~, READCON+19*, READCON+21, READCON+39
SCIT	READSRC+11~, READSRC+20, READSRC+22, READSRC+25, READSRC+26*, READSRC+40
SCIT(	READSRC+26*
SCITLINE	READSRC+25~*, READSRC+26
SF	READSRC+11~, READSRC+17*, READSRC+34
SON	READSRC+11~, READSRC+16*, READSRC+33
SRCIEN	READCON+21~*, READCON+22
SRL	READSRC+11~, READSRC+19*, READSRC+36
STR	READCON+16~, READCON+28, READCON+30, READCON+32, READCON+34*, READCON+46
STR(	READCON+34*
STRLINE	READCON+32~*, READCON+34
SVER	READSRC+11~, READSRC+18*, READSRC+35
TTY	READCON+16~, READCON+26*, READCON+40
U	DELFILED+6
VCUI	READSRC+11~, READSRC+12*, READSRC+29
VSAB	READSRC+11~, READSRC+14*, READSRC+31
X	READNDC+18~, READNDC+20*
>> Y	READNDC+22
ZERO	DELFILED+5~, DELFILED+6, DELFILED+8

Customize PDF page

Package: RxNorm for VISTA

Routine: C0CRXNRD

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

Local Variables

Legend: