Routine: PSS189PI

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Environemnt Check Routine Entry Point
UPDATE	; Updating the USED IN IV FLUID ORDER ENTRY field (Setting to 'NO' for no longer IV Solutions)
DUPSOL(OI,IVSOL,IVVOL,SKPIN)	; Check if there's a Duplicate IV Solution Marked to be Used in the IV Order Dialog ; Input: OI - PHARMACY ORDERABLE ITEM (#50.7) Pointer ; IVSOL - IV SOLUTIONS (#52.7) Pointer ; IVVOL - IV Solution Volume ; SKPIN - Skip Inactive? (1/0)
MSG(MSGBODY)	; Creating the Mailman Message body
MAIL(MSGTEXT)	; Compose/Send the Mailman message
ADDLINE(MSG,TXT)	; Adds a line to the Mailman Message Text

Name	Field # of Occurrence
$$GET1^DIQ	UPDATE+5, UPDATE+7, UPDATE+9, UPDATE+11, UPDATE+13, DUPSOL+13, DUPSOL+15, DUPSOL+17, DUPSOL+19, DUPSOL+21 , MSG+16, MSG+18, MSG+22
$$FMTE^XLFDT	MSG+7
$$NOW^XLFDT	MSG+7
^XMD	MAIL+8

Name	Line Occurrences (* Changed, ! Killed)
^DD(52.6	EN+12*
^DD(52.7	EN+13*
^PS(52.7 - [#52.7]	UPDATE+3, UPDATE+16*, DUPSOL+9
^TMP("PSS189PI"	EN+2!, EN+5, EN+6!, UPDATE+17*, MSG+15, MSG+17, MSG+20, MSG+21
^XUSEC(	MAIL+6

Name	Line Occurrences
ADDLINE	MSG+2, MSG+3, MSG+4, MSG+5, MSG+7, MSG+8, MSG+9, MSG+10, MSG+11, MSG+12 , MSG+16, MSG+19, MSG+23, MSG+24
MAIL	EN+5
MSG	EN+4
UPDATE	EN+3

Name	Field # of Occurrence
DIFROM	MAIL+1~
DRGINADT	UPDATE+1~, UPDATE+13*, UPDATE+14
DT	UPDATE+14, DUPSOL+15, DUPSOL+19
DUPSOL	DUPSOL+7~, DUPSOL+8, DUPSOL+9, DUPSOL+25, DUPSOL+26
DUPVOL	MSG+1~, MSG+21*, MSG+22
DUZ	MAIL+7
IVDRUG	UPDATE+1~, UPDATE+9, UPDATE+13, UPDATE+17, MSG+1~, MSG+14, MSG+17*, MSG+18, MSG+20, MSG+21
IVINADT	UPDATE+1~, UPDATE+13*, UPDATE+14
IVSOL	UPDATE+1~, UPDATE+2, UPDATE+3, UPDATE+5, UPDATE+7, UPDATE+9, UPDATE+11, UPDATE+13, UPDATE+16, UPDATE+17 , DUPSOL~, DUPSOL+11, MSG+1~, MSG+14, MSG+20, MSG+21, MSG+22
IVVOL	UPDATE+1~, UPDATE+11*, UPDATE+17, DUPSOL~, DUPSOL+23
LINE	ADDLINE+1~, ADDLINE+2*
LN	MSG+1~, MSG+8, MSG+10, MSG+11, MSG+12, MSG+18, MSG+19, MSG+22, MSG+23
MSG	ADDLINE~
MSG(	ADDLINE+2*
MSG(99999	ADDLINE+2
MSGBODY	EN+1~, EN+4, EN+5, MSG~, MSG+2, MSG+3, MSG+4, MSG+5, MSG+7, MSG+8 , MSG+9, MSG+10, MSG+11, MSG+12, MSG+16, MSG+19, MSG+23, MSG+24
MSGTEXT	MAIL~
OI	UPDATE+1~, UPDATE+7, UPDATE+13, UPDATE+17, DUPSOL~, DUPSOL+9, MSG+1~, MSG+14, MSG+15*, MSG+16 , MSG+17, MSG+20, MSG+21
OIINADT	UPDATE+1~, UPDATE+13*, UPDATE+14
OTHDRUG	DUPSOL+7~, DUPSOL+17*, DUPSOL+19
OTHSOL	DUPSOL+7~, DUPSOL+8, DUPSOL+9, DUPSOL+11, DUPSOL+13, DUPSOL+15, DUPSOL+17, DUPSOL+21, DUPSOL+25
OTHVOL	DUPSOL+7~, DUPSOL+21*, DUPSOL+23
RECPT	MAIL+1~, MAIL+6*
SECKEY	MAIL+1~, MAIL+5*, MAIL+6
SKPIN	DUPSOL~, DUPSOL+15, DUPSOL+19
TXT	EN+10~, EN+11*, EN+12, EN+13, ADDLINE~, ADDLINE+2
XMDUZ	MAIL+1~, MAIL+2*
XMSUB	MAIL+1~, MAIL+2*
XMTEXT	MAIL+1~, MAIL+8*
XMY	MAIL+1~
XMY(	MAIL+6, MAIL+7