Routine: ONCGPC7

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Oncology	3	$$HIST^ONCFUNC HEAD^ONCGPC0 ^ONCGPC7A
VA FileMan	2	$$GET1^DIQ ^DIR

Package	Total	Caller Graph
Oncology	1	ONCOGEN

Name	Field # of Occurrence
^%ZIS	ONCGPC7+3
^%ZISC	ONCGPC7+5, TASK+5
^%ZTLOAD	TASK+5
$$GET1^DIQ	PRT+7, PRT+8, ITEM1+4, CMC2+1, CMC2+3, CMC2+5, CMC2+7, CMC2+9, ITEM2, ITEM3 , ITEM4, ITEM5+2, ITEM6+2, ITEM7+2, ITEM8+4, ITEM9+2, ITEM9+4, ITEM9+6, ITEM9+8, ITEM9+10 , ITEM9+12, ITEM9+16, ITEM9+18, ITEM9+20, ITEM9+22, ITEM10+2, ITEM10+4, ITEM10+6, ITEM10+8, ITEM11 , ITEM12+2
^DIR	ITEM8+5, ITEM9+23, ITEM12+4, P+2
$$HIST^ONCFUNC	PRT+1
HEAD^ONCGPC0	I+1, ITEM8+5, ITEM9+23, ITEM12+5, P+3
^ONCGPC7A	ITEM12+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ONCGPC7+3
Function Call: WRITE	Prompt: !?4,TABLE,!?4,LINE Line Location: I+3
Function Call: WRITE	Prompt: !," 1. CO-MORBID CONDITIONS:" Line Location: ITEM1+0
Function Call: WRITE	Prompt: !," CO-MORBID CONDITION #1.......: ",$P($$GET1^DIQ(165.5,IE,1571)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1571)," ",2,99) Line Location: ITEM1+4
Function Call: WRITE	Prompt: !," CO-MORBID CONDITION #2.......: ",$P($$GET1^DIQ(165.5,IE,1571.1)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1571.1)," ",2,99) Line Location: CMC2+1
Function Call: WRITE	Prompt: !," CO-MORBID CONDITION #3.......: ",$P($$GET1^DIQ(165.5,IE,1571.2)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1571.2)," ",2,99) Line Location: CMC2+3
Function Call: WRITE	Prompt: !," CO-MORBID CONDITION #4.......: ",$P($$GET1^DIQ(165.5,IE,1571.3)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1571.3)," ",2,99) Line Location: CMC2+5
Function Call: WRITE	Prompt: !," CO-MORBID CONDITION #5.......: ",$P($$GET1^DIQ(165.5,IE,1571.4)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1571.4)," ",2,99) Line Location: CMC2+7
Function Call: WRITE	Prompt: !," CO-MORBID CONDITION #6.......: ",$P($$GET1^DIQ(165.5,IE,1571.5)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1571.5)," ",2,99) Line Location: CMC2+9
Function Call: WRITE	Prompt: ! Line Location: CMC2+11
Function Call: WRITE	Prompt: !," 2. PRIOR EXPOSURE TO RADIATION...: ",$$GET1^DIQ(165.5,IE,1500) Line Location: ITEM2+0
Function Call: WRITE	Prompt: ! Line Location: ITEM2+1
Function Call: WRITE	Prompt: !," 3. ALCOHOL CONSUMPTION...........: ",$$GET1^DIQ(165.5,IE,1501) Line Location: ITEM3+0
Function Call: WRITE	Prompt: ! Line Location: ITEM3+2
Function Call: WRITE	Prompt: !," 4. DURATION OF TOBACCO USE.......: ",$$GET1^DIQ(165.5,IE,1572) Line Location: ITEM4+0
Function Call: WRITE	Prompt: ! Line Location: ITEM4+2
Function Call: WRITE	Prompt: !," 5. MENOPAUSAL STATUS AND HORMONE" Line Location: ITEM5+0
Function Call: WRITE	Prompt: !," REPLACEMENT THERAPY..........: ",$$GET1^DIQ(165.5,IE,1502) Line Location: ITEM5+2
Function Call: WRITE	Prompt: ! Line Location: ITEM5+4
Function Call: WRITE	Prompt: !," 6. H2/BLOCKER PROTON PUMP" Line Location: ITEM6+0
Function Call: WRITE	Prompt: !," INHIBITOR....................: ",$$GET1^DIQ(165.5,IE,1503) Line Location: ITEM6+2
Function Call: WRITE	Prompt: ! Line Location: ITEM6+4
Function Call: WRITE	Prompt: !," 7. FAMILY HISTORY OF GASTRIC" Line Location: ITEM7+0
Function Call: WRITE	Prompt: !," CANCER.......................: ",$$GET1^DIQ(165.5,IE,1504) Line Location: ITEM7+2
Function Call: WRITE	Prompt: ! Line Location: ITEM7+3
Function Call: WRITE	Prompt: !," 8. PERSONAL HISTORY OF OTHER" Line Location: ITEM8+0
Function Call: WRITE	Prompt: !," INVASIVE MALIGNANCIES PRIOR" Line Location: ITEM8+2
Function Call: WRITE	Prompt: !," TO THIS CANCER DIAGNOSIS....: ",$$GET1^DIQ(165.5,IE,1573) Line Location: ITEM8+4
Function Call: WRITE	Prompt: ! Line Location: ITEM8+6
Function Call: WRITE	Prompt: !," 9. ASSOCIATED BENIGN CONDITIONS:" Line Location: ITEM9+0
Function Call: WRITE	Prompt: !," H-PYLORI INECTION............: ",$$GET1^DIQ(165.5,IE,1505) Line Location: ITEM9+2
Function Call: WRITE	Prompt: !," DUODENAL ULCER...............: ",$$GET1^DIQ(165.5,IE,1506) Line Location: ITEM9+4
Function Call: WRITE	Prompt: !," GASTRIC ULCER................: ",$$GET1^DIQ(165.5,IE,1507) Line Location: ITEM9+6
Function Call: WRITE	Prompt: !," HEARTBURN....................: ",$$GET1^DIQ(165.5,IE,1508) Line Location: ITEM9+8
Function Call: WRITE	Prompt: !," PERNICIOUS ANEMIA............: ",$$GET1^DIQ(165.5,IE,1509) Line Location: ITEM9+10
Function Call: WRITE	Prompt: !," POLYPS OF STOMACH............: ",$$GET1^DIQ(165.5,IE,1510) Line Location: ITEM9+12
Function Call: WRITE	Prompt: !," POLYPOSIS OF SMALL OR LARGE" Line Location: ITEM9+14
Function Call: WRITE	Prompt: !," BOWEL.......................: ",$$GET1^DIQ(165.5,IE,1511) Line Location: ITEM9+16
Function Call: WRITE	Prompt: !," BARRETT'S ESOPHAGUS..........: ",$$GET1^DIQ(165.5,IE,1512) Line Location: ITEM9+18
Function Call: WRITE	Prompt: !," ATROPHIC GASTRITIS...........: ",$$GET1^DIQ(165.5,IE,1513) Line Location: ITEM9+20
Function Call: WRITE	Prompt: !," GASTRIC METAPLASIA...........: ",$$GET1^DIQ(165.5,IE,1514) Line Location: ITEM9+22
Function Call: WRITE	Prompt: ! Line Location: ITEM9+24
Function Call: WRITE	Prompt: !,"10. H-PYLORI DRUGS GIVEN:" Line Location: ITEM10+0
Function Call: WRITE	Prompt: !," ANTIBIOTICS..................: ",$$GET1^DIQ(165.5,IE,1515) Line Location: ITEM10+2
Function Call: WRITE	Prompt: !," PROTON PUMP INHIBITORS.......: ",$$GET1^DIQ(165.5,IE,1516) Line Location: ITEM10+4
Function Call: WRITE	Prompt: !," H2 BLOCKERS..................: ",$$GET1^DIQ(165.5,IE,1517) Line Location: ITEM10+6
Function Call: WRITE	Prompt: !," BISMUTH COMPOUNDS............: ",$$GET1^DIQ(165.5,IE,1518) Line Location: ITEM10+8
Function Call: WRITE	Prompt: ! Line Location: ITEM10+10
Function Call: WRITE	Prompt: !,"11. PRIOR INTRA-ABDOMINAL SURGERY.: ",$$GET1^DIQ(165.5,IE,1519) Line Location: ITEM11+0
Function Call: WRITE	Prompt: ! Line Location: ITEM11+2
Function Call: WRITE	Prompt: !,"12. YEAR OF PRIOR GASTRIC" Line Location: ITEM12+0
Function Call: WRITE	Prompt: !," RESECTION....................: ",$$GET1^DIQ(165.5,IE,1520) Line Location: ITEM12+2
Function Call: WRITE	Prompt: !,"Request Queued",! Line Location: TASK+5
Routine Call	%ZIS Line Location: ONCGPC7+3
Routine Call	DIR Line Location: ITEM8+5 ITEM9+23 ITEM12+4 P+2

FileNo	Call Tags
^ONCO(165.5 - [#165.5]	GET1^DIQ

Name	Line Occurrences
CMC2	ITEM1+2
ITEM10	ITEM9+23
ITEM9	ITEM8+5
KILL	ONCGPC7+3, ONCGPC7+4, ONCGPC7+5
P	ITEM1+1, CMC2, CMC2+2, CMC2+4, CMC2+6, CMC2+8, CMC2+10, CMC2+12, ITEM2+2, ITEM3+1 , ITEM3+3, ITEM4+1, ITEM4+3, ITEM5+1, ITEM5+3, ITEM5+5, ITEM6+1, ITEM6+3, ITEM6+5, ITEM7+1 , ITEM7+4, ITEM8+1, ITEM8+3, ITEM8+7, ITEM9+1, ITEM9+3, ITEM9+5, ITEM9+7, ITEM9+9, ITEM9+11 , ITEM9+13, ITEM9+15, ITEM9+17, ITEM9+19, ITEM9+21, ITEM9+25, ITEM10+1, ITEM10+3, ITEM10+5, ITEM10+7 , ITEM10+9, ITEM10+11, ITEM11+1, ITEM11+3, ITEM12+1, ITEM12+3
PRT	ONCGPC7+5
TASK	ONCGPC7+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	KILL+3!
%ZIS	ONCGPC7+3!*, ONCGPC7+5!
>> ADENOCA	PRT+3, PRT+4, PRT+5*
>> BEH	PRT+2*
>> CMC	PRT+7*, ITEM1+2
CS	KILL+1!
CSDAT	KILL+1!
CSI	KILL+1!
CSPNT	KILL+1!
DESC	KILL+1!
DESC1	KILL+1!
DESC2	KILL+1!
DIR	ITEM8+5!, ITEM9+23!, ITEM12+4!, KILL+3!, P+2!
DIR(0	ITEM8+5, ITEM9+23, ITEM12+4, P+2
DIROUT	KILL+3!
DIRUT	KILL+3!
DLC	KILL+1!
DOFCT	KILL+1!
DTOUT	KILL+3!
DUOUT	KILL+3!
EX	PRT, ITEM1+1, CMC2, CMC2+2, CMC2+4, CMC2+6, CMC2+8, CMC2+10, CMC2+12, ITEM2+2 , ITEM3+1, ITEM3+3, ITEM4+1, ITEM4+3, ITEM5+1, ITEM5+3, ITEM5+5, ITEM6+1, ITEM6+3, ITEM6+5 , ITEM7+1, ITEM7+4, ITEM8+1, ITEM8+3, ITEM8+7, ITEM9+1, ITEM9+3, ITEM9+5, ITEM9+7, ITEM9+9 , ITEM9+11, ITEM9+13, ITEM9+15, ITEM9+17, ITEM9+19, ITEM9+21, ITEM9+25, ITEM10+1, ITEM10+3, ITEM10+5 , ITEM10+7, ITEM10+9, ITEM10+11, ITEM11+1, ITEM11+3, ITEM12+1, ITEM12+3, KILL+2!, P+1, P+2
>> HIST	PRT+1*, PRT+2
>> HIST1234	PRT+2*, PRT+4, PRT+5, PRT+6
IE	PRT*, PRT+7, PRT+8, ITEM1+4, CMC2+1, CMC2+3, CMC2+5, CMC2+7, CMC2+9, ITEM2 , ITEM3, ITEM4, ITEM5+2, ITEM6+2, ITEM7+2, ITEM8+4, ITEM9+2, ITEM9+4, ITEM9+6, ITEM9+8 , ITEM9+10, ITEM9+12, ITEM9+16, ITEM9+18, ITEM9+20, ITEM9+22, ITEM10+2, ITEM10+4, ITEM10+6, ITEM10+8 , ITEM11, ITEM12+2, KILL+2!
IO	ONCGPC7+5, TASK+5
IO("Q"	ONCGPC7+4, TASK+1!
IOP	ONCGPC7+3!, ONCGPC7+5!
IOSL	PRT
IOST	PRT, ITEM8+5, ITEM9+23, ITEM12+4, ITEM12+5, P+2
LIN	PRT*, KILL+2!, P+1
LINE	PRT+9!, I+2!, I+3, KILL+2!
LOS	KILL+2!
>> LYMPHOMA	PRT+3, PRT+6
NOP	KILL+2!
ONCOLST	ONCGPC7+4*, KILL+2!, TASK+4, TASK+6!
>> ONCONUM	PRT, PRT+1
>> POP	ONCGPC7+3
TABLE	I*, I+3, KILL+2!
>> TC	PRT+8*
U	ITEM1+1, CMC2, CMC2+2, CMC2+4, CMC2+6, CMC2+8, CMC2+10, CMC2+12, ITEM2+2, ITEM3+1 , ITEM3+3, ITEM4+1, ITEM4+3, ITEM5+1, ITEM5+3, ITEM5+5, ITEM6+1, ITEM6+3, ITEM6+5, ITEM7+1 , ITEM7+4, ITEM8+1, ITEM8+3, ITEM8+7, ITEM9+1, ITEM9+3, ITEM9+5, ITEM9+7, ITEM9+9, ITEM9+11 , ITEM9+13, ITEM9+15, ITEM9+17, ITEM9+19, ITEM9+21, ITEM9+25, ITEM10+1, ITEM10+3, ITEM10+5, ITEM10+7 , ITEM10+9, ITEM10+11, ITEM11+1, ITEM11+3, ITEM12+1, ITEM12+3, P+1, P+2
V1	TASK+4*, TASK+6!
V2	TASK+4*, TASK+6!
X	KILL+3!
Y	ITEM8+5, ITEM9+23, ITEM12+4, KILL+3!, P+2
>> ZTDESC	TASK+3*
ZTDTH	TASK+1!
ZTIO	TASK+1!
>> ZTREQ	TASK+2*
>> ZTRTN	TASK+2*
ZTSAVE	TASK+1!
ZTSAVE(	TASK+4*
ZTSAVE("ZTREQ"	TASK+2*
ZTSK	TASK+6!
ZTUCI	TASK+1!

Customize PDF page

Package: Oncology

Routine: ONCGPC7

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PRT
I
ITEM1
CMC2
ITEM2
ITEM3
ITEM4
ITEM5
ITEM6
ITEM7
ITEM8
ITEM9
ITEM10
ITEM11
ITEM12
KILL	;
P	;Print
TASK	;Queue a task