Routine: PSSSOLI1

Information

PSSSOLI1 ;BIR/RTR-Manual match Solutions to Orderable Items continued ; 09/01/98 7:13

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"*** Dose Form from NDF: ",PSDOSNM Line Location: ADD+3
Function Call: WRITE	Prompt: ! Line Location: ADD+4
Function Call: WRITE	Prompt: !!,"Solution Name -> ",$G(PSSNAME),!," Volume -> ",$G(PSSVOL),!," Dose Form -> ",PSDOSNM Line Location: PASS+0
Function Call: WRITE	Prompt: $C(7),!!,"There is already an Orderable Item named:",!?5,$P($G(^PS(50.7,ZZFLAG,0)),"^")_" "_$P($G(^PS(50.606,+$P(^(0),"^",2),0)),"^"),! Line Location: PASS+2
Function Call: WRITE	Prompt: !!,"Matching: ",PSSNAME_" "_$G(PSSVOL),!," to",!,$P($G(^PS(50.7,ZZFLAG,0)),"^")_" "_$G(PSDOSNM) Line Location: PASS+4
Function Call: WRITE	Prompt: ! Line Location: PASS+4
Function Call: WRITE	Prompt: $C(7),!?5,"??",! Line Location: XDIR+3
Function Call: WRITE	Prompt: !!,"Matching: ",PSSNAME_" "_$G(PSSVOL),!," to",!,$P($G(^PS(50.7,PPFLAG,0)),"^")_" "_$P($G(^PS(50.606,+$P($G(^(0)),"^",2),0)),"^") Line Location: XDIR+5
Function Call: WRITE	Prompt: ! Line Location: XDIR+6
Function Call: WRITE	Prompt: ! Line Location: XDIR+6
Function Call: WRITE	Prompt: !!,"Matching: ",PSSNAME_" "_$G(PSSVOL),!," to",!,HOLDOI_" "_PSDOSNM Line Location: NEW+1
Function Call: WRITE	Prompt: !!,"Unable to create entry, try again!",! Line Location: NEW+3
Function Call: WRITE	Prompt: !!?3,"Now editing Orderable Item:",!?3,$P(^PS(50.7,PSSOI,0),"^")," ",$P($G(^PS(50.606,+$P(^(0),"^",2),0)),"^") Line Location: NEW+7