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

Package: Outpatient Pharmacy

Routine: PSOUTLA1


Information

PSOUTLA1 ;BHAM ISC/RTR-Pharmacy utility program cont. ; 17 Jun 2011 2:21 PM

Source Information

Source file <PSOUTLA1.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;Formats condensed, back door sig in BSIG array
EN2(PSOBINTR,PSOBLGTH) ;
EN3(PSOBINTR,PSOBLGTH) ;
START ;
PATCH ;Allow sites to backfill more than what was done at install
PATCHR ;Begin task
PATCHQ
DEACHK(PSIRXN,PSDEA,PSDAYS,PCLOZ,PSOCS,PSMAXRF) ;Apply DEA restrictions
NUMFILLS(PSIRXN) ;Return number of fills thus far, or 0 if doesn't apply
; function returns: if Active drug, then number of refills thus far
; else return 0 for does not apply
; Input Variables: PSIRXN = internal RX number (Optional)
TOTALDS(RXIEN) ; Return the Total number of Days Supply for a prescription
; Input: RXIEN - PRESCRIPTION file (#52) IEN (Internal Entry Number)
REFIP(RXI,RFIL,TYP) ;Check if refill is Not Released and In Process and
; pending Auto Release by an external dispense machine.
; Input: RXI = internal Prescription no.
; RFIL= refill number
; TYP ="R"-refill or "P"-partial
; Returns 1 = In Process (Not OK to delete)
; 0 = Not In Process (OK to delete)
WARN1 ;partial del checks *259

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Your CPRS/Outpatient installation date is "_$G(PSOBACKS)_","_" which",!,"means we have already backfilled all active prescriptions and all",!,"prescriptions canceled or expired after "_$G(PSOBACKD)_"."
  • Line Location: PATCH+5
Function Call: WRITE
  • Prompt: !!,"If you want to backfill orders that were canceled or expired prior to this",!,"date of "_$G(PSOBACKD)_", enter an earlier date and those orders",!,"will be backfilled to CPRS.",!
  • Line Location: PATCH+6
Function Call: WRITE
  • Prompt: !!,"We cannot determine the date of the CPRS/Outpatient installation.",!
  • Line Location: PATCH+7
Function Call: WRITE
  • Prompt: !,"If you choose to backfill more orders to CPRS by utilizing this option,",!,"we remind you that disk storage can be significantly affected, depending on",!,"how many orders are backfilled.",!
  • Line Location: PATCH+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PATCH+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PATCH+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PATCH+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PATCH+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
52.1 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call