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 |  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: CIMSNCIL

Package: NCI Study Extract

Routine: CIMSNCIL


Information

CIMSNCIL ;CMI/TUCSON/LAB - LOAD NCI STUDY PATIENTS [ 06/12/98 2:39 PM ]

Source Information

Source file <CIMSNCIL.m>

Call Graph

Call Graph Total: 9

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^CIMSCPAT - [#19259.02] Classic Fileman Calls

Global Variables Directly Accessed

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*

Label References

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

Local Variables

Legend:

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