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

Package: Outpatient Pharmacy

Routine: PSOERXU4


Information

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

Source Information

Source file <PSOERXU4.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Outpatient Pharmacy 8 (DAYS,QTY,REFILL)^PSODIR1  SET^PSODRG  INIT^PSOERX1  TXT2ARY^PSOERXD1  POST^PSOERXO1  UPDSTAT^PSOERXU1  ($$ERXDRSCH,AUDLOG)^PSOERXUT  QTYX^PSOSIG  
VA FileMan 4 ^DIC  (,FILE,UPDATE)^DIE  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 1 $$NOW^XLFDT  
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: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSOERX1B  PSOERXD2  

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

External References

Name Field # of Occurrence
^DIC REM+10, HLD+2, REJ+12, QTYDSRFL+39
^DIE HLD+13
FILE^DIE QTYDSRFL+35, FILE+5
UPDATE^DIE REJ+32
$$GET1^DIQ DERX1+3, DERX1+6, DERX1+7, DERX1+17, DERX1+45, REM+2, REM+6, REM+16, HLD+9, HLD+12
, REJ+2, REJ+6, REJ+9, REJ+20, QTYDSRFL+10, QTYDSRFL+15, QTYDSRFL+16, QTYDSRFL+17, QTYDSRFL+18, QTYDSRFL+21
, QTYDSRFL+22, QTYDSRFL+25, QTYDSRFL+51, QTYDSRFL+52, DAYSCHK+4, DAYSCHK+5, DAYSCHK+6, DAYSCHK+7, DAYSCHK+9, QTYCHECK+4
, QTYCHECK+5, QTYCHECK+6, QTYCHECK+7, QTYCHECK+9, QTYCHECK+11
GETS^DIQ DERX1+4
^DIR REM+8, REM+11, REM+13, REM+16, UNREM+7, HLD+3, HLD+6, HLD+10, REJ+8, REJ+9
, REJ+13, REJ+16, REJ+24, REJ+25, REJ+26, QTYDSRFL+30
DAYS^PSODIR1 QTYDSRFL+48
QTY^PSODIR1 QTYDSRFL+54
REFILL^PSODIR1 QTYDSRFL+56
SET^PSODRG QTYDSRFL+12
INIT^PSOERX1 REM+20, HLD+14
TXT2ARY^PSOERXD1 DERX1+26, DERX1+27
POST^PSOERXO1 REJ+22
UPDSTAT^PSOERXU1 REM+19, HLD+12, REJ+34
$$ERXDRSCH^PSOERXUT DERX1+28
AUDLOG^PSOERXUT FILE+7, FILE+8, FILE+9
QTYX^PSOSIG DAYSCHK+12, QTYCHECK+12
FULL^VALM1 REM+3, UNREM+2, REJ+3
$$NOW^XLFDT REJ+28

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+11
Function Call: WRITE
  • Prompt: !
  • Line Location: REM+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HLD+0
Function Call: WRITE
  • Prompt: !,"HOLD reason code required!"
  • Line Location: HLD+3
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
Routine Call
  • DIC
  • Line Location:
    • REM+10
    • HLD+2
    • REJ+12
    • QTYDSRFL+39
Routine Call
  • DIE
  • Line Location:
    • HLD+13
Routine Call
  • DIE
  • Line Location:
    • QTYDSRFL+35
    • FILE+5
Routine Call
  • DIE
  • Line Location:
    • REJ+32
Routine Call
  • DIR
  • Line Location:
    • REM+8
    • REM+11
    • REM+13
    • REM+16
    • UNREM+7
    • HLD+3
    • HLD+6
    • HLD+10
    • REJ+8
    • REJ+9
    • REJ+13
    • REJ+16
    • REJ+24
    • REJ+25
    • REJ+26
    • QTYDSRFL+30

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.45 - [#52.45] CHKSTA+1, CHKSTA+3
^PS(52.49 - [#52.49] DERX1+16, DERX1+36, DERX1+37, CHKSTA+1, DAYSCHK+3, QTYCHECK+3
^PS(55 - [#55] QTYDSRFL+36
^PSDRUG - [#50] QTYDSRFL+11, QTYDSRFL+41
^YSCL(603.01 - [#603.01] QTYDSRFL+42, QTYDSRFL+43

Label References

Name Line Occurrences
$$DAYSCHK QTYDSRFL+46
$$QTYCHECK QTYDSRFL+53
CHKSTA UNREM+5
FILE QTYDSRFL+48, QTYDSRFL+54, QTYDSRFL+59
HLD HLD+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADUR DAYSCHK+1~
ANS QTYDSRFL+7~, QTYDSRFL+33*, QTYDSRFL+34
CLOZPAT QTYDSRFL+7~, QTYDSRFL+42*, QTYDSRFL+43*, QTYDSRFL+44*
COMM DERX1+1~, DERX1+10*, DERX1+27, DERX1+41
COMMARY DERX1+1~, DERX1+27
COMMARY( DERX1+39, DERX1+40
DA UNREM+1~, HLD+13*
DAYS DERX1+1~, DERX1+20*, DERX1+48
DAYSUP DAYSCHK+1~, DAYSCHK+13*, DAYSCHK+14
DFLAG DERX1~, DERX1+5
DFLG DERX1+2~, DERX1+5*, DERX1+42
DFORM DERX1+1~, DERX1+12*, DERX1+43
DIC REM+1~, REM+9*, REM+10!, UNREM+1~, HLD+1*, HLD+2!, REJ+1~, REJ+11*, REJ+12!, QTYDSRFL+39*!
DIC("A" REM+9*, HLD+2*, REJ+11*
DIC("B" HLD+1*
DIC("S" REM+9*, HLD+1*, REJ+11*
DIC(0 REM+9*, HLD+1*, REJ+11*, QTYDSRFL+39*
DIE UNREM+1~, HLD+13*
DIR REM+1~, REM+11!, REM+13!, REM+16!, UNREM+1~, HLD+3!, HLD+6!, HLD+10!, REJ+1~, REJ+9!
, REJ+13!, REJ+15!, REJ+16!, REJ+24!, REJ+25!, REJ+26!, QTYDSRFL+7~, QTYDSRFL+30!
DIR("A" REM+13*, REM+16*, HLD+6*, HLD+9*, REJ+9*, REJ+16*, QTYDSRFL+30*
DIR("B" REM+16*, HLD+10*, REJ+9*
DIR(0 REM+8*, REM+11*, REM+13*, REM+16*, UNREM+7*, HLD+3*, HLD+6*, HLD+9*, REJ+8*, REJ+9*
, REJ+13*, REJ+16*, REJ+24*, REJ+25*, REJ+26*, QTYDSRFL+30*
DONE QTYDSRFL+7~, QTYDSRFL+27*, QTYDSRFL+28, QTYDSRFL+31*, QTYDSRFL+32*
DOSE DAYSCHK+2~, DAYSCHK+3*, DAYSCHK+4, DAYSCHK+5, DAYSCHK+6, DAYSCHK+7, QTYCHECK+2~, QTYCHECK+3*, QTYCHECK+4, QTYCHECK+5
, QTYCHECK+6, QTYCHECK+7
DR UNREM+1~, HLD+13*
DSTR DERX1+1~, DERX1+13*, DERX1+43
DUZ REJ+30, FILE+7, FILE+8, FILE+9
EDRG DERX1+1~, DERX1+8*, DERX1+28
EDTYP QTYDSRFL~, QTYDSRFL+45, QTYDSRFL+50, QTYDSRFL+56
ERR QTYDSRFL+35!
ERXDAT DERX1+1~
ERXDAT( DERX1+8, DERX1+9, DERX1+10, DERX1+11, DERX1+12, DERX1+13, DERX1+14, DERX1+18, DERX1+19, DERX1+20
, DERX1+21, DERX1+24
ERXDRUG QTYDSRFL+7~, QTYDSRFL+10*, QTYDSRFL+11, QTYDSRFL+13
ERXDSUB DERX1+1~, DERX1+45*, DERX1+46*, DERX1+47
ERXIEN QTYDSRFL~, QTYDSRFL+8, QTYDSRFL+10, QTYDSRFL+15, QTYDSRFL+16, QTYDSRFL+17, QTYDSRFL+18, QTYDSRFL+21, QTYDSRFL+22
ERXIENS QTYDSRFL+7~, QTYDSRFL+8*, FILE+2, FILE+3, FILE+4
ERXRFLS DERX1+1~
ERXRJIEN REJ+1~
ERXRMIEN REM+1~, UNREM+1~
ESIG DERX1+1~, DERX1+9*, DERX1+26, DERX1+33
FDA REJ+32!, QTYDSRFL+7~, QTYDSRFL+35!, FILE+5!
FDA( REJ+28*, REJ+29*, REJ+30*, REJ+31*, FILE+2*, FILE+3*, FILE+4*
FDA(55 QTYDSRFL+34*
FULLTXT REJ+1~, REJ+21*, REJ+22
HCOMM UNREM+1~, HLD+8*, HLD+12
I DERX1+1~, DERX1+31*, DERX1+32, DERX1+39*, DERX1+40, DAYSCHK+1~
IENS DAYSCHK+1~
MBMSITE REM+1~, REM+2*, REM+6, REM+19, REJ+1~, REJ+2*, REJ+6
MIEN DERX1+2~, DERX1+16*, DERX1+17, DERX1+36, DERX1+37
MTYPE DERX1+2~, DERX1+6*, DERX1+25
NEWQTY QTYDSRFL+7~, QTYDSRFL+53*
NEWSTA UNREM+1~
NEWVAL FILE+1~, FILE+7, FILE+8, FILE+9
NEWVAL(1 FILE+7*, FILE+8*, FILE+9*
NWDAYSUP QTYDSRFL+7~, QTYDSRFL+46*, QTYDSRFL+47
PATSTAT QTYDSRFL+7~, QTYDSRFL+25*, QTYDSRFL+26
POTUC DERX1+1~, DERX1+18*, DERX1+44
PQUIT QTYDSRFL+7~, QTYDSRFL+32*
PSODFN QTYDSRFL+7~, QTYDSRFL+15*, QTYDSRFL+25, QTYDSRFL+34, QTYDSRFL+36, QTYDSRFL+42
PSODIR QTYDSRFL+7~, QTYDSRFL+46, QTYDSRFL+48, QTYDSRFL+54, QTYDSRFL+56, DAYSCHK~, QTYCHECK~
PSODIR("# OF REFILLS" , QTYDSRFL+18*, QTYDSRFL+21, QTYDSRFL+22, QTYDSRFL+23*, FILE+4, FILE+9
PSODIR("DAYS SUPPLY" , QTYDSRFL+17*, QTYDSRFL+46, QTYDSRFL+47*, FILE+3, FILE+8
PSODIR("DFLG" QTYDSRFL+24*, QTYDSRFL+57
PSODIR("PATIE NT STATUS" , QTYDSRFL+36*, QTYDSRFL+37
PSODIR("PTST NODE" , QTYDSRFL+40*
PSODIR("QTY" QTYDSRFL+16*, QTYDSRFL+52*, QTYDSRFL+53*, QTYDSRFL+58, FILE+2, FILE+7, DAYSCHK+11
PSODRG QTYDSRFL+7~, QTYDSRFL+13*, QTYDSRFL+41
PSODRUG QTYDSRFL+7~, QTYDSRFL+46, DAYSCHK~, QTYCHECK~
PSODRUG("IEN" DAYSCHK+10, QTYCHECK+10
PSOIEN DERX1~, DERX1+3, DERX1+6, DERX1+7, DERX1+16, DERX1+17, DERX1+36, DERX1+37, DERX1+45, REM+4
, REM+6, REM+16, REM+19, UNREM+3, HLD+9, HLD+12, HLD+13, CHKSTA+1, REJ+4, REJ+6
, REJ+9, REJ+22, REJ+34, QTYDSRFL+51, QTYDSRFL+52, FILE+7, FILE+8, FILE+9, DAYSCHK+3, DAYSCHK+4
, DAYSCHK+5, DAYSCHK+6, DAYSCHK+7, DAYSCHK+9, QTYCHECK+3, QTYCHECK+4, QTYCHECK+5, QTYCHECK+6, QTYCHECK+7, QTYCHECK+9
, QTYCHECK+11
PSOIENS DERX1~, DERX1+4, DERX1+8, DERX1+9, DERX1+10, DERX1+11, DERX1+12, DERX1+13, DERX1+14, DERX1+18
, DERX1+19, DERX1+20, DERX1+21, DERX1+24, DERX1+28, REM+1~, REM+4*, UNREM+1~, UNREM+3*, REJ+1~
, REJ+4*, REJ+28, REJ+29, REJ+30, REJ+31
PSONEW QTYDSRFL+7~
PSONEW("FLD" QTYDSRFL+50*, QTYDSRFL+56*
PSOY QTYDSRFL+7~, QTYDSRFL+11*
PSOY(0 QTYDSRFL+11*
PSSRET REM+1~, UNREM+1~, REJ+1~, REJ+22
PSSRET("errorMessage" REJ+25
PSSRET(0 REJ+24
QQUAL DERX1+1~, DERX1+14*, DERX1+17*, DERX1+44
QTY DERX1+1~, DERX1+19*, DERX1+48
QTYARY QTYDSRFL+55!, QTYCHECK+2~, QTYCHECK+12
QTYARY("CONJUNCTION" QTYCHECK+7*
QTYARY("DAYS SUPPLY" , QTYCHECK+11*
QTYARY("DOSE ORDERED" , QTYCHECK+4*, QTYCHECK+8
QTYARY("DRUG" QTYCHECK+10*
QTYARY("DURATION" QTYCHECK+6*
QTYARY("PATIENT" QTYCHECK+9*
QTYARY("QTY" QTYCHECK+13
QTYARY("SCHEDULE" QTYCHECK+5*
QTYDSRFL QTYDSRFL+49!, DAYSCHK+1~, DAYSCHK+2~, DAYSCHK+12
QTYDSRFL("CONJUNCTION" DAYSCHK+7*
QTYDSRFL("DAY S SUPPLY" , DAYSCHK+13
QTYDSRFL("DOS E ORDERED" , DAYSCHK+4*, DAYSCHK+8
QTYDSRFL("DRUG" DAYSCHK+10*
QTYDSRFL("DURATION" DAYSCHK+6*
QTYDSRFL("PATIENT" DAYSCHK+9*
QTYDSRFL("QTY" QTYDSRFL+58*, DAYSCHK+11*
QTYDSRFL("SCHEDULE" DAYSCHK+5*
REFILL DERX1+1~, DERX1+21*, DERX1+23, DERX1+24*, DERX1+25*, DERX1+48
REJDESC REJ+1~, REJ+20*, REJ+21
REJIEN REJ+1~, REJ+14*, REJ+20, REJ+29
REJSTA REJ+1~, REJ+14*, REJ+21
REJTXT REJ+1~, REJ+19*, REJ+21, REJ+31
REMIEN REM+1~, REM+12*, UNREM+1~, HLD+4*, HLD+12, HLD+13
REMSTA REM+1~, REM+12*, REM+19, UNREM+1~
REMTXT REM+1~, REM+15*, REM+19, UNREM+1~, REJ+1~
RESVAL DERX1+2~, DERX1+7*, DERX1+25
RXSTAT REM+1~, REM+6*, UNREM+1~, UNREM+5, CHKSTA+1*, CHKSTA+2, CHKSTA+3*, REJ+1~, REJ+6*
S2017 DERX1+2~, DERX1+3*, DERX1+14, DERX1+15, DERX1+22, DERX1+29, DERX1+34
SEQ UNREM+1~
SGLOOP DERX1+2~, DERX1+36*, DERX1+37
SIGARY DERX1+1~, DERX1+26
SIGARY( DERX1+31, DERX1+32
STAIEN CHKSTA+1*, CHKSTA+2!, CHKSTA+3!
SUBS DERX1+1~, DERX1+11*
U REM+11, REM+12, HLD+3, HLD+4, REJ+13, REJ+14, REJ+24, QTYDSRFL+36
VAL DAYSCHK+2~, QTYCHECK+2~, QTYCHECK+13*, QTYCHECK+14
>> VALMAR REM+20, HLD+14
>> VALMBCK REM+5*, UNREM+4*, REJ+5*
X REM+1~, REM+13!, UNREM+1~, REJ+1~, REJ+15!, QTYDSRFL+37*, QTYDSRFL+38
Y REM+1~, REM+11, REM+12, REM+13!, REM+14, REM+15, REM+17, UNREM+1~, HLD+3, HLD+4
, HLD+7, HLD+8, HLD+11, REJ+1~, REJ+10, REJ+13, REJ+14, REJ+15!, REJ+17, REJ+19
, QTYDSRFL+7~, QTYDSRFL+31, QTYDSRFL+32, QTYDSRFL+33, QTYDSRFL+40
Y(0 QTYDSRFL+40
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