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

Package: Outpatient Pharmacy

Routine: PSOERXU4


Information

PSOERXU4 ;ALB/BLB - eRx utilities ; 12/21/2020

Source Information

Source file <PSOERXU4.m>

Entry Points

Name Comments DBIA/ICR reference
DERX1(PSOIEN,PSOIENS,DFLAG) ;
REM ;
UNREM ;
HLD
CHKSTA ; check if status is RM or type is "REM"
REJ ;
QTYDSRFL(ERXIEN,EDTYP) ;
; ERXIEN - ien from 52.49
; EDTYP:
; 1 - DAYS SUPPLY
; 2 - QUANTITY
; 3 - REFILLS
; 4 - SCHEDULE/DOSAGE EDIT
FILE ;
DAYSCHK(PSODRUG,PSODIR) ; auto calculate days supply based off quantity.
QTYCHECK(PSODRUG,PSODIR) ; return qty for days supply
; VAL: quantity

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"eRx Drug: "_EDRG_" "_$P($$ERXDRSCH^PSOERXUT(PSOIENS),"^",2)
  • Line Location: DERX1+28
Function Call: WRITE
  • Prompt: !
  • Line Location: DERX1+33
Function Call: WRITE
  • Prompt: !!,"eRx Notes: "
  • Line Location: DERX1+38
Function Call: WRITE
  • Prompt: !
  • Line Location: DERX1+41
Function Call: WRITE
  • Prompt: "Drug Form: "_DFORM,?40,"Strength: "_DSTR
  • Line Location: DERX1+43
Function Call: WRITE
  • Prompt: !,"Code List Qualifier: "_QQUAL,?40,"Quantity Unit of Measure: "_POTUC
  • Line Location: DERX1+44
Function Call: WRITE
  • Prompt: !,"Substitutions? :"_ERXDSUB
  • Line Location: DERX1+47
Function Call: WRITE
  • Prompt: !,"Qty: "_QTY,?25,"Days Supply: "_DAYS,?55,"Refills: "_REFILL,!
  • Line Location: DERX1+48
Function Call: WRITE
  • Prompt: !
  • Line Location: REM+9
Function Call: WRITE
  • Prompt: !,"Removal reason code required!"
  • Line Location: REM+13
Function Call: WRITE
  • Prompt: !
  • Line Location: REM+17
Function Call: WRITE
  • Prompt: !
  • Line Location: HLD+0
Function Call: WRITE
  • Prompt: !,"HOLD reason code required!"
  • Line Location: HLD+4
Function Call: WRITE
  • Prompt: !,"eRx NOT placed on hold."
  • Line Location: HLD+6
Function Call: WRITE
  • Prompt: !!,$G(IOINHI),"The eRx will be un-held automatically on the date you enter below and placed"
  • Line Location: HLD+7
Function Call: WRITE
  • Prompt: !,"in 'IN PROCESS' status.",$G(IOINORM)
  • Line Location: HLD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HLD+9
Function Call: WRITE
  • Prompt: !,"Reject reason required! eRx NOT rejected."
  • Line Location: REJ+13
Function Call: WRITE
  • Prompt: !,$P(PSSRET(0),U,2)
  • Line Location: REJ+24
Function Call: WRITE
  • Prompt: !,PSSRET("errorMessage")
  • Line Location: REJ+25
Function Call: WRITE
  • Prompt: !!,"Rejection message sent."
  • Line Location: REJ+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.45 - [#52.45] Classic Fileman Calls,  GET1^DIQ
^PS(52.49 - [#52.49] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ
52.4921 GET1^DIQ
52.49311 GET1^DIQ
^PS(55 - [#55] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call