Routine: PSOERXU4

Information

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

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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+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

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+5
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+14
Routine Call	DIE Line Location: QTYDSRFL+35 FILE+5
Routine Call	DIE Line Location: REM+22 REJ+32
Routine Call	DIR Line Location: 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

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+5

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+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

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOERXU4

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: