Routine: ONCHPC1

Information

ONCHPC1 ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/06/00

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Oncology	4	$$IIN^ONCFUNC HEAD^ONCHPC0 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	ONCHPC0

Entry Points

Name	Comments	DBIA/ICR reference
FIN
ACC
SEQ
PCD
POB
DOB
RACE
SO
SEX
PPD
JUMP	;Jump to prompts
EXIT

External References

Name	Field # of Occurrence
^DIE	PCD+1, POB+1, RACE+1, SO+1, SEX+1, PPD+1
$$GET1^DIQ	ACC, SEQ
^DIR	PPD+2
$$IIN^ONCFUNC	FIN
HEAD^ONCHPC0	ONCHPC1+27
DOB1^ONCOES	ONCHPC1+25
DATEOT^ONCOPCE	ONCHPC1+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ONCHPC1+27
Function Call: WRITE	Prompt: !," PATIENT INFORMATION" Line Location: ONCHPC1+28
Function Call: WRITE	Prompt: !," -------------------" Line Location: ONCHPC1+29
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: !," 6. DATE OF BIRTH.................: ",DOB Line Location: DOB+0
Function Call: WRITE	Prompt: ! Line Location: PPD+2
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 POB+1 RACE+1 SO+1 SEX+1 PPD+1
Routine Call	DIR Line Location: PPD+2

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	PPD+3, JUMP+2
JUMP	PCD+1, POB+1, RACE+1, SO+1, SEX+1, PPD+1, JUMP+3, JUMP+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHOICES	ONCHPC1+24*, JUMP+4, JUMP+6, EXIT!
>> D0	ONCHPC1+25*
DA	PCD, POB, RACE, SO, SEX, PPD, EXIT+1!
DIC	EXIT+1!
DIE	PCD, POB, RACE, SO, SEX, PPD, EXIT+1!
DIQ	EXIT+1!
DIR	PPD+2!, EXIT+1!
DIR(0	PPD+2*
DIROUT	EXIT+1!
DIRUT	PPD+2, EXIT+1!
DOB	ONCHPC1+25*, DOB, EXIT!
DR	PCD+1, POB+1, RACE+1, SO+1, SEX+1, PPD+1, EXIT+1!
DTIME	JUMP+1
DTOUT	EXIT+1!
DUOUT	EXIT+1!
HTABLE	ONCHPC1+3!, EXIT!
HTABLE(	JUMP+4, JUMP+6
HTABLE(1	ONCHPC1+14*
HTABLE(10	ONCHPC1+23*
HTABLE(2	ONCHPC1+15*
HTABLE(3	ONCHPC1+16*
HTABLE(4	ONCHPC1+17*
HTABLE(5	ONCHPC1+18*
HTABLE(6	ONCHPC1+19*
HTABLE(7	ONCHPC1+20*
HTABLE(8	ONCHPC1+21*
HTABLE(9	ONCHPC1+22*
>> I	JUMP+4, JUMP+6
IE	ONCHPC1+26*, ACC, SEQ, EXIT!
IOF	ONCHPC1+27
>> ONCONUM	ONCHPC1+26, PCD, PPD
>> ONCOPA	ONCHPC1+25, POB, RACE, SO, SEX
>> OUT	PPD+2, JUMP+2
TABLE	ONCHPC1+3!, EXIT!
TABLE(	JUMP+5, JUMP+7
TABLE("1. FAC	ILITY ID NUMBER (FIN)" , ONCHPC1+4*
TABLE("10. PR	IMARY PAYER AT DIAGNOSIS" , ONCHPC1+13*
TABLE("2. ACC	ESSION NUMBER" , ONCHPC1+5*
TABLE("3. SEQ	UENCE NUMBER" , ONCHPC1+6*
TABLE("4. POS	TAL CODE AT DIAGNOSIS" , ONCHPC1+7*
TABLE("5. PLA	CE OF BIRTH" , ONCHPC1+8*
TABLE("6. DAT	E OF BIRTH" , ONCHPC1+9*
TABLE("7. RAC	E" , ONCHPC1+10*
TABLE("8. SPA	NISH ORIGIN" , ONCHPC1+11*
TABLE("9. SEX	" , ONCHPC1+12*
U	JUMP+2
X	ONCHPC1+25, JUMP+1, JUMP+2, JUMP+3, JUMP+5, JUMP+7*, JUMP+8, EXIT+1!
>> XX	JUMP+1, JUMP+5
Y	ONCHPC1+25*, PCD+1, POB+1, RACE+1, SO+1, SEX+1, PPD+1, EXIT+1!

Customize PDF page

Package: Oncology