Routine: PSODGDG1

Information

PSODGDG1 ;BHAM ISC/SAB - DRUG INTERACTION PROCESSOR ;02/25/94 9:14

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PROCESS+2
Function Call: WRITE	Prompt: !,$P(^DPT(DFN,0),"^"),?40,"ID#:"_VA("PID")_" RX #"_$P(INT,"^") Line Location: PROCESS+2
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: PROCESS+6
Function Call: WRITE	Prompt: ! Line Location: PROCESS+7
Function Call: WRITE	Prompt: !!,"Canceling Rx: "_$P($G(^PSRX(DA,0)),"^")_" "_"Drug: "_$P($G(^PSDRUG($P(^PSRX(DA,0),"^",6),0)),"^"),! Line Location: DEL+0
Function Call: WRITE	Prompt: " ACTION NOT TAKEN!",! Line Location: UPOUT+0

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