Routine: AGMCDPCM

Package	Total	Call Graph
IHS Patient Registration	3	(CTR,LINE,NOW,RTRN)^AG ^AGDICLK $$S^AGVDF
Kernel	3	^%ZIS ^%ZISC (,KILL)^%ZTLOAD
VA Fileman	3	NOW^%DTC ^DIC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
ACCTS	;
ALL	;
PLAN2	;
PLANS	;
TO	;
CURRENT	;
OPEN	;
DT(DT)	;
TERM	;
DEV
WRITE
START	;EP - From TaskMan.
COUNTY	;
B1
ACTIVE	;if they have HRN, are active, and have info in VA PATIENT
END
PTS	;
FROM	;
HDR	;

External References

Name	Field # of Occurrence
NOW^%DTC	AGMCDPCM+15
^%ZIS	DEV, WRITE+1
^%ZISC	DEV+1, DEV+9, END+1
^%ZTLOAD	DEV+8
KILL^%ZTLOAD	END+4
CTR^AG	WRITE, WRITE+8
LINE^AG	HDR+27
NOW^AG	WRITE
RTRN^AG	WRITE+38, END, B1
^AGDICLK	COUNTY+6
$$S^AGVDF	END, HDR+5
^DIC	PLAN2+18
^DIR	ACCTS+3, PLAN2+8, PTS+5, FROM+3, TO+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PLAN2+1
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+1
Function Call: WRITE	Prompt: ?30,$P($G(^DPT(DFN,.13)),U) Line Location: WRITE+17
Function Call: WRITE	Prompt: "-" Line Location: WRITE+35
Function Call: WRITE	Prompt: !!!,"TOTAL MEDICAID PATIENTS: ",AGTOT Line Location: END+0
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: END+0
Function Call: WRITE	Prompt: " FOR ALL PLANS" Line Location: HDR+21
Function Call: WRITE	Prompt: ?30,"HOME PHONE" Line Location: HDR+24
Function Call: WRITE	Prompt: !! Line Location: B1+1
Routine Call	DIC Line Location: PLAN2+18
Routine Call	DIR Line Location: ACCTS+3 PLAN2+8 PTS+5 FROM+3 TO+3
Routine Call	%ZIS Line Location: DEV WRITE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTNINS - [#9999999.18]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+2, WRITE+7
^AUPNMCD - [#9000004]	ALL+2, ALL+3, ALL+7, OPEN+2, OPEN+3, OPEN+7, CURRENT+2, CURRENT+3, CURRENT+7, TERM+2 , TERM+3, TERM+7
^AUPNMCD("AB"	START+5, START+6, START+7, START+8
^AUPNPAT - [#9000001]	WRITE+18, ACTIVE+1, ALL+15, OPEN+17, CURRENT+16, TERM+17
^AUTNINS - [#9999999.18]	WRITE+29
^AUTTCOM - [#9999999.05]	COUNTY+7, COUNTY+8
^AUTTCTY - [#9999999.23]	COUNTY+9
^AUTTLOC - [#9999999.06]	DEV+5
^DIC(4 - [#4]	WRITE+4
^DIC(5 - [#5]	WRITE+20
^DPT - [#2]	WRITE+17, ACTIVE+1, ALL+17, OPEN+19, CURRENT+18, TERM+19
^TMP($J	START+4!, WRITE+11, WRITE+12, WRITE+13, WRITE+14, WRITE+15, WRITE+21, WRITE+23, WRITE+24, ALL+17* , OPEN+19, CURRENT+18, TERM+19*
^VA(200 - [#200]	WRITE+5

Label References

Name	Line Occurrences
$$DT	WRITE+26, WRITE+27, HDR+2, HDR+3
ACTIVE	START+10
ALL	START+11, ACTIVE+5
COUNTY	ALL+14, OPEN+16, CURRENT+15, TERM+16
CURRENT	ACTIVE+3
DEV	DEV+1, DEV+9
END	START+13, WRITE+39, B1
FROM	ACCTS+6
HDR	WRITE+9, WRITE+40, B1
OPEN	ACTIVE+2
START	DEV+1
TERM	ACTIVE+4
WRITE	START+12

Naked Globals

Name	Field # of Occurrence
^(	ACTIVE+1
^(0	WRITE+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV*
>> A	WRITE+35*
AG	DEV+9!
AG("DRENT"	COUNTY+4*
AG("HAT"	AGMCDPCM+13*, END!
AG("LINE"	HDR+27*
AG("LKDATA"	END+2!, COUNTY+7, COUNTY+8
AG("LKERR"	END+2!, COUNTY+7
AG("LKPRINT"	END+2!
AG("LOC"	WRITE+4*, WRITE+6, WRITE+7, END+2!
AG("PLANS"	PLANS+1!, PLAN2+4, PLAN2+11, PLAN2+12!, PLAN2+20, HDR+15, HDR+16, HDR+21, ALL+10, ALL+11 , ALL+12, OPEN+10, OPEN+11, OPEN+12, CURRENT+10, CURRENT+11, CURRENT+12, TERM+10, TERM+11, TERM+12
AG("USR"	WRITE+5*, WRITE+6, END+3!
AG("USRLOC"	WRITE+6, WRITE+7, END+3!, HDR+5
>> AGACCTS	ACCTS+4*, ACCTS+6, WRITE+17, HDR+9, HDR+10, HDR+11, HDR+12, HDR+24, ACTIVE+2, ACTIVE+3 , ACTIVE+4, ACTIVE+5
>> AGACCTS1	HDR+9, HDR+10, HDR+11, HDR+12, HDR+13
>> AGBM	WRITE+2*, WRITE+37, B1
>> AGCOMM	WRITE+10, WRITE+11, WRITE+12, WRITE+13, WRITE+14, WRITE+15, WRITE+21, WRITE+23, WRITE+24, ALL+15* , ALL+16, ALL+17, OPEN+17, OPEN+18, OPEN+19, CURRENT+16, CURRENT+17, CURRENT+18, TERM+17*, TERM+18 , TERM+19
>> AGCOV	WRITE+25, WRITE+31, WRITE+32, ALL+6, ALL+17, OPEN+6, OPEN+19, CURRENT+6, CURRENT+18, TERM+6 , TERM+19
>> AGCTY	WRITE+10, WRITE+13, WRITE+14, WRITE+15, WRITE+19, WRITE+21, WRITE+23, WRITE+24, ALL+17, OPEN+19 , CURRENT+18, TERM+19, COUNTY+5, COUNTY+8, COUNTY+9*
>> AGELG	ALL+3, ALL+4, ALL+5, ALL+6, OPEN+3, OPEN+4, OPEN+5, OPEN+6, CURRENT+3, CURRENT+4 , CURRENT+5, CURRENT+6, TERM+3, TERM+4, TERM+5, TERM+6
>> AGELG2	ALL+7, ALL+8, ALL+13, OPEN+7, OPEN+8, OPEN+13, CURRENT+7, CURRENT+8, CURRENT+13, TERM+7 , TERM+8, TERM+13
>> AGELGBEG	WRITE+22, WRITE+23, WRITE+24, WRITE+26, ALL+4, ALL+17, OPEN+4, OPEN+15, OPEN+19, CURRENT+4* , CURRENT+18, TERM+4*, TERM+19
>> AGELGBG1	WRITE+25, WRITE+26, WRITE+32
>> AGELGDT	ALL+1, ALL+2, ALL+3, OPEN+1, OPEN+2, OPEN+3, CURRENT+1, CURRENT+2, CURRENT+3, TERM+1* , TERM+2*, TERM+3
>> AGELGED1	WRITE+25, WRITE+27, WRITE+32
>> AGELGEND	ALL+5, ALL+17, OPEN+5, OPEN+14, OPEN+19, CURRENT+5, CURRENT+14, CURRENT+18, TERM+5, TERM+14 , TERM+15, TERM+19
>> AGEND	START+13, WRITE+10, WRITE+11, WRITE+12, WRITE+13, WRITE+14, WRITE+15, WRITE+39
>> AGFLAG	START+9*
>> AGFLG	ALL+9, ALL+10, ALL+11, ALL+12, OPEN+9, OPEN+10, OPEN+11, OPEN+12, CURRENT+9, CURRENT+10 , CURRENT+11, CURRENT+12, TERM+9, TERM+10, TERM+11, TERM+12
>> AGFRMDT	ACCTS+7, HDR+1, HDR+2, FROM+4*, OPEN+15, TERM+15
>> AGFRMDT1	HDR+2*, HDR+11, HDR+12
>> AGIMID	START+3, START+8, ALL+2, ALL+3, ALL+7, OPEN+2, OPEN+3, OPEN+7, CURRENT+2, CURRENT+3 , CURRENT+7, TERM+2, TERM+3, TERM+7
AGIO	AGMCDPCM+13*, DEV+9!, WRITE+2
>> AGMID	START+3, START+7, START+8, WRITE+21*, WRITE+23, WRITE+24, WRITE+32, ALL+17, OPEN+19, CURRENT+18 , TERM+19
AGNM	WRITE+8, WRITE+10, WRITE+12*, WRITE+13, WRITE+14, WRITE+15, WRITE+16, WRITE+21, WRITE+23, WRITE+24 , END+2!
AGNUM	END+2!
AGPCC	END+2!
AGPGPG	WRITE+3, END+3!, HDR+4, HDR+5
>> AGPLAN	WRITE+25, WRITE+28, WRITE+29, WRITE+32, ALL+8, ALL+11, ALL+12, ALL+17, OPEN+8, OPEN+11 , OPEN+12, OPEN+19, CURRENT+8, CURRENT+11, CURRENT+12, CURRENT+18, TERM+8*, TERM+11, TERM+12, TERM+19
>> AGPLN	HDR+14, HDR+16, HDR+17*, HDR+18, HDR+19
>> AGPLNNM	HDR+14, HDR+15, HDR+16, HDR+17
>> AGPLNS	HDR+14, HDR+18, HDR+19*, HDR+20
AGPT	END+3!
>> AGPTS	PTS+6*, START+10, START+11, HDR+6
>> AGPTS1	HDR+6, HDR+7, HDR+8
AGQIO	DEV+6*, DEV+9!, WRITE+1
>> AGRATE	WRITE+25, WRITE+30, WRITE+32, ALL+13, ALL+17, OPEN+13, OPEN+19, CURRENT+13, CURRENT+18, TERM+13 , TERM+19
>> AGREC	WRITE+24*, WRITE+27, WRITE+28, WRITE+30, WRITE+31
AGST	AGMCDPCM+14~, START+2, START+6, START+7, START+8, WRITE+10, WRITE+14, WRITE+15, WRITE+20, WRITE+21 , WRITE+23, WRITE+24, END+3!, ALL+17, OPEN+19, CURRENT+18, TERM+19
>> AGTIME	WRITE*, HDR+23
>> AGTODAY	AGMCDPCM+16*, CURRENT+14
>> AGTODT	ACCTS+7, HDR+1, HDR+3, TO+4*, OPEN+15, TERM+15
>> AGTODT1	HDR+3*, HDR+11, HDR+12
AGTOT	WRITE+3, WRITE+34, END, END+3!
AGUCI	WRITE+8*, END+3!, HDR+22
>> AGZ("I"	WRITE+1*
>> DA	COUNTY+1*
>> DFN	START+1, START+5, START+6, START+7, START+8, WRITE+10, WRITE+15, WRITE+17, WRITE+18, WRITE+21 , WRITE+23, WRITE+24, ACTIVE+1, ALL+15, ALL+17, OPEN+17, OPEN+19, CURRENT+16, CURRENT+18, TERM+17 , TERM+19, COUNTY+1
>> DFOUT	WRITE+39, B1
>> DIC	PLAN2+13, COUNTY+2
>> DIC("S"	PLAN2+17*
>> DIC(0	PLAN2+15*
DIR	ACCTS+3!, PLAN2+8!, PTS+5!, FROM+3!, TO+3!
DIR("A"	ACCTS+2, PLAN2+5, PLAN2+7, PTS+2, PTS+3, FROM+2, TO+2*
DIR("B"	PLAN2+6, PTS+4
DIR(0	ACCTS+1, PLAN2+3, PTS+1, FROM+1, TO+1*
>> DIROUT	PLAN2+10
>> DR	COUNTY+3*
DT	DT~, DT+1, DT+2, DT+3
>> DT1	DT+2, DT+3, DT+4
>> DTOUT	ACCTS+5, PLAN2+10, PTS+7, WRITE+39, FROM+5, TO+5, B1
>> DUOUT	PLAN2+10, PLAN2+21, WRITE+39, B1
DUZ	WRITE+5
DUZ(2	DEV+5, WRITE+4, WRITE+18, ACTIVE+1
G	DEV+6*, DEV+9!
IO	AGMCDPCM+13, DEV+6, WRITE+2, WRITE+9
IO("Q"	DEV+1!
IO("S"	DEV+1
ION	DEV
>> IOP	DEV, WRITE+1
IOSL	WRITE+2
IOST	DEV+1
>> POP	DEV, WRITE+1
U	DEV+5, WRITE+4, WRITE+5, WRITE+17, WRITE+18, WRITE+20, WRITE+27, WRITE+28, WRITE+29, WRITE+30 , WRITE+31, ACTIVE+1, ALL+4, ALL+5, ALL+6, ALL+8, ALL+13, ALL+15, ALL+17, OPEN+4 , OPEN+5, OPEN+6, OPEN+8, OPEN+13, OPEN+17, OPEN+19, CURRENT+4, CURRENT+5, CURRENT+6, CURRENT+8 , CURRENT+13, CURRENT+16, CURRENT+18, TERM+4, TERM+5, TERM+6, TERM+8, TERM+13, TERM+17, TERM+19 , COUNTY+8, COUNTY+9
X	AGMCDPCM+16, PLAN2+2, PLAN2+14, PLAN2+19, WRITE, WRITE+8*, END+3!
Y	ACCTS+4, ACCTS+5, PLAN2+2, PLAN2+9, PLAN2+11, PLAN2+12, PLAN2+14, PLAN2+20, PTS+6, PTS+7 , DEV+4, WRITE+8, END+3!, FROM+4, FROM+5, TO+4, TO+5
ZTDESC	DEV+5*, DEV+9!
ZTIO	DEV+4*, DEV+9!
>> ZTQUEUED	END+4
ZTRTN	DEV+3*, DEV+9!
ZTSAVE	DEV+9!
ZTSAVE(	DEV+6*
ZTSAVE("AG*"	DEV+7*
ZTSK	DEV+9!
ZTUCI	DEV+4*, DEV+9!

Customize PDF page

Package: IHS Patient Registration

Routine: AGMCDPCM

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: