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

Package: Outpatient Pharmacy

Routine: PSORLST


Information

PSORLST ;BIRM/MFR - List of Patients/Prescriptions for Recall Notice ;12/30/09

Source Information

Source file <PSORLST.m>

Entry Points

Name Comments DBIA/ICR reference
START ; Prompt user for search/selection criteria.
LKTP ; Type of Drug Lookup
QUE ; Entry point for queued report. Begin processing based on user's selection criteria.
EXIT ; Quit.
DTRNG(BGN,END) ; Date Range Selection
EXCL() ; Exclude Deceased Patients
; Input: (o) EXCLUDE - "Y"es or "N"o
MED() ; Select Medication(s)
; Medication Selection (NDC/Dispense Drug/Generic Drug)
NDC(NDC) ; Select NDC
DDRG(PSODDRG,LOTSEL) ; Select Dispense Drug
LOT(DRGNO,DRGARR,DRGNAM) ; Enter Lot Number(s)
GENERIC(PSODDRG) ; Select drug by VA GENERIC (file 50.6)
GLOOP ; Prompt loop
ORDITEM(PSODDRG) ; Select drug by ORDERABLE ITEM (file 50.7)
OLOOP ; Prompt loop
DDSEL(DDIN,DDOUT) ; Display selectable dispense drugs (DDIN), prompt for selection, save selected dispense drugs in DDOUT
DEV ; Prompt user for output device
DIVSEL(ARRAY) ; - Division selection (one, multiple or ALL)
EXCMSG ;Display the message about capturing to an Excel file format
MARGIN
PSODED(RXIEN) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !
  • Line Location: LKTP+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: LKTP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LKTP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LKTP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DTRNG+8
Function Call: WRITE
  • Prompt: !,DIR("?")
  • Line Location: NDC+8
Function Call: WRITE
  • Prompt: !!," *** NO NDC SELECTED ***"
  • Line Location: NDC+10
Function Call: WRITE
  • Prompt: !!," *** NO MEDICATION SELECTED ***"
  • Line Location: DDRG+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LOT+5
Function Call: WRITE
  • Prompt: !?5,"At least one Lot # must be entered"
  • Line Location: LOT+9
Function Call: WRITE
  • Prompt: !?27,"* No LOT # was entered *"
  • Line Location: LOT+10
Function Call: WRITE
  • Prompt: !!," *** NO MEDICATION SELECTED ***"
  • Line Location: GLOOP+9
Function Call: WRITE
  • Prompt: !!," *** NO MEDICATION SELECTED ***"
  • Line Location: OLOOP+9
Function Call: WRITE
  • Prompt: !!?2,"Dispense Drugs"
  • Line Location: DDSEL+3
Function Call: WRITE
  • Prompt: !?2,"---------------"
  • Line Location: DDSEL+4
Function Call: WRITE
  • Prompt: !?3,II," - ",DDIN(DD)
  • Line Location: DDSEL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DDSEL+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DDSEL+6
Function Call: WRITE
  • Prompt: !,"Please try later!"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!,"You may select a single or multiple Divisions,"
  • Line Location: DIVSEL+2
Function Call: WRITE
  • Prompt: !,"or enter ^ALL to select all Divisions.",!
  • Line Location: DIVSEL+3
Function Call: WRITE
  • Prompt: !!?5,"Before continuing, please set up your terminal to capture the"
  • Line Location: EXCMSG+3
Function Call: WRITE
  • Prompt: !?5,"detailed report data. On some terminals, this can be done by"
  • Line Location: EXCMSG+4
Function Call: WRITE
  • Prompt: !?5,"clicking on the 'Tools' menu above, then click on 'Capture"
  • Line Location: EXCMSG+5
Function Call: WRITE
  • Prompt: !?5,"Incoming Data' to save to Desktop."
  • Line Location: EXCMSG+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCMSG+7
Function Call: WRITE
  • Prompt: !?5," *** THIS REPORT MAY TAKE AWHILE TO RUN ***",!!
  • Line Location: EXCMSG+8
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCMSG+10
Function Call: WRITE
  • Prompt: !!!?8,"** Users unfamiliar with sort templates should review **"
  • Line Location: MARGIN+2
Function Call: WRITE
  • Prompt: !?8,"** sort template documentation before continuing. **"
  • Line Location: MARGIN+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: MARGIN+5
Function Call: WRITE
  • Prompt: !?8,"** To avoid undesired wrapping of the output data, **"
  • Line Location: MARGIN+6
Function Call: WRITE
  • Prompt: !?8,"** please enter '0;512;999' at the 'DEVICE:' prompt. **"
  • Line Location: MARGIN+7
Function Call: WRITE
  • Prompt: !?8,"** You may need to set your Terminal Session Display **"
  • Line Location: MARGIN+8
Function Call: WRITE
  • Prompt: !?8,"** Settings to 512 columns. **"
  • Line Location: MARGIN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: MARGIN+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSNDF(50.6 - [#50.6] Classic Fileman Calls
^PS(59 - [#59] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call