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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSOPRKA

Package: Outpatient Pharmacy

Routine: PSOPRKA


Information

PSOPRKA ;BIR/EJW - PARK/UNPARK functionality (cont.) ; Apr 24, 2023@08:17:57

Source Information

Source file <PSOPRKA.m>

Entry Points

Name Comments DBIA/ICR reference
PARK(PSODA) ;park function ; Called from PSOPRK and edit for Outpatient and from PSORPC01 for Park from CPRS
HL7
RMP(PSODA) ;remove Rx if found in array PSORX("PSOL")
RMB(PSODA) ;remove Rx if found in array BBRX()
UNPARK(PSODA,PSODFN,ERRMSG,PSOARR) ; UNPARK FROM CPRS and refill option (including AudioCARE
; Process telephone refills option)
; Called from CPRS (PSORPC01 RPC) (Marks as unparked and queues fill to
; suspense if last fill is unreleased and label has not printed. If last fill
; is released, do auto refill.)
  • ICR #7428
    • Status: Active
    • Usage: Private
    EN ;
    EN0 ;
    EX
    ULP ;
    REFRX(REFCOM) ;
    UPKSUSP ; Update routing and date fields for latest fill and put on suspense
    GETRELDT(DA) ; get release date of last fill
    CHKLBL(PSODA,RXF) ; see if label has printed for this fill
    CHKPARK(DA,RESULT) ; Entry point for AudioCARE API to determine if parked original/refill
    ; with no refills can be requested now (will queue original/refill when refill request is received)
    CHKPRKORIG(DA) ;

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSRX - [#52] Classic Fileman Calls
    ^PS(52.5 - [#52.5] Classic Fileman Calls
    Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call