Routine: CIMSNCID

Package	Total	Call Graph
IHS VA Utilities	3	^XBFMK ^XBGSAVE EN^XBVK
Kernel	2	^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
VA Fileman	2	^%DTC ^DIR
IHS Patient	1	KILL^AUPNPAT
NCI Study Extract	1	($$AREC,$$BREC,$$LREC,$$MREC,$$PREC)^CIMSNCI1
Patient Care Component Reports	1	$$START1^APCLDF

Entry Points

Name	Comments	DBIA/ICR reference
LASTHT(P,F,CIMSTYPE,CIMSDATE)	;PEP - return last ht before dx date
CONT	;
ERR
EOJ	;
QUEUE	;EP
USR()	;EP - Return name of current user from ^VA(200.
WRITEF	;write out flat file
VPR(P,D)	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
PROC	;EP - called from xbdbque to process patients
INTRO	;
LBLK(V,L)	;left blank fill
DATE(D)	;EP convert internal fileman format to mmddyyyy
A	;
C	;
B	;
E	;
D	;
QUEUE1	;
BMI(P)	;PEP - return BMI with last weight,last height
START	;
RBLK(V,L)	;EP right blank fill
LZERO(V,L)	;EP - left zero fill
HEADER	;EP called from menu header
NPR(V)	;
YEARS	;
HF(V,N)	;return N health factor on this visit
EOP	;EP - End of page.
RZERO(V,L)	;ep right zero fill
GENE	;
GENB	;
LASTWT(P,CIMSTYPE,CIMSDATE)	;PEP - return last wt
GENA	;generate file a record

External References

Name	Field # of Occurrence
^%DTC	A+2
^%ZTLOAD	QUEUE1+3
$$START1^APCLDF	LASTHT+7, LASTHT+11, LASTWT+7, LASTWT+11
KILL^AUPNPAT	EOJ+3
$$AREC^CIMSNCI1	GENA+1
$$BREC^CIMSNCI1	GENB+15
$$LREC^CIMSNCI1	GENB+20
$$MREC^CIMSNCI1	GENB+25
$$PREC^CIMSNCI1	GENE+2
^DIR	YEARS+2, CONT+1, QUEUE+2, EOP+5
^XBFMK	EOJ+1
^XBGSAVE	A+7, B+4, C+4, D+4, E+4
EN^XBVK	EOJ+4
$$FMADD^XLFDT	GENB+3, VPR+5
$$FMTE^XLFDT	LASTHT+6, LASTHT+10, LASTWT+6, LASTWT+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC(),80),! Line Location: START+2
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: START+3
Function Call: WRITE	Prompt: !,$$CTR(X,80),! Line Location: START+4
Function Call: WRITE	Prompt: !,X Line Location: START+5
Function Call: WRITE	Prompt: C," patients in the NCI Cancer Study Register.",! Line Location: START+8
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request Queued.",1:"Request cancelled.") Line Location: QUEUE1+4
Function Call: WRITE	Prompt: !,"Processing patients" Line Location: PROC+1
Function Call: WRITE	Prompt: $C(7),$C(7),!,"Must be a valid Year. Enter a year only!!" Line Location: ERR+0
Function Call: WRITE	Prompt: !,$$CTR("NATIONAL CANCER INSTITUTE",80) Line Location: HEADER+2
Function Call: WRITE	Prompt: !,$$CTR("Patterns of Care Among Native American Cancer Patients",80) Line Location: HEADER+3
Function Call: WRITE	Prompt: !,$$CTR("Main Study Menu"),! Line Location: HEADER+4
Function Call: WRITE	Prompt: !,$$CTR($$LOC(),80) Line Location: HEADER+5
Function Call: WRITE	Prompt: !,$$CTR("Version 1.0 April 1998",80) Line Location: HEADER+6
Function Call: WRITE	Prompt: !,$$CTR("Cimarron Medical Informatics, LLC",80) Line Location: HEADER+7
Routine Call	DIR Line Location: YEARS+2 CONT+1 QUEUE+2 EOP+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB("AC"	GENE+1
^AUPNVHF - [#9000010.23]	HF+2
^AUPNVHF("AD"	HF+2
^AUPNVLAB("AD"	GENB+19
^AUPNVMED("AD"	GENB+24
^AUPNVPOV("AD"	GENB+14, VPR+11
^AUPNVPRC("AD"	NPR+3
^AUPNVPRV("AD"	GENB+14, VPR+12
^AUPNVSIT - [#9000010]	GENB+5, GENB+8, GENB+9, GENB+10, GENB+13, VPR+7, VPR+8, VPR+9, VPR+10, VPR+13 , VPR+14
^AUPNVSIT("AC"	GENB+4, VPR+6, LASTHT+4, LASTWT+4
^AUTTHF - [#9999999.64]	HF+2
^CIMSCPAT - [#19259.02]	START+7, PROC+4, BMI+4, BMI+5
^DIC(4 - [#4]	LOC+1
^TMP("CIMSNCI"	PROC+3!, A+3, B+2, C+2, D+2, E+2, E+5!, GENA+3, GENB+17, GENB+22* , GENB+27, GENE+4
^TMP($J	A+3!, B+2!, C+2!, D+2!, E+2!*, E+6!
^VA(200 - [#200]	A+6, B+3, C+3, D+3, E+3, USR+1

Label References

Name	Line Occurrences
$$CTR	START+2, START+3, START+4, HEADER+2, HEADER+3, HEADER+4, HEADER+5, HEADER+6, HEADER+7
$$LASTHT	BMI+5
$$LASTWT	BMI+4
$$LOC	START+2, HEADER+5
EOJ	YEARS+3, CONT+2, CONT+3, QUEUE+3, QUEUE+4, E+8
GENA	PROC+5
GENB	PROC+6
GENE	PROC+7
PROC	QUEUE+5
QUEUE1	QUEUE+3

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HF+1~, HF+2, HF+3, LASTHT+5~, LASTHT+7, LASTHT+11, LASTWT+5~, LASTWT+7, LASTWT+11, BMI+2~ , BMI+3, BMI+4, BMI+5, BMI+6, BMI+7, RZERO+1~, RZERO+2, LZERO+1~, LZERO+2, LBLK+1~ , LBLK+2, RBLK+1~, RBLK+2*, EOJ+2!
%DT	EOJ+2!
%H	EOJ+2!
%T	EOJ+2!
%W	EOJ+2!
%Y	EOJ+2!
A	LASTHT+5~, LASTHT+6, LASTHT+7, LASTHT+10, LASTHT+11, LASTWT+5~, LASTWT+6, LASTWT+7, LASTWT+10, LASTWT+11
APCLARRY	LASTHT+5~, LASTWT+5~
APCLARRY(1	LASTHT+7, LASTHT+11, LASTWT+7, LASTWT+11
B	VPR+3~, VPR+5, VPR+14, LASTHT+5~, LASTHT+6, LASTHT+7, LASTHT+10, LASTHT+11, LASTWT+5~, LASTWT+6 , LASTWT+7, LASTWT+10*, LASTWT+11, BMI+2~
C	START+7, START+8, NPR+1~, NPR+2, NPR+3, NPR+4, HF+1~, HF+2, VPR+3~, VPR+4* , VPR+15*, VPR+16
>> CIMSA	PROC+2, GENA+2, GENA+3
>> CIMSB	PROC+2, GENB+16, GENB+17
>> CIMSBG	GENB+3*, GENB+6
>> CIMSC	PROC+2, GENB+21, GENB+22
>> CIMSD	PROC+2, GENB+26, GENB+27
CIMSDATE	LASTHT~, LASTHT+2, LASTHT+6, LASTHT+10, LASTWT~, LASTWT+2, LASTWT+6, LASTWT+10
>> CIMSDDX	PROC+4*, GENA+1, GENB+2, GENB+3
>> CIMSE	PROC+2, GENE+3, GENE+4
>> CIMSED	GENB+3*, GENB+7
>> CIMSH	PROC+2*, PROC+3
>> CIMSJ	PROC+2*, PROC+3
>> CIMSJD	A+2*, A+5, B+3, C+3, D+3, E+3
>> CIMSLAB	GENB+19*, GENB+20
>> CIMSMED	GENB+24*, GENB+25
>> CIMSPRB	GENE+1*, GENE+2
CIMSTYPE	LASTHT~, LASTHT+3, LASTHT+8, LASTHT+9, LASTHT+13, LASTHT+14, LASTWT~, LASTWT+3, LASTWT+8, LASTWT+9 , LASTWT+13, LASTWT+14
>> CIMSYRS	YEARS+1, YEARS+4, GENB+3
>> CIMVSIT	GENB+4*, GENB+5, GENB+8, GENB+9, GENB+10, GENB+13, GENB+14, GENB+15, GENB+19, GENB+24
D	GENB+5, GENB+6, GENB+7, DATE~, DATE+1, DATE+2, VPR~, VPR+2, VPR+5, VPR+13 , LASTHT+5~, LASTHT+7, LASTHT+9, LASTHT+11, LASTHT+14, LASTWT+5~, LASTWT+7, LASTWT+9, LASTWT+11*, LASTWT+14
DA	YEARS+2!, CONT+1!
DFN	PROC+4*, GENA+1, GENB+4, GENE+1, EOJ+2!
DFOUT	EOP+4!
DIR	YEARS+2!, CONT+1!, QUEUE+2!, EOP+3~
DIR("A"	YEARS+2, CONT+1, QUEUE+2*
DIR("B"	YEARS+2, CONT+1, QUEUE+2*
DIR(0	YEARS+2, CONT+1, QUEUE+2, EOP+5
DIRUT	YEARS+3, CONT+3, QUEUE+2*, QUEUE+4, EOP+4!
DLOUT	EOP+4!
DT	A+2, LASTHT+10, LASTWT+10
DTOUT	EOJ+2!, EOP+4!
DUOUT	QUEUE+2, EOJ+2!, EOP+4!
DUZ	A+6, B+3, C+3, D+3, E+3, USR+1
DUZ(2	GENB+13, VPR+10, LOC+1
E	LASTHT+5~, LASTHT+7, LASTHT+11, LASTWT+5~, LASTWT+7, LASTWT+11
F	A+5, A+6, B+3, C+3, D+3, E+3*, LASTHT~, LASTHT+8, LASTHT+13
G	LASTHT+5~, LASTWT+5~
H	LASTHT+5~, LASTHT+7, LASTHT+8, LASTHT+9, LASTHT+11, LASTHT+12, LASTHT+13, LASTHT+14, LASTWT+5~, LASTWT+7* , LASTWT+8, LASTWT+9, LASTWT+11, LASTWT+12, LASTWT+13, LASTWT+14, BMI+2~, BMI+5, BMI+6*, EOJ+2!
I	RZERO+1~, RZERO+2, LZERO+1~, LZERO+2, LBLK+1~, LBLK+2, RBLK+1~, RBLK+2
IO("Q"	EOJ+2!
IO("S"	EOP+2
IOF	START+1, HEADER+1
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+2
J	START+5*, START+6!
L	RZERO~, RZERO+2, LZERO~, LZERO+2, LBLK~, LBLK+2, RBLK~, RBLK+2
M	EOJ+2!
N	HF~, HF+2
P	VPR~, VPR+1, VPR+6, LASTHT~, LASTHT+1, LASTHT+4, LASTHT+7, LASTHT+11, LASTWT~, LASTWT+1 , LASTWT+4, LASTWT+7, LASTWT+11, BMI~, BMI+1, BMI+4, BMI+5
POP	EOJ+2!
>> Q	QUEUE1+5*
S	EOJ+2!
T	START+5*, START+6!
TS	EOJ+2!
U	PROC+4, A+6, B+3, C+3, D+3, E+3, GENB+5, GENB+8, GENB+9, GENB+10 , GENB+13, HF+2, VPR+7, VPR+8, VPR+9, VPR+10, VPR+13, VPR+14, LASTHT+7, LASTHT+11 , LASTWT+7, LASTWT+11, BMI+4, BMI+5, USR+1, LOC+1
V	NPR~, NPR+3, HF~, HF+2, RZERO~, RZERO+2, RZERO+3, LZERO~, LZERO+2, LZERO+3 , LBLK~, LBLK+2, LBLK+3, RBLK~, RBLK+2, RBLK+3
W	BMI+2~, BMI+4, BMI+6
X	START+3, START+4, START+5, START+6!, START+7, A+2, A+3, B+2, C+2, D+2 , E+2, GENA+1, GENA+3, GENB+15, GENB+17, GENB+20, GENB+22, GENB+25, GENB+27, GENE+2 , GENE+4, NPR+1~, NPR+2, NPR+3, HF+1~, HF+2, VPR+3~, VPR+4, VPR+6*, VPR+7 , VPR+8, VPR+9, VPR+10, VPR+11, VPR+12, VPR+13, VPR+14, LASTHT+7~, LASTHT+11~, LASTWT+7~ , LASTWT+11~, EOJ+2!, CTR~, CTR+1
X1	A+2*, EOJ+2!
X2	A+2*, EOJ+2!
>> XBE	A+6, B+3, C+3, D+3, E+3*
XBF	A+6, B+3, C+3, D+3, E+3*, E+7!
XBFLT	A+6, B+3, C+3, D+3, E+3*, E+7!
XBFN	A+6, B+3, C+3, D+3, E+3*, E+7!
XBGL	A+4, B+3, C+3, D+3, E+3*, E+7!
XBMED	A+6, B+3, C+3, D+3, E+3*, E+7!
XBQ	A+6, B+3, C+3, D+3, E+3*, E+7!
XBTLE	A+6, B+3, C+3, D+3, E+3*, E+7!
Y	YEARS+4, CONT+2, QUEUE+3, EOJ+2!, CTR~, CTR+1
>> Z	RZERO+2, LZERO+2, LBLK+2, RBLK+2
>> ZTDESC	QUEUE1+2*
>> ZTDTH	QUEUE1+2*
>> ZTIO	QUEUE1+2*
ZTQUEUED	PROC+1, PROC+5, A+1, B+1, C+1, D+1, E+1, EOJ+2!, EOP+2
>> ZTRTN	QUEUE1+1*
>> ZTSAVE("CIM*"	QUEUE1+2*
ZTSK	QUEUE+1!, QUEUE1+4, QUEUE1+5, QUEUE1+6!, EOJ+2!

Customize PDF page

Package: NCI Study Extract

Routine: CIMSNCID

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items