Routine: APCLDEMO

Information

APCLDEMO ; IHS/CMI/LAB - Check for demo patients ; 29 Jun 2009 6:38 AM

Source file <APCLDEMO.m>

Package	Total	Call Graph
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
IHS VA Utilities	2	^XBFMK EN^XBVK
VA Fileman	2	^DIC ^DIR
IHS Patient	1	$$HRN^AUPNPAT
Kernel	1	DISP^XQORM1

Name	Comments	DBIA/ICR reference
REMX	;
EN	;EP -- main entry point for
EXPND	; -- expand code
HDR	; -- header code
ADD	;EP - add an item to the selected list - called from a protocol
EOJ	;EP
UPDATE	;create/update Demo Patient Search Template
N	;display the existing template patients
INIT	; -- init variables and list array
INTRO	;
XIT	;
REM	;EP - REMOVE PATIENT FROM SEARCH TEMPLATE
EXIT	; -- exit code
ADD1
ADDX	;
BACK	;go back to listman
EP	;EP - CALLED FROM OPTION
SELECT	;
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Unable to create search template." Line Location: SELECT+5
Function Call: WRITE	Prompt: !!,"CREATE/UPDATE ""DEMO"" PATIENT LIST" Line Location: INTRO+2
Function Call: WRITE	Prompt: !!,"This option is used to update a patient search template (list) that" Line Location: INTRO+3
Function Call: WRITE	Prompt: !,"contains the names of all of the ""demo"" or ""test"" patients in your" Line Location: INTRO+4
Function Call: WRITE	Prompt: !,"database. This template will be used to exclude these patients from" Line Location: INTRO+5
Function Call: WRITE	Prompt: !,"all PCC Management reports. " Line Location: INTRO+6
Function Call: WRITE	Prompt: !! Line Location: INTRO+7
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !! Line Location: ADD1+0
Function Call: WRITE	Prompt: !!,"That patient is already in the list." Line Location: ADD1+5
Function Call: WRITE	Prompt: ! Line Location: REM+1
Function Call: WRITE	Prompt: !,"No patient selected." Line Location: REM+4
Function Call: WRITE	Prompt: !,"No patient selected." Line Location: REM+5
Function Call: WRITE	Prompt: !!,$P(^DPT(APCLPATI,0),U)," removed from list.",!! Line Location: REM+8
Routine Call	VALM Line Location: EN+1
Routine Call	DIC Line Location: SELECT+4 ADD1+3
Routine Call	DIR Line Location: UPDATE+2 REM+3 REM+10

Name	Line Occurrences (* Changed, ! Killed)
^DIBT(	HDR+2, INIT+2, ADD1+5, ADD1+6*, REM+9!
^DIBT("B"	SELECT+1
^DPT - [#2]	INIT+4, REM+8

Name	Field # of Occurrence
APCLDEMO	INIT+1!
APCLDEMO(	INIT+4*
APCLDEMO("IDX"	INIT+5*, REM+7
>> APCLHIGH	INIT+1, INIT+7, REM+2
>> APCLPATI	REM+7*, REM+8, REM+9
>> APCLSTMP	SELECT+1, SELECT+2, SELECT+7, HDR+2, INIT+2, ADD1+5, ADD1+6, REM+9
AUPNLK	ADD1+1~
AUPNLK("ALL"	ADD1+2*
AUPNLK("INAC"	ADD1+2*
>> C	INIT+1, INIT+3, INIT+4, INIT+5, INIT+7
DA	UPDATE+2!
DIADD	SELECT+4*, SELECT+6!, XIT+2!
DIC	SELECT+3!, SELECT+4, SELECT+6!, ADD1+3!
DIC("DR"	SELECT+4*
DIC(0	SELECT+4, ADD1+3
DIR	UPDATE+2!, XIT+2!, BACK+5!, REM+3!, REM+10!
DIR("A"	UPDATE+2, REM+2, REM+10*
DIR("B"	UPDATE+2*
DIR(0	UPDATE+2, REM+2, REM+10*
>> DIRUT	UPDATE+3, REM+3*, REM+5
DLAYGO	SELECT+4*, SELECT+6!, XIT+2!
>> DUOUT	REM+3
DUZ(2	INIT+4
I	BACK+6!
IOF	INTRO+1, EN+4, REM+6
U	HDR+2, INIT+4, REM+8
>> VALMBCK	BACK+2*
>> VALMCNT	INIT+7*
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
>> VALMHDR(3	HDR+4*
X	SELECT+4, HDR+3, HDR+4, INIT+2, INIT+4, INIT+5, HELP+1, BACK+6!
Y	UPDATE+4, SELECT+5, SELECT+7, BACK+6!, ADD1+4, ADD1+5, ADD1+6, REM+4, REM+7
Z	BACK+6!