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

Package: Outpatient Pharmacy

Routine: PSOUTL


Information

PSOUTL ;BHAM ISC/SAB - PSO utility routine ;Jun 22, 2018@08:18

Source Information

Source file <PSOUTL.m>

Entry Points

Name Comments DBIA/ICR reference
SUSPCAN ;dcl rx from suspense used in new, renew AND verification of Rxs
ACTLOG ;
ACTOUT
QUES ;INSTRUCTIONS FOR RENEW AND REFILL
ENDVCHK
CHK1
K52
S52
KILL
CID ;calculates six months limit on issue dates
CIDH
SPR
SREF
KPR
KREF
ORIG
EX
IBSS
IBSSR
WARN ;
WARN1 ;move to PSOUTLA1
CAN(PSOXRX) ;Clean up Rx when discontinued
ECAN(PSOXRX) ;Clean up Rx when expired
CMOP ;CMOP("L")=LAST FILL... if it is orig Rx =0
CMOP1
CHKCMOP(RX,REA) ;Check if an RX is Transmitted/Retransmitted to CMOP and send alert mail
TRANCMOP(RX) ;check if a fill is Transmitted or Retransmitted
MAILCMOP(RX,STR,REA) ;Send mail message to mail group PSX EXTERNAL DISPENSE ALERTS
PSOCK ;
PSSDGCK ;
PSOSUPCK(CHK) ;
OICHK(DGCKSTA,DGCKDNM) ;only orderable item on order (no drug)
DISCK(PSRX) ;
PRFLP ;
TITRX(RX) ; Returns the titration/maintenance flags
  • ICR #6980
    • Status: Active
    • Usage: Controlled Subscription
    LTHEN(RX) ; Looks for a THEN anywhere in the Complex Order.
    ; Returns: 1 if found and 0 if not found. Complex Order must contain at least one THEN conjunction
    ; in order to mark it as a Titration Rx.
    CONJ(PSOCRX) ;Looks for EXCEPT conjunction; EXCEPT conjunction disabled with PSO*7*477
    CSID() ; Determinte if the ISSUE DATE is for a CS or non-CS (Internal to this routine only)
    CSRX(RXIEN) ; Controlled Substance Rx?
    ; Input: RXIEN - PRESCRIPTION file (#52) pointer

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?5,"Enter the item #(s) or RX #(s) you wish to ",$S(PSFROM="N":"renew ",PSFROM="R":"REFILL "),"separated by commas."
    • Line Location: QUES+1
    Function Call: WRITE
    • Prompt: !?5,"For example: 1,2,5 or 123456,33254A,232323B."
    • Line Location: QUES+2
    Function Call: WRITE
    • Prompt: !?5,"Do not enter the same number twice, duplicates are not allowed."
    • Line Location: QUES+3
    Function Call: WRITE
    • Prompt: !?10,$C(7),"RX# ",$P(^PSRX(PSRX,0),"^")," is not a valid choice. (Different Division)"
    • Line Location: CHK1+0
    Function Call: READ
    • Variable: ANS
    • Timeout: DTIME
    • Line Location: CHK1+1
    Function Call: WRITE
    • Prompt: !?10,$C(7),"RX# ",$P(^PSRX(PSRX,0),"^")," is from another division. Continue? (Y/N) "
    • Line Location: CHK1+1
    Function Call: WRITE
    • Prompt: !?10,$C(7),"Answer 'YES' or 'NO'."
    • Line Location: CHK1+2
    Function Call: WRITE
    • Prompt: !!!,"*The following list of order checks is a comprehensive report of all"
    • Line Location: PSOCK+1
    Function Call: WRITE
    • Prompt: !,"Outpatient, Non-VA, and Clinic medication orders on this patient's profile."
    • Line Location: PSOCK+2
    Function Call: WRITE
    • Prompt: !,"It may include orders that are local, remote, active, pending, recently"
    • Line Location: PSOCK+3
    Function Call: WRITE
    • Prompt: !,"discontinued, or expired. Please note that the sort order and format"
    • Line Location: PSOCK+4
    Function Call: WRITE
    • Prompt: !,"displayed in this report differs from the display of MOCHA 1.0 order"
    • Line Location: PSOCK+5
    Function Call: WRITE
    • Prompt: !,"checks which occurs during order processing.*",!
    • Line Location: PSOCK+6
    Function Call: WRITE
    • Prompt: !!,"You have selected a supply item, please select another drug"
    • Line Location: PSOSUPCK+3
    Function Call: WRITE
    • Prompt: !,"or leave blank and hit enter for Profile Order Checks."
    • Line Location: PSOSUPCK+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: PSOSUPCK+4

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] GET1^DIQ
    ^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
    ^PS(52.4 - [#52.4] Classic Fileman Calls
    ^PS(52.5 - [#52.5] Classic Fileman Calls
    ^PS(59 - [#59] Classic Fileman Calls
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call