Routine: PSSP110

Information

PSSP110 ; Post init routine for patch PSS*1*110 03/30/2006 4:57P

Source file <PSSP110.m>

Name	Comments	DBIA/ICR reference
EN	; Entry point ; Convert the NAME field in files #51 & 51.1 to all CAPS
MSG1	; Send message to user DUZ for files 51 & 51.1
SEND	;
ENQ
COM	; Compile a list of all medication routes that do NOT ; have an abbreviation and send it to DUZ.
CON	; Convert ONLY lowercase alphabet to uppercase. All other characters ; in the NAME field are left alone.

FileNo	Call Tags
^PS(51 - [#51]	Classic Fileman Calls
^PS(51.1 - [#51.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.2 - [#51.2]	COM+3, COM+4, COM+5

Name	Field # of Occurrence
D0	EN+3~
DA	EN+3~, CON+7*
DD	EN+3~
DIE	EN+3~, EN+9, EN+15, CON+3, CON+6, CON+7
DIFROM	EN+4~
DR	EN+3~, CON+7*
DUZ	EN+6, SEND+1
PSSAST	EN+3~, CON+5, CON+9, CON+12
PSSCNT	EN+3~, CON+2, CON+11, COM+2, COM+7, COM+9, MSG1+1
PSSFLG	EN+4~, CON+2, CON+10, MSG1+6
PSSI	EN+3~, CON+2, CON+3, CON+4, CON+5, CON+12, COM+2, COM+3, COM+4, COM+5
PSSJ	EN+3~, CON+5, CON+7, COM+5, COM+6, COM+8
PSSLN	EN+3~, CON+2, CON+12, COM+2, COM+7, COM+8, MSG1+7, MSG1+8, MSG1+9, MSG1+10 , MSG1+11*, MSG1+12
PSSTXT	EN+3~, SEND+3!
PSSTXT(	CON+12, COM+8, MSG1+8, MSG1+10, MSG1+12*
PSSTXT(1	COM+10, COM+12, MSG1+2, MSG1+4
PSSTXT(2	COM+13, MSG1+5
U	EN+5*, COM+6, COM+8
XMDUZ	EN+4~, EN+6, SEND+1
XMSUB	EN+4~, EN+11, EN+17
XMTEXT	EN+4~, SEND+1*
XMY	EN+4~
XMY(	EN+6, SEND+1