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: PSOSPML7

Package: Outpatient Pharmacy

Routine: PSOSPML7


Information

PSOSPML7 ;BIRM/MFR - Resend a Group of Selected Prescriptions ;10/10/12

Source Information

Source file <PSOSPML7.m>

Entry Points

Name Comments DBIA/ICR reference
ASK ; MANUAL BATCH EXPORT
BEGDT ;
; - Ask for Start DATE
; Note: The legislation allowing VA to report was published on 02/11/2013
ENDDT ;
; - Ask for End DATE
NOCRITERIA ;
; No criteria was selected. All RXs will be sent within the given date range.
PATSEL ;
; - Selection of PATIENTS
PRESCSEL ;
; - Selection of PRESCRIBERS
DIVSEL ; - Division selection (one, multiple or ALL)
DRGSEL ;
; Prompt for drug
RXSEL ;
; - Selection of prescriptions - Prescription prompt
RXSEL1 ;
FILTER(LIST,RXIEN,FILL) ; Filter Rx Fills based on User Entered Filter Criteria
; Input: FILTER - List of Filter(s) to be screened
RXPRV(RXIEN,FILL) ; Returns the Rx Fill Provider IEN
; Input: (r) RXIEN - Rx IEN (#52)
; (o) FILL - Refill # (Default: most recent - except Partial)
; Note: "P1", "P2"... represent partial fills
; Output: RXPRV - Rx Fill Provider IEN
LSTRFL(RX) ; - Returns the latest fill for the Rx
; Input: (r) RX - Rx IEN (#52)
HLP ; Help Text for the VIEW PRESCRIPTION prompt
LKP(INPUT) ; - Performs Lookup on the PRESCRIPTION file
RXLKP(RXNUM) ; - Peforms Lookup on the PRESCRIPTION file
CSRX(RXIEN) ; Controlled Substance Rx?
; Input: RXIEN - PRESCRIPTION file (#52) pointer
RTSEL ;
; - Selection of record type
CSDRUG(IEN) ;Controlled Substance drug?
; Input: DRGIEN - DRUG file (#50) pointer
PATLK ;Entry point - Prompts for Patient, Prescription Number or Barcode
;
; Input - DIC(0) & DIC("A") [Optional]
; Used by DIR if defined by the calling routine.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: BEGDT+5
Function Call: WRITE
  • Prompt: !!?5,"Starting RELEASE DATE is required or enter '^' to exit.",!
  • Line Location: BEGDT+6
Function Call: WRITE
  • Prompt: !!?5,"Only past dates are allowed."
  • Line Location: BEGDT+8
Function Call: WRITE
  • Prompt: !!?5,"Prescriptions released today will be included in the next scheduled batch."
  • Line Location: BEGDT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: ENDDT+3
Function Call: WRITE
  • Prompt: !!?5,"The latest end date permitted is TODAY-1 (yesterday)."
  • Line Location: ENDDT+4
Function Call: WRITE
  • Prompt: !!,"You may enter one or more PATIENTS in succession.",!
  • Line Location: PATSEL+5
Function Call: WRITE
  • Prompt: !!,"You may enter one or more PRESCRIBERS in succession.",!
  • Line Location: PRESCSEL+7
Function Call: WRITE
  • Prompt: !!,"Please enter at least one PRESCRIBER or '^' to exit.",!
  • Line Location: PRESCSEL+10
Function Call: WRITE
  • Prompt: !!,"You may enter one or more DIVISIONS in succession.",!
  • Line Location: DIVSEL+2
Function Call: WRITE
  • Prompt: !!,"Please enter at least one DIVISION or '^' to exit.",!
  • Line Location: DIVSEL+8
Function Call: WRITE
  • Prompt: !!,"You may enter one or more DRUGS in succession.",!
  • Line Location: DRGSEL+6
Function Call: WRITE
  • Prompt: !!,"Please enter at least one DRUG or '^' to exit.",!
  • Line Location: DRGSEL+9
Function Call: WRITE
  • Prompt: !!,"You may enter one or more PRESCRIPTIONS in succession.",!
  • Line Location: RXSEL+3
Function Call: WRITE
  • Prompt: !!,"Please enter at least one PRESCRIPTION or '^' to exit.",!
  • Line Location: RXSEL1+5
Function Call: WRITE
  • Prompt: !?5,"The ECME# must be 7 digits long!",$C(7)
  • Line Location: RXSEL1+10
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: RXSEL1+11
Function Call: WRITE
  • Prompt: !!?1,$S($P(SCREEN,"^",3)="E":"ERROR",1:"WARNING"),": ",$P(SCREEN,"^",2),$C(7)
  • Line Location: RXSEL1+15
Function Call: WRITE
  • Prompt: !!?1,"Cannot select. Prescription not RELEASED. "
  • Line Location: RXSEL1+17
Function Call: WRITE
  • Prompt: !!?1,"Cannot select. Prescription not previously in a transmission batch. "
  • Line Location: RXSEL1+19
Function Call: WRITE
  • Prompt: !," A prescription number or ECME number may be entered. To look-up a"
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !," prescription by the ECME number, please enter ""E."" followed by the ECME"
  • Line Location: HLP+2
Function Call: WRITE
  • Prompt: !," number with or without any leading zeros."
  • Line Location: HLP+3
Function Call: WRITE
  • Prompt: !!,"Please enter at least one PATIENT or '^' to exit.",!
  • Line Location: PATLK+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^DIC(5 - [#5] Classic Fileman Calls,  GET1^DIQ
^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
52.1 GET1^DIQ
52.2 GET1^DIQ
^PS(59 - [#59] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call