Routine: PSJ200A

Package	Total	Caller Graph
Inpatient Medications	1	PSJI ACTIVITY LOG VA200

Entry Points

Name	Comments	DBIA/ICR reference
201
M	; sends mail message when complete
SEARCH	;
PRIV()	;
200()

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!," The following user names were found in IV orders. These names have either",!," been deleted, changed, or are duplicates in the NEW PERSON file.",! Line Location: PSJ200A+8
Function Call: WRITE	Prompt: !!," Please do one of the following:" Line Location: PSJ200A+11
Function Call: WRITE	Prompt: !," a. If the name has changed, pick the correct name from the NEW PERSON file." Line Location: PSJ200A+12
Function Call: WRITE	Prompt: !," b. If the person has been deleted from the file, please see the appropriate",!?3," person to get this named added back into the NEW PERSON file and rerun this",!?3," option." Line Location: PSJ200A+13
Function Call: WRITE	Prompt: !! Line Location: PSJ200A+14
Function Call: WRITE	Prompt: !!," Finished. Please have IRM remove this option" Line Location: PSJ200A+17
Function Call: WRITE	Prompt: " (PSJI 200) from",!," your menu, as it is no longer needed." Line Location: PSJ200A+18
Function Call: WRITE	Prompt: !!,"Not all names have been corrected, PLEASE RERUN THIS OPTION!" Line Location: PSJ200A+19
Function Call: WRITE	Prompt: ! Line Location: 201+0
Function Call: WRITE	Prompt: !," You must hold the PSJI MGR security to run this routine" Line Location: PRIV+2
Routine Call	DIE Line Location: SEARCH+6
Routine Call	DIC Line Location: 201+2
Routine Call	DIR Line Location: 201+3

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	201+3
^XTMP("PSJ NEW PERSON"	PSJ200A+3, PSJ200A+9, PSJ200A+14, SEARCH+2, SEARCH+3, SEARCH+7, SEARCH+8!, M+1
^XTMP("PSJ NEW1"	PSJ200A+16*, SEARCH+1, SEARCH+5, SEARCH+10!
^XUSEC("PSJI MGR"	PRIV+1

Name	Field # of Occurrence
>> %	SEARCH+7
DA	SEARCH+4!*, SEARCH+6!
DA(1	SEARCH+4*
DA(2	SEARCH+4*
DIC	201!*, 201+2!
DIC("A"	201+1*
DIC(0	201*
DIE	SEARCH+4!*, SEARCH+6!
>> DIR("A"	201+3*
>> DIR(0	201+3*
>> DR	SEARCH+6*
DTOUT	PSJ200A+7!, 201!
DUOUT	PSJ200A+7!, PSJ200A+14, 201!
DUZ	PRIV+1, M+2
IOF	PSJ200A+8
PSJ1	SEARCH+1*, SEARCH+2, SEARCH+3, SEARCH+5, SEARCH+7, SEARCH+8, SEARCH+10, SEARCH+11!, M+6!
PSJ1(1	M+3*
PSJ1(2	M+4*
PSJ1(3	M+4*
PSJ1(4	M+5*
PSJ1(5	M+6*
PSJ2	SEARCH+2*, SEARCH+3, SEARCH+4, SEARCH+7, SEARCH+8, SEARCH+11!
PSJ3	SEARCH+3*, SEARCH+4, SEARCH+7, SEARCH+8, SEARCH+11!
PSJ4	SEARCH+3*, SEARCH+4, SEARCH+7, SEARCH+11!
PSJB	PSJ200A+16*, PSJ200A+17, PSJ200A+20!
PSJC	PSJ200A+20!, SEARCH+9*
PSJDFN	PSJ200A+20!
PSJDUZ	SEARCH+5*, SEARCH+6, SEARCH+7, SEARCH+8!
PSJL	PSJ200A+7!, PSJ200A+9, PSJ200A+10, PSJ200A+14, PSJ200A+16, PSJ200A+20!, 201+1
PSJNUM	PSJ200A+20!
PSJORD	PSJ200A+20!
PSJPT	PSJ200A+7!, PSJ200A+15!, PSJ200A+16, PSJ200A+20!, 201+2, 201+3, 201+4
XMDUZ	M+3*, M+6!
XMSUB	M+2*, M+6!
XMTEXT	M+2*, M+6!
XMY	M+2!
XMY(	M+2*
>> Y	201+2, 201+3
>> ZTDESC	PSJ200A+21*
>> ZTDTH	PSJ200A+22*
>> ZTIO	PSJ200A+21, SEARCH+12
>> ZTRTN	PSJ200A+21*