Routine: PSJBCMA1

Information

PSJBCMA1 ;BIR/MV-RETURN INFORMATION FOR AN ORDER ; 5/4/16 1:09pm

Name	Comments	DBIA/ICR reference
EN(DFN,ON,PSJTMP,PSJIGS2B,PSJEXIST)		ICR #2829 Status: Active Usage: Controlled Subscription
UDVAR	;* Set ^TMP for Unit dose & Pending orders
IVVAR	;* Set variables for IV and pending orders
UDPEND	;
TMP	;* Setup ^TMP that have common fields between IV and U/D
NAME(X,NAME,INIT,IEN)
DATE(Y)	; FM internal date/time to user readable, 4 digit year ; Y - date in FileMan internal format
STATUS(ON,X)
ADMIN(X)	; N
MVOPIAL(DFN,PSJI1,PSJI2)	; Move Other Print Info Activity log entries from NV order to Active order, during Verification
OPIWARN(AFTER)	; Warn user about OPI not printing on IV labels

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,$E(PSJSTARZ,1,29)," WARNING ",$E(PSJSTARZ,1,31) Line Location: OPIWARN+2
Function Call: WRITE	Prompt: !?5,"",$S(AFTER:" ",1:" If "),"OTHER PRINT INFO exceeds 60 characters"_$S(AFTER:"! ",1:", **") Line Location: OPIWARN+3
Function Call: WRITE	Prompt: !?5," 'Instructions too long. See Order View or BCMA for full text.' " Line Location: OPIWARN+4
Function Call: WRITE	Prompt: !?5," will print on the IV label instead of the full text. ",!?5,PSJSTARZ Line Location: OPIWARN+5
Function Call: WRITE	Prompt: !! Line Location: OPIWARN+6