Routine: PSOSPMU2

Information

PSOSPMU2 ;BIRM/MFR - State Prescription Monitoring Program Utility #2 - Prompts ;10/07/15

Name	Comments	DBIA/ICR reference
ASAPVER(DEFTYPE,REGZERO,DSPHLP,DEFAULT,REQUIRED,ALLOWDEL)	; Prompt for the ASAP Version ; Input: (r) DEFTYPE - ASAP Definition Type (S: Standard Only; C: Customized Only, F: Fully Customized Only, ; A: All. A combination is also allowed, e.g., "CF") ; (r) REGZERO - Regular or Zero Report or Both ASAP Definitions (R: Regular Only; Z: Zero Report Only; ; B: Both) ;adding new parameter for Zero Report ; (o) DSPHLP - Display Help before prompting? (1: YES / 0: NO) ; (o) DEFAULT - Default ASAP Version ; (o) REQUIRED - Is Answer Required? (1: YES / 0: NO) ; (o) ALLOWDEL - Allow delete? (accepts "@" as a valid input)
ASK1	; Label used in case the prompt needs to be asked again
HLP1(VERLST)	; Help Text for ASAP Version prompt and Zero Report ASAP Version prompt
RXFILL(RXIEN)	; Select Prescription Fill #
MWA(RXIEN,FILL)	; Returns the Rx delivering (WINDOW/MAIL/ADMIN IN CLINIC)
ASAPHELP(AVER,ASEG,AFLD)	; SPMP Help Text ; Retrieve ASAP text definition/description from SPMP ASAP RECORD DEFINITION file (#58.4) ; INPUT: AVER = ASAP Version ; ASEG = ASAP Segment ; AFLD = ASAP Field

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This is a required response. Enter '^' to exit",$C(7),! Line Location: ASK1+12
Function Call: WRITE	Prompt: ?40,"Invalid ASAP Version",$C(7),! Line Location: ASK1+14
Function Call: WRITE	Prompt: !?5,"American Society for Automation in Pharmacy (ASAP) Version for Zero" Line Location: HLP1+4
Function Call: WRITE	Prompt: !?5,"Reporting to the State (no prescription fills to report). Leave blank" Line Location: HLP1+5
Function Call: WRITE	Prompt: !?5,"if the state does not require Zero Reporting." Line Location: HLP1+6
Function Call: WRITE	Prompt: !!?5,"Select one of the following:" Line Location: HLP1+7
Function Call: WRITE	Prompt: ! Line Location: HLP1+8
Function Call: WRITE	Prompt: !,HLPLN Line Location: HLP1+11
Function Call: WRITE	Prompt: ! Line Location: HLP1+12
Function Call: WRITE	Prompt: !?5,"American Society for Automation in Pharmacy (ASAP) Version" Line Location: HLP1+14
Function Call: WRITE	Prompt: !!?5,"Select one of the following:" Line Location: HLP1+15
Function Call: WRITE	Prompt: ! Line Location: HLP1+16
Function Call: WRITE	Prompt: !,HLPLN Line Location: HLP1+21
Function Call: WRITE	Prompt: ! Line Location: HLP1+22
Function Call: READ	Prompt: -" Variable: TXT["CANCEL" Timeout: " Line Location: ASAPHELP+11
Function Call: WRITE	Prompt: $S(TXT["NEW":" N -",TXT["CHANGE":" R -",TXT["CANCEL":" V -",TXT]"VOID":" V",1:" ") Line Location: ASAPHELP+11