Routine: PSOERBT0

Information

PSOERBT0 ;ALB/MFR - Dispense Drug Conversion Prompts ;Jan 16, 2025@12:43:34

Name	Comments	DBIA/ICR reference
DRUGREP	; VistA Drug Replacement Entry Point

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DRUGREP+8
Function Call: WRITE	Prompt: !,DIWESUB,":" Line Location: DRUGREP+11
Function Call: WRITE	Prompt: ! Line Location: DRUGREP+12
Function Call: WRITE	Prompt: ! Line Location: DRUGREP+15
Function Call: WRITE	Prompt: ! Line Location: DRUGREP+20
Function Call: WRITE	Prompt: !!,IOINHI_$J(ENTRYNUM,4)_". "_$$GET1^DIQ(52,RXIEN,.01)_" - "_$$GET1^DIQ(52,RXIEN,6)_IOINORM Line Location: DRUGREP+26
Function Call: WRITE	Prompt: !," Replacing Dispense Drug with "_IOINHI_$$GET1^DIQ(50,NEWDRUG,.01)_IOINORM_"..." Line Location: DRUGREP+27
Function Call: WRITE	Prompt: !,"ERROR: ",$P(SWAP,"^",2) Line Location: DRUGREP+31
Function Call: WRITE	Prompt: !! Line Location: DRUGREP+32
Function Call: WRITE	Prompt: !," Creating a new Progress Note..." Line Location: DRUGREP+34
Function Call: WRITE	Prompt: !,$G(IOINHI),"A problem was encountered while creating the Progress Note.",$G(IOINORM),$C(7),! Line Location: DRUGREP+39
Function Call: WRITE	Prompt: !! Line Location: DRUGREP+40
Function Call: WRITE	Prompt: IOINHI_"OK"_IOINORM Line Location: DRUGREP+48
Function Call: WRITE	Prompt: !!,"Dispense Drug Replacement completed!",! Line Location: DRUGREP+50