Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSOSPMU2

Package: Outpatient Pharmacy

Routine: PSOSPMU2


Information

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

Source Information

Source file <PSOSPMU2.m>

Entry Points

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
CUSTDEL(PSOASVER,SEGID,ELMPOS,ELMDATA,RETURN) ; Define elements for 'custom standard' ASAP version - PSO*7*772
; PSOASVER - ASAP Version to be udpated
; ELMDATA - Input string containing updated elements
; RETURN - Destination array containing updated elements
STDSEGCU(PSOASVER,STDASAP,CUSASAP,ALLASAP,CUSSEG) ; Customize Standard Segment - 772
; PSOASVER - ASAP Version
; STDASAP - Array of only Standard ASAP components related to PSOASVER
; CUSASAP - Array of only Custom ASAP components related to PSOASVER
; ALLASAP - Array of combined Standard and Custom components related to PSOASVER
; CUSSEG - Segment being worked on

Interaction Calls

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+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HLP1+13
Function Call: WRITE
  • Prompt: !?5,"American Society for Automation in Pharmacy (ASAP) Version"
  • Line Location: HLP1+15
Function Call: WRITE
  • Prompt: !!?5,"Select one of the following:"
  • Line Location: HLP1+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HLP1+17
Function Call: WRITE
  • Prompt: !,HLPLN
  • Line Location: HLP1+25
Function Call: WRITE
  • Prompt: !
  • Line Location: HLP1+26
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
Function Call: WRITE
  • Prompt: !,"Parent Segment ID not found.",$C(7)
  • Line Location: STDSEGCU+24
Function Call: WRITE
  • Prompt: !,"Parent Segment ID cannot be its own parent.",$C(7)
  • Line Location: STDSEGCU+25
Function Call: WRITE
  • Prompt: " ",$P(ALLASAP(X),"^",2)
  • Line Location: STDSEGCU+26
Function Call: WRITE
  • Prompt: !,"The Segment '",SEG,"' (",$P(ALLASAP(SEG),"^",2),") already occupies this position.",$C(7)
  • Line Location: STDSEGCU+45
Function Call: WRITE
  • Prompt: !,"Orphan segments can only be located at the MAIN HEADER or MAIN TRAILER levels.",$C(7)
  • Line Location: STDSEGCU+59
Function Call: WRITE
  • Prompt: !,"Segment level must be the same as the parent's level (",$P($G(ALLASAP(SEGPAR)),"^",6),").",$C(7)
  • Line Location: STDSEGCU+63
Function Call: WRITE
  • Prompt: !,"Segment level cannot be lower than parent's level (",$P($G(ALLASAP(SEGPAR)),"^",6),").",$C(7)
  • Line Location: STDSEGCU+65
Function Call: WRITE
  • Prompt: !,"Segment level cannot be more than 1 level above parent's level (",$P($G(ALLASAP(SEGPAR)),"^",6),").",$C(7)
  • Line Location: STDSEGCU+67
Function Call: WRITE
  • Prompt: ?40,"Saving..."
  • Line Location: STDSEGCU+73
Function Call: WRITE
  • Prompt: "OK",$C(7)
  • Line Location: STDSEGCU+80

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
52.1 GET1^DIQ
52.2 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call