Routine: APCM25SL

Name	Comments	DBIA/ICR reference
RT	;EP
REMX	;
REPORTX	;
EN	;EP -- main entry point for GPRA LIST DISPLAY
ADDALL	;
HDR	; -- header code
PT	;EP
EOJ1	;EP
EXPND	; -- expand code
BACK	;go back to listman
INIT	; -- init variables and list array
EXIT	; -- exit code
REM	;
REPORT	;EP
ADDX	;
ADD	;EP - add an item to the selected list - called from a protocol
EP	;EP - CALLED FROM OPTION
HELP	; -- help code

Name	Field # of Occurrence
^DIC	REPORT+6
^DIR	RT+3, ADD+1, REM+1, PT+3, PT+10, PT+14
EN^VALM	EN+1
TERM^VALM0	BACK+1
CLEAR^VALM1	EN+2
FULL^VALM1	EN+3, ADD+4, REM+4
^XBFMK	REPORTX+1
$$NOW^XLFDT	REPORT+5
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Select List Type.",!,"NOTE: If you select All Patients, your list may be",!,"hundreds of pages and take hours to print.",! Line Location: RT+2
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: ! Line Location: ADD+1
Function Call: WRITE	Prompt: !,"No items selected." Line Location: ADD+2
Function Call: WRITE	Prompt: !,"No items selected." Line Location: ADD+3
Function Call: WRITE	Prompt: ! Line Location: REM+1
Function Call: WRITE	Prompt: !,"No items selected." Line Location: REM+2
Function Call: WRITE	Prompt: !,"No items selected." Line Location: REM+3
Function Call: WRITE	Prompt: !!,"Please choose an output type. For an explanation of the delimited",!,"file please see the user manual.",! Line Location: PT+2
Function Call: WRITE	Prompt: !!,"You have selected to create a delimited output file. You can have this",!,"output file created as a text file in the pub directory, ",!,"OR you can have the delimited output display on your screen so that" Line Location: PT+8
Function Call: WRITE	Prompt: !,"you can do a file capture. Keep in mind that if you choose to",!,"do a screen capture you CANNOT Queue your report to run in the background!!",!! Line Location: PT+9
Function Call: WRITE	Prompt: !!,"When the report is finished your delimited output will be found in the",!,$P($G(^AUTTSITE(1,1)),U,2)," directory. The filename will be ",APCMDELF,".txt",! Line Location: PT+17
Function Call: WRITE	Prompt: !! Line Location: REPORT+2
Function Call: WRITE	Prompt: !!,"Unable to lock global, try later." Line Location: REPORT+4
Function Call: WRITE	Prompt: !!,"UNABLE TO CREATE REPORT FILE ENTRY - NOTIFY SITE MANAGER!" Line Location: REPORT+6
Routine Call	VALM Line Location: EN+1
Routine Call	DIC Line Location: REPORT+6
Routine Call	DIR Line Location: RT+3 ADD+1 REM+1 PT+3 PT+10 PT+14

FileNo	Call Tags
^APCMM25C - [#9001304.03]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^APCM25OB - [#9001304.02]	INIT+3, INIT+5, INIT+6, INIT+7
^APCMM25C - [#9001304.03]	REPORT+4, REPORTX+3, REPORT+9, REPORT+11, REPORT+12, REPORT+13, REPORT+15, REPORT+16
^AUTTSITE(1	PT+17

Name	Line Occurrences
ADDX	ADD+2, ADD+3, REM+2, REM+3
BACK	ADDX+1, ADDALL+2, REMX+1
EN	EP+1
EOJ1	EN+5
HDR	BACK+4
INIT	BACK+3
PT	PT+11, PT+15
REPORTX	REPORT+4, REPORT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCMANS	EOJ1+1!
>> APCMBD	REPORT+5
APCMC	EOJ1+1!
>> APCMDELF	PT+1, PT+7, PT+16*, PT+17
>> APCMDELT	PT+1, PT+7, PT+12*, PT+13
>> APCMED	REPORT+5
>> APCMFAC	REPORT+14
APCMGANS	EOJ1+1!, ADD+5, REM+5
APCMGC	EOJ1+1!, ADD+5, REM+5
APCMGI	EOJ1+1!, ADD+5, REM+5
APCMGLST	EOJ1+1!, INIT+1!
APCMGLST(	INIT+6*
APCMGLST("IDX"	INIT+6*, ADD+5, ADDALL+1, REM+5
APCMHIGH	EOJ1+1!, INIT+1, INIT+9, ADD+1, ADDALL+1, REM+1
APCMI	EOJ1+1!, ADD+5*
>> APCMIND(	INIT+4, ADD+5, ADDALL+1
APCMLIST	RT+4!, RT+5*
APCMLIST(	INIT+6, ADD+5, ADDALL+1, REM+5!
APCMNOLI	INIT+1!
APCMNOLI(	ADD+5, ADDALL+1
>> APCMPRV(	REPORT+10
>> APCMQUIT	RT+4, REPORT+6
>> APCMROT	PT+1, PT+5, PT+6
>> APCMRPT	REPORT+1, REPORT+5, REPORT+7, REPORT+9, REPORT+11, REPORT+12, REPORT+13, REPORT+15, REPORT+16
>> APCMRPTT	INIT+2, REPORT+9, REPORT+13
APCMTIND	EOJ1+1!
APCMX	EOJ1+1!
>> APCMXREF	INIT+2*, INIT+3
>> C	INIT+3, INIT+5, INIT+6, INIT+9, REPORT+9, REPORT+10, REPORT+11, REPORT+12, REPORT+13, REPORT+14 , REPORT+15, REPORT+16
DA	RT+3!, PT+3!, PT+10!, PT+14!, REPORT+6!, REPORTX+2!
DD	REPORTX+2!
DIADD	REPORT+5*, REPORT+6!, REPORTX+2!
DIC	REPORT+5!*, REPORT+6!, REPORTX+2!
DIC("DR"	REPORT+5*
DIC(0	REPORT+5*
DINUM	REPORTX+2!
DIR	RT+3!, BACK+5!, ADD+1!, REM+1!, PT+3!, PT+10!, PT+14!
DIR("A"	RT+3, ADD+1, REM+1, PT+3, PT+10, PT+14
DIR("B"	RT+3, PT+3, PT+10*
DIR(0	RT+3, ADD+1, REM+1, PT+3, PT+10, PT+14
>> DIRUT	RT+4, ADD+1, ADD+3, REM+1, REM+3, PT+4, PT+11, PT+15
DLAYGO	REPORT+5*, REPORT+6!, REPORTX+2!
DR	REPORT+6!, REPORTX+2!
>> DUOUT	ADD+1, REM+1
DUZ(2	REPORT+5
I	INIT+3, BACK+6!, ADDALL+1, REM+5*
IOF	EN+4, ADD+4, REM+4
U	INIT+5, INIT+6, INIT+7, PT+17
>> VALMBCK	BACK+2*
>> VALMCNT	INIT+9*
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
X	INIT+3, INIT+4, INIT+5, INIT+6, INIT+7, HELP+1, BACK+6!, ADDALL+1, REPORT+5, REPORT+10* , REPORT+11, REPORT+12, REPORT+14*, REPORT+15, REPORT+16, REPORTX+2!
Y	RT+5, INIT+3*, BACK+6!, ADD+2, ADD+5, REM+2, REM+5, PT+5, PT+12, PT+16 , REPORT+6, REPORT+7, REPORTX+2!
Z	BACK+6!

Customize PDF page

Package: Patient Care Component Table Maintiance

Routine: APCM25SL

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: