Routine: PSOFDAMG

Information

PSOFDAMG ;BHAM ISC/MR - FDA Medication Guide ;11/10/09 3:44pm

Name	Comments	DBIA/ICR reference
DISPLAY	; Display the FDA Medication Guide ; Note: RX0 is a global variable (assumed as such by most hidden actions)
PRINTMG(RXIEN,PRINTER)	; This API is used to automatically print FDA Med Guides along with Rx labels. ; Input: (r) RXIEN - Pointer to the DRUG file (#50) ; (r) PRINTER - Windows Printer Network Name (e.g., '\\vhaistfpc4\IST-HP4525-1')
REPRTMG	; Entry point for Reprint FDA Medication Guide ; Note: The PSOSITE variable is assumed to be set with the Pharmacy Division IEN

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"Invalid Drug" Line Location: DISPLAY+4
Function Call: WRITE	Prompt: $C(7),!!,$$GET1^DIQ(50,DRGIEN,.01)_" not matched to the National Drug File (NDF)" Line Location: DISPLAY+6
Function Call: WRITE	Prompt: $C(7),!!,"Invalid Drug" Line Location: REPRTMG+7
Function Call: WRITE	Prompt: $C(7),!!,$$GET1^DIQ(50,DRGIEN,.01)_" not matched to the National Drug File (NDF)" Line Location: REPRTMG+9
Function Call: WRITE	Prompt: $C(7),!!,"No FDA Medication Guide on file for this Rx." Line Location: REPRTMG+10
Function Call: WRITE	Prompt: $C(7),!!,"FDA Med Guide automatic printing functionality is turned OFF for this site." Line Location: REPRTMG+11
Function Call: WRITE	Prompt: $C(7),!,"You must select a valid FDA Medication Guide printer." Line Location: REPRTMG+18
Function Call: WRITE	Prompt: !,"Select FDA Medication Guide to reprint:",! Line Location: REPRTMG+23
Function Call: WRITE	Prompt: !!,"FDA Medication Guide sent to printer." Line Location: REPRTMG+36
Function Call: WRITE	Prompt: !!,"Unable to reprint FDA Medication Guide (",$P(STATUS,"^",2),")." Line Location: REPRTMG+37
Function Call: WRITE	Prompt: ! Line Location: REPRTMG+38