Routine: CIMSNCIL

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC ^DIK ^DIR
Kernel	3	^%ZISC ($$OPEN,$$STATUS)^%ZISH $$FMTE^XLFDT
IHS VA Utilities	2	^XBFMK EN^XBVK

Entry Points

Name	Comments	DBIA/ICR reference
LOAD	;
STRIP(Z)	;REMOVE CONTROL CHARACTERS
READF	;read file
GETPAT	;
START	;start processing
XIT	;
FILE	;upload global
DIR	;
DELETE	;EP - delete all entries in study file

External References

Name	Field # of Occurrence
^%DT	LOAD+7
^%ZISC	READF+7
$$OPEN^%ZISH	READF+3
$$STATUS^%ZISH	READF+6
^DIC	LOAD+12
^DIK	DELETE+6
^DIR	DIR+2, DIR+6, DELETE+2, DELETE+9
^XBFMK	XIT+4
EN^XBVK	XIT+3
$$FMTE^XLFDT	LOAD+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Log into Kernel first" Line Location: START+1
Function Call: WRITE	Prompt: !!,"This option should be used to upload patient chart numbers into the","NCI STUDY FILE. You will be asked to enter the directory path and the ",!,"file name from which to upload the chart numbers.",! Line Location: START+3
Function Call: WRITE	Prompt: !!,"When entering the directory path, enter a full path name with the ending '/'",!,"for example, /usr/spool/uucppublic/ or /usr/mumps/. When entering the ",!,"filename enter the extension as well, for example, NCIDATA.TXTT.",!! Line Location: START+4
Function Call: WRITE	Prompt: !!,"Bye. File not accessed.",! Line Location: START+6
Function Call: WRITE	Prompt: !!,"All Done." Line Location: START+9
Function Call: WRITE	Prompt: !,"Read ",CIMSCNT," records. Loaded ",CIMSLOAD," patients.",! Line Location: START+10
Function Call: WRITE	Prompt: !!,"already have that patient "_CIMSPAT_" HRN: "_CIMSHRN Line Location: LOAD+11
Function Call: WRITE	Prompt: !,"Error adding patient ",CIMSHRN," to file." Line Location: LOAD+13
Function Call: WRITE	Prompt: !,"Couldn't find patient with chart number ",CIMSHRN," at facility ",CIMSFACN Line Location: GETPAT+2
Function Call: WRITE	Prompt: !!,"Directory not entered!! Bye." Line Location: DIR+3
Function Call: WRITE	Prompt: !,"Directory=",CIMSDIR," ","File=",CIMSFILE," reading file into ^TMP...",! Line Location: DIR+9
Function Call: WRITE	Prompt: !,*7,"CANNOT OPEN (OR ACCESS) FILE '",CIMSDIR,CIMSFILE,"'." Line Location: READF+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: READF+6
Function Call: WRITE	Prompt: !!,"All done reading file",! Line Location: READF+8
Function Call: WRITE	Prompt: !!,"I am about to delete all entries in the NCI Cancer Study Patient file!!",$C(7),$C(7),!! Line Location: DELETE+1
Function Call: WRITE	Prompt: !!,"Deleting entries..." Line Location: DELETE+5
Function Call: WRITE	Prompt: "." Line Location: DELETE+6
Function Call: WRITE	Prompt: !,"All Done",! Line Location: DELETE+7
Routine Call	DIC Line Location: LOAD+12
Routine Call	DIR Line Location: DIR+2 DIR+6 DELETE+2 DELETE+9

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT("D"	GETPAT+1
^AUTTLOC("C"	LOAD+5
^CIMSCPAT - [#19259.02]	LOAD+11, DELETE+6
^TMP("CIMSNCIL"	START+8, XIT+2!, READF+5!, READF+6*

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	LOAD+7!*
AUPNLK	XIT+1!
AUPNLK("ALL"	LOAD+1*
AUPNLK("INAC"	LOAD+1*
CIMSC	READF+1~, READF+2, READF+6
>> CIMSCNT	START+7, START+10, LOAD+3
>> CIMSDIR	DIR+1, DIR+4, DIR+9, READF+3, READF+4
>> CIMSDX	LOAD+7*, LOAD+12
>> CIMSFAC	LOAD+5*, GETPAT+1
>> CIMSFACN	LOAD+4*, LOAD+5, GETPAT+2
>> CIMSFILE	DIR+5, DIR+8, DIR+9, READF+3, READF+4
>> CIMSHRN	LOAD+4*, LOAD+11, LOAD+13, GETPAT+1, GETPAT+2
>> CIMSLOAD	START+7, START+10, LOAD+14
>> CIMSNCI	LOAD+6*, LOAD+12
>> CIMSPAT	LOAD+8, LOAD+9, LOAD+11, LOAD+12, GETPAT+1, GETPAT+2
>> CIMSQUIT	START+5, START+6, DIR+3, READF+4*
>> CIMSR	START+8*
CIMSX	START+8, LOAD+2, LOAD+4, LOAD+6, LOAD+7, DELETE+6, DELETE+8!
D0	LOAD+12!
DA	LOAD+12!, DIR+2!, DIR+6!, DELETE+2!, DELETE+6*, DELETE+9!
DD	LOAD+12!
DIC	LOAD+12!*
DIC("DR"	LOAD+12*
DIC(0	LOAD+12*
>> DIK	DELETE+6*
DIR	DIR+2!, DIR+6!, DELETE+2!, DELETE+9!
DIR("A"	DIR+2, DIR+6, DELETE+2, DELETE+9
DIR("B"	DELETE+2*
DIR(0	DIR+2, DIR+6, DELETE+2, DELETE+9
>> DIRUT	DIR+3, DIR+7, DELETE+3
DLAYGO	LOAD+12!*
DO	LOAD+12!
DTIME	READF+6
DUZ	START+1
I	READF+1~, READF+6, STRIP+1~, STRIP+2
IO	READF+6
IOF	START+2
X	LOAD+7, LOAD+12, GETPAT+1, READF+1~, READF+6
Y	LOAD+7, LOAD+13, DIR+4, DIR+8, READF+1~, READF+3*, READF+4, DELETE+4
Z	STRIP~, STRIP+2*, STRIP+3

Customize PDF page

Package: NCI Study Extract

Routine: CIMSNCIL

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
$$STRIP	READF+6
DIR	DIR+7
FILE	START+5
GETPAT	LOAD+8
LOAD	START+8
XIT	START+6, START+11