Routine: ONCOSINP

Information

ONCOSINP ;WASH ISC/SRR,MLH-INPUT SUBROUTINES FOR ONCOS ;11/1/93 12:16

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
VA FileMan	2	(,IX)^DIC ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
Oncology	5	ONCOSCT ONCOSCT1 ONCOSSA ONCOSSA1 ONCOSSA2

Entry Points

Name	Comments	DBIA/ICR reference
GETFILE	;lookup file, get file number & global reference
GETTEMPL	;get a search template
ASK
Z
X	;D GETYES E Q:Y=-1 G GT2
GT2
HP1
W
GT1
GETYES	;get a yes/no response

External References

Name	Field # of Occurrence
^DIC	GETFILE+4, Z
IX^DIC	GT1
^DIR	ASK

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"FILE: ",X Line Location: GETFILE+4
Function Call: WRITE	Prompt: !,"SEARCH TEMPLATE: ",Y Line Location: GETTEMPL+4
Function Call: WRITE	Prompt: !,"Sorry, ",$P(Y,U,2)," must be a SEARCH template" Line Location: X+1
Function Call: WRITE	Prompt: !!,?10,$P(Y,U,2)_" does not have stored entries",!?10,"you must run FM Search Option for this template.",!! Line Location: X+2
Function Call: WRITE	Prompt: !!?10,"REMINDER: Run Define Search Criteria Option" Line Location: X+3
Function Call: WRITE	Prompt: !,?10,"to be sure selected entries are up-to-date!!",! Line Location: X+4
Function Call: WRITE	Prompt: ! Line Location: X+5
Function Call: WRITE	Prompt: ! Line Location: GT2+0
Function Call: WRITE	Prompt: !!?10,"Using a Search Template will restrict cases.",! Line Location: HP1+0
Function Call: WRITE	Prompt: ?10,"It will act as a filter using only those cases",! Line Location: HP1+1
Function Call: WRITE	Prompt: ?10,"that fit the criteria you have selected." Line Location: HP1+2
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !!,?10,"YOU MUST have FIRST GENERATED the Search Template using the",!?10,"DS Option to create the necessary 'TRUE' entries!",!! Line Location: W+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: GETYES+7
Function Call: WRITE	Prompt: !,Y Line Location: GETYES+7
Function Call: WRITE	Prompt: *7 Line Location: GETYES+11
Function Call: WRITE	Prompt: !,"Enter 'y' or 'n' or '^' to abort." Line Location: GETYES+12
Function Call: WRITE	Prompt: " (Yes)" Line Location: GETYES+13
Function Call: WRITE	Prompt: " (No)" Line Location: GETYES+14
Routine Call	DIC Line Location: GETFILE+4 Z
Routine Call	DIC Line Location: GT1
Routine Call	DIR Line Location: ASK

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIBT - [#.401]	Classic Fileman Calls
^DIC - [#1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIBT - [#.401]	X+1, X+2, GT1
^DIBT("F"	GETTEMPL+4
^DIC - [#1]	GETFILE+4

Label References

Name	Line Occurrences
ASK	GT2+2
GETYES	GT2+1, GETYES+12
GT1	X+1, X+2
GT2	ASK, GT1

Naked Globals

Name	Field # of Occurrence
^(	GETTEMPL+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D	GETTEMPL+3~, Z, GT1
DIC	GETFILE+3~, GETFILE+4, GETTEMPL+3~, Z
DIC("A"	Z*
DIC(0	GETFILE+4, Z
DIR	GETTEMPL+3~
DIR("??"	ASK*
DIR("A"	ASK*
DIR("B"	ASK*
DIR(0	ASK*
DTIME	GETYES+7
>> FNUM	GETFILE+4*, GETTEMPL+4, Z, GT1
>> GBL	GETFILE+4*
>> N	Z*, X+1, X+2
>> ONCOS("F"	GETFILE+4
>> ONCOS("FI"	GETFILE+4*
>> ONCOS("T"	GETTEMPL+4
U	GETTEMPL+4, X+1, X+2, GT1, GETYES+8
>> X	GETFILE+4, GETTEMPL+4, GETYES+7, GETYES+8, GETYES+10, GETYES+11*, GETYES+12, GETYES+13
>> Y	GETFILE+4, GETTEMPL+4, ASK, Z, X+1, X+2, GT2, GT2+1, GT2+2, GT1 , GETYES+7, GETYES+9, GETYES+10
>> Z	GT2*, GETYES+12

Customize PDF page

Package: Oncology