Routine: ONCIPC1

Information

ONCIPC1 ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;01/06/00

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Oncology	5	($$IND,$$OCCUP)^ONCACDU1 $$IIN^ONCFUNC HEAD^ONCIPC0 DOB1^ONCOES DATEOT^ONCOPCE
VA FileMan	3	^DIE $$GET1^DIQ ^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: 1

Package	Total	Caller Graph
Oncology	1	ONCIPC0

Entry Points

Name	Comments	DBIA/ICR reference
FIN
ACC
SEQ
PCD
DOB
RACE
SO
SEX
HAND
PER
PPD
PMC
PHC
GP
UO
UI
JUMP	;Jump to prompts
EXIT

External References

Name	Field # of Occurrence
^DIE	PCD+1, RACE+1, SO+1, SEX+1, HAND+1, PER+1, PPD+1, PMC+1, PMC+2, PMC+3 , PMC+4, PMC+5, PHC+1, PHC+2, PHC+3, PHC+4, PHC+5, PHC+6, PHC+7, PHC+8 , GP+1, GP+2, GP+3, GP+4, GP+5, GP+6, GP+7
$$GET1^DIQ	ACC, SEQ
^DIR	UI+1
$$IND^ONCACDU1	UI
$$OCCUP^ONCACDU1	UO
$$IIN^ONCFUNC	FIN
HEAD^ONCIPC0	ONCIPC1+39
DOB1^ONCOES	ONCIPC1+38
DATEOT^ONCOPCE	ONCIPC1+38

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ONCIPC1+39
Function Call: WRITE	Prompt: !," PATIENT INFORMATION" Line Location: ONCIPC1+40
Function Call: WRITE	Prompt: !," -------------------" Line Location: ONCIPC1+41
Function Call: WRITE	Prompt: !," 1. FACILITY ID NUMBER (FIN)......: ",$$IIN^ONCFUNC Line Location: FIN+0
Function Call: WRITE	Prompt: !," 2. ACCESSION NUMBER..............: ",$$GET1^DIQ(165.5,IE,.05) Line Location: ACC+0
Function Call: WRITE	Prompt: !," 3. SEQUENCE NUMBER...............: ",$$GET1^DIQ(165.5,IE,.06) Line Location: SEQ+0
Function Call: WRITE	Prompt: !," 5. DATE OF BIRTH.................: ",DOB Line Location: DOB+0
Function Call: WRITE	Prompt: !!," 12. PRIOR MEDICAL CONDITIONS:" Line Location: PMC+0
Function Call: WRITE	Prompt: !!," 13. PERSONAL HISTORY OF OTHER CANCER:" Line Location: PHC+0
Function Call: WRITE	Prompt: !!," 14. GENETIC PREDISPOSITION:" Line Location: GP+0
Function Call: WRITE	Prompt: !!," 15. USUAL OCCUPATION..............: ",$$OCCUP^ONCACDU1(ONCOPA) Line Location: UO+0
Function Call: WRITE	Prompt: !," 16. USUAL INDUSTRY................: ",$$IND^ONCACDU1(ONCOPA) Line Location: UI+0
Function Call: WRITE	Prompt: ! Line Location: UI+1
Function Call: WRITE	Prompt: !,?5,HTABLE(I) Line Location: JUMP+4
Function Call: WRITE	Prompt: *7,"??" Line Location: JUMP+5
Function Call: WRITE	Prompt: !,?5,HTABLE(I) Line Location: JUMP+6
Routine Call	DIE Line Location: PCD+1 RACE+1 SO+1 SEX+1 HAND+1 PER+1 PPD+1 PMC+1 PMC+2 PMC+3 PMC+4 PMC+5 PHC+1 PHC+2 PHC+3 PHC+4 PHC+5 PHC+6 PHC+7 PHC+8 GP+1 GP+2 GP+3 GP+4 GP+5 GP+6 GP+7
Routine Call	DIR Line Location: UI+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ONCO(160 - [#160]	Classic Fileman Calls
^ONCO(165.5 - [#165.5]	Classic Fileman Calls, GET1^DIQ

Label References

Name	Line Occurrences
@(	JUMP+8
EXIT	UI+2, JUMP+2
JUMP	PCD+1, RACE+1, SO+1, SEX+1, HAND+1, PER+1, PPD+1, PMC+1, PMC+2, PMC+3 , PMC+4, PMC+5, PHC+1, PHC+2, PHC+3, PHC+4, PHC+5, PHC+6, PHC+7, PHC+8 , GP+1, GP+2, GP+3, GP+4, GP+5, GP+6, GP+7, JUMP+3, JUMP+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHOICES	ONCIPC1+36*, JUMP+4, JUMP+6, EXIT!
>> D0	ONCIPC1+38*
DA	PCD, RACE, SO, SEX, HAND, PER, PPD*, EXIT+1!
DIC	EXIT+1!
DIE	PCD, RACE, SO, SEX, HAND, PER, PPD*, EXIT+1!
DIQ	EXIT+1!
DIR	UI+1!, EXIT+1!
DIR(0	UI+1*
DIROUT	EXIT+1!
DIRUT	UI+1, EXIT+1!
DOB	ONCIPC1+38*, DOB, EXIT!
DR	PCD+1, RACE+1, SO+1, SEX+1, HAND+1, PER+1, PPD+1, PMC+1, PMC+2, PMC+3 , PMC+4, PMC+5, PHC+1, PHC+2, PHC+3, PHC+4, PHC+5, PHC+6, PHC+7, PHC+8 , GP+1, GP+2, GP+3, GP+4, GP+5, GP+6, GP+7*, EXIT+1!
DTIME	JUMP+1
DTOUT	EXIT+1!
DUOUT	EXIT+1!
HTABLE	ONCIPC1+3!, EXIT!
HTABLE(	JUMP+4, JUMP+6
HTABLE(1	ONCIPC1+20*
HTABLE(10	ONCIPC1+29*
HTABLE(11	ONCIPC1+30*
HTABLE(12	ONCIPC1+31*
HTABLE(13	ONCIPC1+32*
HTABLE(14	ONCIPC1+33*
HTABLE(15	ONCIPC1+34*
HTABLE(16	ONCIPC1+35*
HTABLE(2	ONCIPC1+21*
HTABLE(3	ONCIPC1+22*
HTABLE(4	ONCIPC1+23*
HTABLE(5	ONCIPC1+24*
HTABLE(6	ONCIPC1+25*
HTABLE(7	ONCIPC1+26*
HTABLE(8	ONCIPC1+27*
HTABLE(9	ONCIPC1+28*
>> I	JUMP+4, JUMP+6
IE	ONCIPC1+37*, ACC, SEQ, EXIT!
IOF	ONCIPC1+39
>> ONCONUM	ONCIPC1+37, PCD, HAND, PER, PPD
>> ONCOPA	ONCIPC1+38, RACE, SO, SEX, UO, UI
>> OUT	UI+1, JUMP+2
TABLE	ONCIPC1+3!, EXIT!
TABLE(	JUMP+5, JUMP+7
TABLE("1. FAC	ILITY ID NUMBER (FIN)" , ONCIPC1+4*
TABLE("10. PR	IOR EXPOSURE TO RADIATION" , ONCIPC1+13*
TABLE("11. PR	IMARY PAYER AT DIAGNOSIS" , ONCIPC1+14*
TABLE("12. PR	IOR MEDICAL CONDITIONS" , ONCIPC1+15*
TABLE("13. PE	RSONAL HISTORY OF OTHER CANCER" , ONCIPC1+16*
TABLE("14. GE	NETIC PREDISPOSITION" , ONCIPC1+17*
TABLE("15. US	UAL OCCUPATION" , ONCIPC1+18*
TABLE("16. US	UAL INDUSTRY" , ONCIPC1+19*
TABLE("2. ACC	ESSION NUMBER" , ONCIPC1+5*
TABLE("3. SEQ	UENCE NUMBER" , ONCIPC1+6*
TABLE("4. POS	TAL CODE AT DIAGNOSIS" , ONCIPC1+7*
TABLE("5. DAT	E OF BIRTH" , ONCIPC1+8*
TABLE("6. RAC	E" , ONCIPC1+9*
TABLE("7. SPA	NISH ORIGIN" , ONCIPC1+10*
TABLE("8. SEX	" , ONCIPC1+11*
TABLE("9. HAN	DEDNESS" , ONCIPC1+12*
U	JUMP+2
X	ONCIPC1+38, JUMP+1, JUMP+2, JUMP+3, JUMP+5, JUMP+7*, JUMP+8, EXIT+1!
>> XX	JUMP+1, JUMP+5
Y	ONCIPC1+38*, PCD+1, RACE+1, SO+1, SEX+1, HAND+1, PER+1, PPD+1, PMC+1, PMC+2 , PMC+3, PMC+4, PMC+5, PHC+1, PHC+2, PHC+3, PHC+4, PHC+5, PHC+6, PHC+7 , PHC+8, GP+1, GP+2, GP+3, GP+4, GP+5, GP+6, GP+7, EXIT+1!

Customize PDF page

Package: Oncology