PSOERXU4 ;ALB/BLB - eRx utilities ; 12/21/2020
Source file <PSOERXU4.m>
Package | Total | Call Graph |
---|---|---|
Outpatient Pharmacy | 9 | (DAYS,QTY,REFILL)^PSODIR1 SET^PSODRG REF^PSOERSE1 BATCHREM^PSOERX1H 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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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 |
Name | Field # of Occurrence |
---|---|
^DIC | REM+10, HLD+2, REJ+12, QTYDSRFL+39 |
^DIE | HLD+14 |
FILE^DIE | QTYDSRFL+35, FILE+5 |
UPDATE^DIE | REM+22, REJ+32 |
$$GET1^DIQ | DERX1+3, DERX1+6, DERX1+7, DERX1+17, DERX1+45, REM+2, REM+6, REM+17, HLD+10, HLD+13 , 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+13, REM+14, REM+17, UNREM+7, HLD+5, HLD+7, HLD+11, 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 |
REF^PSOERSE1 | REM+27, HLD+16 |
BATCHREM^PSOERX1H | REM+26, HLD+15 |
TXT2ARY^PSOERXD1 | DERX1+26, DERX1+27 |
POST^PSOERXO1 | REJ+22 |
UPDSTAT^PSOERXU1 | REM+24, HLD+13, 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 | REM+20, REJ+28 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine 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 |
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 |
>> | 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+14*, QTYDSRFL+30! |
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+14* |
DIR | REM+1~, REM+13!, REM+14!, REM+17!, UNREM+1~, HLD+5!, HLD+7!, HLD+11!, REJ+1~, REJ+9! , REJ+13!, REJ+15!, REJ+16!, REJ+24!, REJ+25!, REJ+26!, QTYDSRFL+7~, QTYDSRFL+30! |
DIR("A" | REM+14*, REM+17*, HLD+7*, HLD+10*, REJ+9*, REJ+16*, QTYDSRFL+30* |
DIR("B" | REM+17*, HLD+11*, REJ+9* |
DIR(0 | REM+8*, REM+13*, REM+14*, REM+17*, UNREM+7*, HLD+5*, HLD+7*, HLD+10*, 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+14* |
DSTR | DERX1+1~, DERX1+13*, DERX1+43 |
DUZ | REM+21, 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 | REM+1~, REM+20!, REM+22!, REJ+32!, QTYDSRFL+7~, QTYDSRFL+35!, FILE+5! |
FDA( | REM+20*, REM+21*, 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+9*, HLD+13, HLD+15 |
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, REM+24, 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+17, REM+24, REM+26, UNREM+3, HLD+10, HLD+13, HLD+14, HLD+15, 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*, REM+20, REM+21, 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*, REM+13, REM+20, REM+26, UNREM+1~, HLD+4*, HLD+5, HLD+13, HLD+14 , HLD+15 |
REMSTA | REM+1~, REM+12*, REM+24, UNREM+1~ |
REMTXT | REM+1~, REM+16*, REM+21, REM+24, REM+26, 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+27, HLD+16 |
>> VALMBCK | REM+5*, UNREM+4*, REJ+5* |
X | REM+1~, REM+14!, UNREM+1~, REJ+1~, REJ+15!, QTYDSRFL+37*, QTYDSRFL+38 |
Y | REM+1~, REM+11, REM+12, REM+14!, REM+15, REM+16, REM+18, UNREM+1~, HLD+3, HLD+4 , HLD+8, HLD+9, HLD+12, 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 |