Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZTLOAD  ($$FMADD,$$NOW)^XLFDT  $$UP^XLFSTR  
VA FileMan 3 ^%DT  ^DIC  ^DIR  
Pharmacy Data Management 2 (AND,DATA)^PSS50  DRGIEN^PSS50P7  
Outpatient Pharmacy 1 PROCESS^PSORLST2  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 2 PSO RECALL LIST  PSO RX LIST  
Kernel 1 ^DIC(19  

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) ;

External References

Name Field # of Occurrence
^%DT DTRNG+5, DTRNG+9
^%ZIS DEV+2, DEV+3
^%ZTLOAD DEV+8
^DIC DDRG+4, GLOOP+2, OLOOP+2, DIVSEL+7
^DIR EXCL+3, MED+5, NDC+7, LOT+5, DDSEL+6, EXCMSG+9
PROCESS^PSORLST2 QUE+2
AND^PSS50 GLOOP+4
DATA^PSS50 GLOOP+6, OLOOP+6
DRGIEN^PSS50P7 OLOOP+4
$$FMADD^XLFDT GENERIC+2, ORDITEM+2
$$NOW^XLFDT DIVSEL+4
$$UP^XLFSTR DIVSEL+8

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
Routine Call
  • DIC
  • Line Location:
    • DDRG+4
    • GLOOP+2
    • OLOOP+2
    • DIVSEL+7
Routine Call
  • DIR
  • Line Location:
    • EXCL+3
    • MED+5
    • NDC+7
    • LOT+5
    • DDSEL+6
    • EXCMSG+9
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
    • DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSNDF(50.6 - [#50.6] Classic Fileman Calls
^PS(59 - [#59] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DEV+4
^DPT - [#2] PSODED+3
^PS(59 - [#59] START+6
^PSRX - [#52] PSODED+3
^TMP($J GLOOP+3!, GLOOP+5, GLOOP+7!, OLOOP+3!, OLOOP+5, OLOOP+7!

Label References

Name Line Occurrences
$$DTRNG START+9
$$EXCL LKTP+7
$$MED LKTP+1
DDRG LKTP+3
DDSEL GLOOP+8, OLOOP+8
DEV LKTP+10
DIVSEL START+5
EXCMSG LKTP+11
EXIT START+5, LKTP+1, LKTP+2, LKTP+3, LKTP+4, LKTP+5, LKTP+10, LKTP+11
GENERIC LKTP+4
LKTP LKTP+2, LKTP+3, LKTP+4, LKTP+5
LOT DDRG+4
MARGIN LKTP+9
NDC LKTP+2
ORDITEM LKTP+5
START START+9, LKTP+1, LKTP+7, LKTP+10, LKTP+11, QUE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DTRNG+3~, DTRNG+5*, DTRNG+8!, DTRNG+9*
%DT("A" DTRNG+5*, DTRNG+9*
%DT("B" DTRNG+5*!, DTRNG+9*!
%DT(0 DTRNG+9*
%ZIS DEV+1!*, DEV+2!
ARRAY DIVSEL~, DIVSEL+6!, DIVSEL+8!*, DIVSEL+9!*, DIVSEL+12*
ARRAY( DIVSEL+10, DIVSEL+11*
BGN DTRNG~, DTRNG+5
>> DD DDSEL+5*, DDSEL+7*
DDIN DDSEL~, DDSEL+2!, DDSEL+8!
DDIN( DDSEL+5, DDSEL+7
DDOUT DDSEL~
DDOUT( DDSEL+7*
DDRG START+1~
DDRGLI GENERIC+1~, GLOOP+5*, GLOOP+6, GLOOP+7
DDRGLIA GENERIC+1~, GLOOP+8, OLOOP+8
DDRGLIA( GLOOP+7*, OLOOP+7*
>> DFN PSODED+3
DIC START+2~, DDRG+1!, DDRG+2*, GLOOP+1*, OLOOP+1*, DIVSEL+1~, DIVSEL+6*
DIC("A" DDRG+2*, GLOOP+1*, OLOOP+1*, DIVSEL+6*, DIVSEL+11*
DIC("B" DIVSEL+11!
DIC("S" DDRG+3*, OLOOP+1*, DIVSEL+5*
DIC(0 DDRG+2*, GLOOP+1*, OLOOP+1*, DIVSEL+6*
DIR EXCL+2!, EXCL+3!, MED+2!, NDC+3!, LOT+3!, DDSEL+1!, EXCMSG+9~!
DIR("?" MED+4*, NDC+6*, NDC+8
DIR("A" EXCL+2*, MED+4*, NDC+4*, LOT+4*, EXCMSG+9*
DIR("B" EXCL+3*
DIR(0 EXCL+3*, MED+3*, NDC+5*, LOT+4*, DDSEL+6*, EXCMSG+9*
DRGARR LOT~
DRGARR( LOT+6*, LOT+10!
DRGNAM LOT~, LOT+11
DRGNO LOT~, LOT+6, LOT+10
DT GENERIC+2, ORDITEM+2, DIVSEL+4~*
DTOUT DTRNG+3~, DTRNG+6, DTRNG+10, DIVSEL+1~, DIVSEL+9
DTRNG DTRNG+3~, DTRNG+4*, DTRNG+7*, DTRNG+11*, DTRNG+12
DUOUT LKTP+11, DTRNG+3~, DTRNG+6, DTRNG+10, LOT+5, DIVSEL+1~, DIVSEL+9, EXCMSG+1!
END DTRNG~, DTRNG+9
EXIT START+1~, LKTP+10, DDRG+4, LOT+1~, LOT+2, LOT+5*, LOT+7*, LOT+9, LOT+10, DEV+1!
, DEV+3*, DEV+5*
>> G DEV+7*
GENAM GENERIC+1~, GLOOP+2*
GENUM GENERIC+1~, GLOOP+2*, GLOOP+4
>> II DDSEL+5*, DDSEL+6*, DDSEL+7*
INACTDT GENERIC+1~, GENERIC+2*, GLOOP+4, GLOOP+6, ORDITEM+1~, ORDITEM+2*, OLOOP+4, OLOOP+6
IO QUE+1
IO("Q" DEV+5, DEV+8!
IOP DEV+1!, DEV+3*!
IOST EXCMSG+2
LOT LOT+1~
LOTSEL DDRG~, DDRG+4
NDC NDC~, NDC+1!, NDC+10
NDC( NDC+9*
OIDRGLI ORDITEM+1~, OLOOP+5*, OLOOP+6, OLOOP+7
OIDRGLIA ORDITEM+1~
OINAM ORDITEM+1~, OLOOP+2*
OINUM ORDITEM+1~, OLOOP+2*, OLOOP+4
OUTPUT START+2~
POP DEV+1!, DEV+3
PSODDRG START+1~, LKTP+3, LKTP+4, LKTP+5, DDRG~, DDRG+4, DDRG+5, GENERIC~, GLOOP+8, GLOOP+9
, ORDITEM~, OLOOP+8, OLOOP+9
PSODDRG( DDRG+4*
PSODEAD START+2~
PSODED PSODED+1~, PSODED+2*, PSODED+3*, PSODED+4
PSODFWL MARGIN+4!
PSODIV START+1~, START+6*
PSODJ START+1~
PSODTRNG START+1~, START+9*
>> PSODWFL MARGIN+1
PSOGEN START+1~
PSOION DEV+1*, DEV+3!, DEV+5!
PSOLOTAR LOT+1~, LOT+7, LOT+8, LOT+10!
PSOLOTAR( LOT+6*
PSOMED START+1~, LKTP+1*, LKTP+2, LKTP+3, LKTP+4, LKTP+5
PSONDC START+1~, LKTP+2
PSOOI START+1~
PSORXDIV START+1~
PSOSDIV START+2~, START+5, START+6
PSOSDIV( START+6*
PSOTYPE START+2~
PSOXDED START+1~, LKTP+7*
QT DIVSEL+1~, DIVSEL+7, DIVSEL+8*, DIVSEL+9*
RXIEN PSODED~, PSODED+3
U DTRNG+7, DTRNG+11
X DTRNG+3~, EXCL+2!, MED+2!, NDC+3!, DDRG+4!, LOT+1~, LOT+3!, GLOOP+2!, OLOOP+2!, DEV+4*
, DIVSEL+1~, DIVSEL+7, DIVSEL+8
Y DTRNG+3~, DTRNG+6, DTRNG+7, DTRNG+9, DTRNG+10, DTRNG+11, EXCL+2!, EXCL+4, MED+2!, MED+6
, NDC+2, NDC+3!, NDC+8*, NDC+9, DDRG+4!, LOT+1~, LOT+3!, LOT+6, LOT+7, LOT+9
, GLOOP+2!, OLOOP+2!, DDSEL+7, DIVSEL+1~, DIVSEL+10, DIVSEL+11
Y(0 DDRG+4
>> ZTDESC DEV+6*
>> ZTRTN DEV+6*
>> ZTSAVE( DEV+7*
ZTSK DEV+1!, DEV+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All