Routine: PSJ200

Name	Comments	DBIA/ICR reference
201
SEARCH	;
PRIV()	;
200()
M	; sends mail message when complete
CONVERT(DFN,TYPE)	; ; Convert existing UD orders to new format. Only run once/patient, and ; only converts orders with a stop date<(5.0 Install date-365) ; DFN = Patient IEN ; TYPE = Background or Interactive mode
A(LONG,SHORT,SHRINK)

Name	Field # of Occurrence
C^%DTC	CONVERT+8
NOW^%DTC	CONVERT+8
^%ZTLOAD	PSJ200+24
^DIC	201+2
^DIE	SEARCH+6
^DIR	201+3
EN1^PSJHL2	SEARCH+7
RESET^VALM4	A+5
^XMD	M+6

Interaction Calls

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: PSJ200+10
Function Call: WRITE	Prompt: !!," Please do one of the following:" Line Location: PSJ200+13
Function Call: WRITE	Prompt: !," a. If the name has changed, pick the correct name from the NEW PERSON file." Line Location: PSJ200+14
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: PSJ200+15
Function Call: WRITE	Prompt: !! Line Location: PSJ200+16
Function Call: WRITE	Prompt: !!," Finished. Please have IRM remove this option" Line Location: PSJ200+19
Function Call: WRITE	Prompt: " (PSJI 200) from",!," your menu, as it is no longer needed." Line Location: PSJ200+20
Function Call: WRITE	Prompt: !!,"Not all names have been corrected, PLEASE RERUN THIS OPTION!" Line Location: PSJ200+21
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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	CONVERT+12
^PS(52.6 - [#52.6]	CONVERT+12
^PS(52.7 - [#52.7]	CONVERT+12
^PS(55 - [#55]	SEARCH+7, CONVERT+6, CONVERT+10, CONVERT+11, CONVERT+12*
^VA(200 - [#200]	201+3
^XTMP("PSJ NEW PERSON"	PSJ200+5, PSJ200+11, PSJ200+16, SEARCH+2, SEARCH+4, SEARCH+8!, M+1
^XTMP("PSJ NEW1"	PSJ200+18*, SEARCH+1, SEARCH+6, SEARCH+10!
^XUSEC("PSJI MGR"	PRIV+1

Name	Line Occurrences
$$200	PSJ200+17
$$PRIV	PSJ200+8
201	201+3
CONVERT	SEARCH+3
M	SEARCH+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CONVERT+8
ADS	CONVERT+7~, CONVERT+11*, CONVERT+12
ADS1	CONVERT+7~, CONVERT+11*
DA	SEARCH+5!*, SEARCH+6!
DA(1	SEARCH+5*
DDRG	CONVERT+7~
DFN	CONVERT~, CONVERT+6, CONVERT+10, CONVERT+11, CONVERT+12
DIC	201!*, 201+2!
DIC("A"	201+1*
DIC(0	201*
DIE	SEARCH+5!*, SEARCH+6!
>> DIR("A"	201+3*
>> DIR(0	201+3*
>> DR	SEARCH+6*
DTOUT	PSJ200+9!, 201!
DUOUT	PSJ200+9!, PSJ200+16, 201!
DUZ	PRIV+1, M+2
IOF	PSJ200+10
LONG	A~, A+2
ND	CONVERT+7~, CONVERT+11*, CONVERT+12
ON	CONVERT+7~, CONVERT+10*, CONVERT+11, CONVERT+12
ON1	CONVERT+7~, CONVERT+11*
PSGDT	CONVERT+7~, CONVERT+8*, CONVERT+10
PSJ1	PSJ200+22!, SEARCH+1*, SEARCH+2, SEARCH+4, SEARCH+6, SEARCH+8, SEARCH+10, M+6!
PSJ1(1	M+3*
PSJ1(2	M+4*
PSJ1(3	M+4*
PSJ1(4	M+5*
PSJ1(5	M+6*
PSJ2	PSJ200+22!, SEARCH+2*, SEARCH+3, SEARCH+4, SEARCH+5, SEARCH+7, SEARCH+8
PSJ3	PSJ200+22!, SEARCH+4*, SEARCH+5, SEARCH+7, SEARCH+8
PSJ4	PSJ200+22!
PSJB	PSJ200+18*, PSJ200+19, PSJ200+22!
PSJBM	A+2~*, A+3, A+4
PSJC	PSJ200+22!, SEARCH+9*
PSJDFN	PSJ200+22!
PSJL	PSJ200+9!, PSJ200+11, PSJ200+12, PSJ200+16, PSJ200+18, PSJ200+22!, 201+1
PSJNUM	PSJ200+22!
PSJORD	PSJ200+22!
PSJPT	PSJ200+9!, PSJ200+17!, PSJ200+18, PSJ200+22!, 201+2, 201+3, 201+4
PSOC	SEARCH+7*, CONVERT+7~
SHORT	A~, A+2
SHRINK	A~, A+2
STAT	CONVERT+7~
STPDT	CONVERT+7~, CONVERT+10*
STS	CONVERT+7~
TYPE	CONVERT~, CONVERT+12
U	CONVERT+12
>> VALM("BM"	A+3, A+4*
>> VALM("LINES"	A+4*
>> VALM("TM"	A+4
>> VALMBCK	A+3*
>> VALMCC	A+5
>> VALMMENU	A+2
X	SEARCH+7*, CONVERT+7~, CONVERT+8
X1	CONVERT+7~, CONVERT+8*
X2	CONVERT+7~, CONVERT+8*
XMDUZ	M+3*, M+6!
XMSUB	M+2*, M+6!
XMTEXT	M+2*, M+6!
XMY	M+2!
XMY(	M+2*
XX	CONVERT+7~, CONVERT+11, CONVERT+12
>> Y	201+2, 201+3
>> ZTDESC	PSJ200+23*
>> ZTDTH	PSJ200+24*
>> ZTIO	PSJ200+23, SEARCH+11
>> ZTRTN	PSJ200+23*

Customize PDF page

Package: Inpatient Medications

Routine: PSJ200

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: