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

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Outpatient Pharmacy 7 $$RXNUM^PSOBPSU2  ($$RXRLDT,$$RXSITE)^PSOBPSUT  EXPORT^PSOSPML1  $$CHKST^PSOSPML8  PAUSE^PSOSPMU1  $$RXFILL^PSOSPMU2  $$SCREEN^PSOSPMUT  
VA FileMan 4 ^%DT  (,IX)^DIC  $$GET1^DIQ  ^DIR  
Kernel 2 ($$FMADD,$$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  
List Manager 1 FULL^VALM1  

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

Package Total Caller Graph
Outpatient Pharmacy 3 PSO SPMP MANUAL EXPORT/RX FIX  PSO SPMP1 MANUAL BATCH EXPORT  PSOSPMU1  
Kernel 1 ^ORD(101  

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.

External References

Name Field # of Occurrence
^%DT BEGDT+5, ENDDT+3
^DIC ASK+9, PRESCSEL+8, DIVSEL+6, DRGSEL+7
IX^DIC LKP+4, RXLKP+3
$$GET1^DIQ ASK+8, FILTER+15, FILTER+18, RXPRV+8, RXPRV+9, RXPRV+10
^DIR ENDDT+19, RXSEL1+3, RTSEL+12, PATLK+11
$$RXNUM^PSOBPSU2 RXSEL1+11
$$RXRLDT^PSOBPSUT RXSEL1+16
$$RXSITE^PSOBPSUT FILTER+21
EXPORT^PSOSPML1 ENDDT+30
$$CHKST^PSOSPML8 FILTER+23
PAUSE^PSOSPMU1 BEGDT+8, ENDDT+4, RXSEL1+15, RXSEL1+17, RXSEL1+19
$$RXFILL^PSOSPMU2 RXSEL1+12
$$SCREEN^PSOSPMUT RXSEL1+13
FULL^VALM1 ASK+2
$$FMADD^XLFDT BEGDT+3
$$FMTE^XLFDT BEGDT+4, ENDDT+2
$$NOW^XLFDT DIVSEL+3
$$UP^XLFSTR RXSEL1+7

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
Routine Call
  • DIC
  • Line Location:
    • ASK+9
    • PRESCSEL+8
    • DIVSEL+6
    • DRGSEL+7
Routine Call
  • DIC
  • Line Location:
    • LKP+4
    • RXLKP+3
Routine Call
  • DIR
  • Line Location:
    • ENDDT+19
    • RXSEL1+3
    • RTSEL+12
    • PATLK+11

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(58.41 - [#58.41] ASK+8
^PS(58.42 - [#58.42] RXSEL1+18, FILTER+13, FILTER+16, FILTER+19, FILTER+22, FILTER+23
^PSDRUG - [#50] CSRX+5, CSDRUG+5
^PSRX - [#52] LSTRFL+4, CSRX+4

Label References

Name Line Occurrences
$$LSTRFL RXPRV+7
$$RXLKP RXSEL1+8
$$RXPRV FILTER+12
@( ENDDT+24
BEGDT BEGDT+6, BEGDT+8
ENDDT ENDDT+4
LKP HLP+4
PATLK PATSEL+6, PATLK+13
RTSEL ENDDT+26
RXSEL1 RXSEL+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT ASK+3~, BEGDT+4*, ENDDT+2!*
%DT("A" BEGDT+4*, ENDDT+2*
%DT("B" ENDDT+2*
%DT(0 BEGDT+4*, ENDDT+2*
ARRAY ASK+4~, ENDDT+22!, ENDDT+30, NOCRITERIA+2*, PATSEL+7!, PATSEL+8*, PRESCSEL+9!, PRESCSEL+14*, DIVSEL+7!, DIVSEL+12*
, DRGSEL+8!, DRGSEL+13*, RXSEL+5*, RXSEL1+4!
ARRAY( PATSEL+6*, PRESCSEL+12*, DIVSEL+10*, DRGSEL+11*, RXSEL1+20*
ARRAY(0 ENDDT+25, PATSEL+8, PRESCSEL+10, PRESCSEL+14, DIVSEL+8, DIVSEL+12, DRGSEL+9, DRGSEL+13, RXSEL+5, RXSEL1+1
, RXSEL1+5, PATLK+13
BEGINDT ASK+3~, BEGDT+9*, ENDDT+2, ENDDT+30
D LKP+2*, RXLKP+1~, RXLKP+2*
DEA CSRX+3~, CSRX+5*, CSRX+6, CSDRUG+3~, CSDRUG+5*, CSDRUG+6
DIC ASK+3~, ASK+7*, PATSEL+2~, PRESCSEL+2~, PRESCSEL+3*, DIVSEL+1~, DIVSEL+5*, DRGSEL+2~, DRGSEL+3*, LKP+1~
, LKP+2*, RXLKP+1~, RXLKP+2*
DIC("A" ASK+7*, PATSEL+4*, PATSEL+6*, PRESCSEL+5*, PRESCSEL+13*, DIVSEL+5*, DIVSEL+11*, DRGSEL+5*, DRGSEL+12*, PATLK+8
, PATLK+9
DIC("B" ASK+8*
DIC("S" ASK+7*, PRESCSEL+6*, DIVSEL+4*, DRGSEL+4*, LKP+3*
DIC("W" PRESCSEL+4*
DIC(0 ASK+9*, PATSEL+4*, PRESCSEL+3*, DIVSEL+5*, DRGSEL+3*, LKP+2*, RXLKP+2*
DIR ASK+3~, ENDDT+9!, ENDDT+19!, PATSEL+3~, RXSEL+2~, RTSEL+4!, RTSEL+12!
DIR("?" RXSEL1+2*, RTSEL+10*, RTSEL+11*, PATLK+10*
DIR("??" RXSEL1+2*, PATLK+10*
DIR("A" ENDDT+9*, RXSEL1+1*, RTSEL+4*, PATLK+9*
DIR("B" RTSEL+12*
DIR("L" ENDDT+11*, ENDDT+12*, ENDDT+13*, ENDDT+14*, ENDDT+15*, ENDDT+16*, ENDDT+17*, ENDDT+18*, RTSEL+5*, RTSEL+6*
, RTSEL+8*, RTSEL+9*
DIR(0 ENDDT+10*, RXSEL1+2*, RTSEL+7*, PATLK+8*
DIROUT PATSEL+3~, PRESCSEL+2~, PRESCSEL+9, DIVSEL+1~, DIVSEL+7, DRGSEL+2~, DRGSEL+8, RXSEL+2~, RXSEL1+4, PATLK+12
DIRUT ASK+3~, ENDDT+19!, PRESCSEL+2~, PRESCSEL+9, DIVSEL+7, DRGSEL+2~, DRGSEL+8, RTSEL+12!
DRGIEN CSRX+3~, CSRX+4*, CSRX+5
DT BEGDT+3, BEGDT+8, ENDDT+4, DIVSEL+3~*
DTOUT ASK+3~, BEGDT+7, ENDDT+3, PATSEL+3~, PRESCSEL+2~, PRESCSEL+9, DIVSEL+1~, DIVSEL+7, DRGSEL+2~, DRGSEL+8
, RXSEL+2~, RXSEL1+4, PATLK+12
DUOUT ASK+3~, ENDDT+19!, PATSEL+3~, PRESCSEL+2~, PRESCSEL+9, DIVSEL+1~, DIVSEL+7, DRGSEL+2~, DRGSEL+8, RXSEL+2~
, RXSEL1+4, RTSEL+12!, PATLK+12
ENDDT ASK+3~, ENDDT+5*, ENDDT+30
FILL FILTER~, FILTER+10, FILTER+12, FILTER+13, FILTER+16, FILTER+19, FILTER+21, FILTER+22, FILTER+23, RXPRV~
, RXPRV+7*, RXPRV+8, RXPRV+9
FILLNUM RXSEL+2~, RXSEL1+12*, RXSEL1+13, RXSEL1+16, RXSEL1+18, RXSEL1+20
FILTER ASK+4~, ENDDT+7*, ENDDT+20*, ENDDT+23
I PATSEL+2~, PRESCSEL+2~, LSTRFL+3~, LSTRFL+4*
IEN CSDRUG~, CSDRUG+4, CSDRUG+5
INPUT LKP~, LKP+2
LIST FILTER~, FILTER+9, FILTER+10, FILTER+11, FILTER+14, FILTER+17, FILTER+20, FILTER+23
LIST( FILTER+10, FILTER+12, FILTER+15, FILTER+18, FILTER+21
LIST("STATE" FILTER+23
LSTRFL LSTRFL+3~, LSTRFL+4*, LSTRFL+5
PAGE PATLK+7!
PSOERROR ASK+3~
PSOPTLK PATSEL+6!, PATSEL+7, PATLK+7!, PATLK+14*
QUIT ASK+4~, ENDDT+7*, ENDDT+8, ENDDT+19*, ENDDT+27, PATSEL+7*, PRESCSEL+8, PRESCSEL+9*, PRESCSEL+11*, DIVSEL+6
, DIVSEL+7*, DIVSEL+9*, DRGSEL+7, DRGSEL+8*, DRGSEL+10*, RXSEL+4, RXSEL1+4*, RXSEL1+6*, RXSEL1+7*, RXSEL1+9*
, RXSEL1+10*, RXSEL1+11*, RXSEL1+12*, RTSEL+2*, RTSEL+3, RTSEL+12*
RECTYPE ASK+4~, ENDDT+30, RTSEL+2*, RTSEL+13*
RX LSTRFL~, LSTRFL+4
RXIEN RXSEL1+8*, RXSEL1+11*, RXSEL1+12, RXSEL1+13, RXSEL1+16, RXSEL1+18, RXSEL1+20, FILTER~, FILTER+10, FILTER+12
, FILTER+13, FILTER+15, FILTER+16, FILTER+18, FILTER+19, FILTER+21, FILTER+22, FILTER+23, RXPRV~, RXPRV+6
, RXPRV+7, RXPRV+8, RXPRV+9, RXPRV+10, CSRX~, CSRX+4
RXNUM RXLKP~, RXLKP+2
RXPRV RXPRV+5~, RXPRV+8*, RXPRV+9*, RXPRV+10*, RXPRV+11
RXRES FILTER+7~, FILTER+8*, FILTER+9, FILTER+10*, FILTER+11, FILTER+12*, FILTER+13*, FILTER+14, FILTER+15*, FILTER+16*
, FILTER+17, FILTER+18*, FILTER+19*, FILTER+20, FILTER+21*, FILTER+22*, FILTER+24
SCREEN RXSEL+2~, RXSEL1+13*, RXSEL1+14, RXSEL1+15
STATE ASK+4~, ASK+10*, ENDDT+30
TAG ASK+4~, ENDDT+23*, ENDDT+24, ENDDT+25
U CSRX+4, CSRX+5, CSDRUG+5
>> VALMBCK ASK+2*
X ASK+3~, ASK+9, BEGDT+6, PATSEL+2~, PRESCSEL+2~, DIVSEL+1~, RXSEL+2~, RXSEL1+5, RXSEL1+6, RXSEL1+7*
, RXSEL1+8, RXSEL1+9, RXSEL1+10, RXSEL1+11, LKP+1~, LKP+2*, RXLKP+1~, RXLKP+2*
XDT BEGDT+3~*, BEGDT+4, ENDDT+2
XX DIVSEL+1~
Y ASK+9, ASK+10, BEGDT+7, BEGDT+8, BEGDT+9, ENDDT+3, ENDDT+4, ENDDT+5, ENDDT+20, PATSEL+2~
, PATSEL+6*, PRESCSEL+2~, PRESCSEL+10, PRESCSEL+11, PRESCSEL+12, DIVSEL+1~, DIVSEL+8, DIVSEL+9, DIVSEL+10, DRGSEL+2~
, DRGSEL+9, DRGSEL+10, DRGSEL+11, RXSEL+2~, LKP+1~, LKP+5, RXLKP+1~, RXLKP+4, RTSEL+13, PATLK+12*
, PATLK+13, PATLK+14
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