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 ; 3/18/2021 14:03pm

Source Information

Source file <PSOERXU4.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Outpatient Pharmacy 6 (DAYS,QTY,REFILL)^PSODIR1  SET^PSODRG  TXT2ARY^PSOERXD1  POST^PSOERXO1  UPDSTAT^PSOERXU1  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 ;
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+11, REJ+11, QTYDSRFL+40
FILE^DIE QTYDSRFL+36, FILE+4
UPDATE^DIE REM+19, REJ+31
$$GET1^DIQ DERX1+3, DERX1+6, DERX1+7, DERX1+17, DERX1+45, REM+5, REM+8, REJ+5, REJ+8, REJ+19
, QTYDSRFL+10, QTYDSRFL+15, QTYDSRFL+16, QTYDSRFL+17, QTYDSRFL+18, QTYDSRFL+21, QTYDSRFL+22, QTYDSRFL+26, DAYSCHK+3, DAYSCHK+4
, DAYSCHK+6, DAYSCHK+7, QTYCHECK+4, QTYCHECK+5, QTYCHECK+6, QTYCHECK+7, QTYCHECK+8
GETS^DIQ DERX1+4
^DIR REM+7, REM+8, REM+12, REM+14, REJ+7, REJ+8, REJ+12, REJ+15, REJ+23, REJ+24
REJ+25, QTYDSRFL+31
DAYS^PSODIR1 QTYDSRFL+49
QTY^PSODIR1 QTYDSRFL+53
REFILL^PSODIR1 QTYDSRFL+55
SET^PSODRG QTYDSRFL+12
TXT2ARY^PSOERXD1 DERX1+26, DERX1+27
POST^PSOERXO1 REJ+21
UPDSTAT^PSOERXU1 REM+21, REJ+33
QTYX^PSOSIG DAYSCHK+17, QTYCHECK+20
FULL^VALM1 REM+2, REJ+2
$$NOW^XLFDT REM+17, REJ+27

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"eRx Drug: "_EDRG
  • 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: !,"Removal reason code required!"
  • Line Location: REM+12
Function Call: WRITE
  • Prompt: !,"Reject reason required! eRx NOT rejected."
  • Line Location: REJ+12
Function Call: WRITE
  • Prompt: !,$P(PSSRET(0),U,2)
  • Line Location: REJ+23
Function Call: WRITE
  • Prompt: !,PSSRET("errorMessage")
  • Line Location: REJ+24
Function Call: WRITE
  • Prompt: !!,"Rejection message sent."
  • Line Location: REJ+25
Routine Call
  • DIC
  • Line Location:
    • REM+11
    • REJ+11
    • QTYDSRFL+40
Routine Call
  • DIE
  • Line Location:
    • QTYDSRFL+36
    • FILE+4
Routine Call
  • DIE
  • Line Location:
    • REM+19
    • REJ+31
Routine Call
  • DIR
  • Line Location:
    • REM+7
    • REM+8
    • REM+12
    • REM+14
    • REJ+7
    • REJ+8
    • REJ+12
    • REJ+15
    • REJ+23
    • REJ+24
    • REJ+25
    • QTYDSRFL+31

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] GET1^DIQ,  GETS^DIQ
52.4921 GET1^DIQ
52.49311 GET1^DIQ
^PS(55 - [#55] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.49 - [#52.49] DERX1+16, DERX1+36, DERX1+37
^PS(55 - [#55] QTYDSRFL+37
^PSDRUG - [#50] QTYDSRFL+11, QTYDSRFL+42
^YSCL(603.01 - [#603.01] QTYDSRFL+43, QTYDSRFL+44

Label References

Name Line Occurrences
$$DAYSCHK QTYDSRFL+46
$$QTYCHECK QTYDSRFL+52
FILE QTYDSRFL+49, QTYDSRFL+53, QTYDSRFL+58

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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