Routine: PSOFDAUT

Information

PSOFDAUT ;BIRM/MFR - FDA Med Guide Utilities ; 07 Jun 2005 8:39 PM

Name	Comments	DBIA/ICR reference
SELPRT(DEFAULT)	; FDA Med Guide Printer Selection	ICR #5740 Status: Active Usage: Private
PRT	; Printer prompt
PRTLST(SITE,PRTLST)	; Returns the List of FDA Medication Guide Printer for the Division ; Input: (r) SITE - Site IEN (#59) ; Output: PRTLST - Array containing list of FDA Med Guides Printers for the Division
DEFPRT(SITE)	; Returns the Default FDA Medication Guide Printer for the Division ; Input: (r) SITE - Site IEN (#59) ; Output: DEFPRT - Device Name or blank (no Default)
FDAMGDOC(RXIEN)	; Lists all FDA Med Guides for a specific Rx & Return Selection ; Input: (r) RXIEN - Prescription IEN (#52) ; Output: FDAMGDOC - FDA Med Guide PDF file name or blank, "^" (no selection)
ASK	; Prompt for FDA Medication Guide Selection
HELP	; List FDA Med Guides and prompt for selection
FDAMGLST(RXIEN,ADDLST,MGLST)	; Return a list of all FDA Med Guides for a specific Rx ; Input: (r) RXIEN - Prescription IEN (#52) ; (o) ADDLST - Add Latest FDA Med Guide to the list? (Default: 0 (No)) ; Output: MGLST - Array containing list of FDA Med Guides for the Rx (By Reference)
MGONFILE(RXIEN)	; Is there an FDA Med Guide on File for the Prescription ; Input: (r) RXIEN - Pointer to the PRESCRIPTION file (#52)	ICR #5740 Status: Active Usage: Private

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$GET1^DIQ(59,PSOSITE,.01),"'s FDA Medication Guide Printer(s) on file:",! Line Location: SELPRT+17
Function Call: WRITE	Prompt: !?5,$P(PRTLST(I),"^",2) Line Location: SELPRT+18
Function Call: WRITE	Prompt: ! Line Location: PRT+2
Function Call: WRITE	Prompt: !,"This device cannot be used for printing FDA Medication Guides." Line Location: PRT+7
Function Call: WRITE	Prompt: !,"Please, contact your IRM and ask them to update the Windows" Line Location: PRT+8
Function Call: WRITE	Prompt: !,"Network Printer Name for this device.",$C(7) Line Location: PRT+9
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: ?40,"Invalid selection.",$C(7) Line Location: ASK+6
Function Call: WRITE	Prompt: " ",$P(MGLST(X),"^",2) Line Location: ASK+7
Function Call: WRITE	Prompt: !,XX,!," # FL",?7,"FDA MED GUIDE FILE NAME",?64,"TYPE",?72,"DATE",!,XX Line Location: HELP+3
Function Call: WRITE	Prompt: !,$J(INDEX,2),?3,$J($P(MGLST(INDEX),"^"),2),?7,$P(MGLST(INDEX),"^",2) Line Location: HELP+6
Function Call: WRITE	Prompt: ?64,$P(MGLST(INDEX),"^",3),?72,$P(MGLST(INDEX),"^",4) Line Location: HELP+7