Routine: PSOERXU4

Information

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

Package	Total	Call Graph
Outpatient Pharmacy	10	(DAYS,QTY,REFILL)^PSODIR1 SET^PSODRG REF^PSOERSE1 BATCHREM^PSOERX1H TXT2ARY^PSOERXD1 POST^PSOERXO1 UPDSTAT^PSOERXU1 $$EFFDATE^PSOERXU5 ($$ERXDRSCH,AUDLOG)^PSOERXUT QTYX^PSOSIG
VA FileMan	4	^DIC (,FILE,UPDATE)^DIE ($$GET1,GETS)^DIQ ^DIR
Kernel	1	($$FMADD,$$FMTE,$$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+40
^DIE	HLD+21
FILE^DIE	QTYDSRFL+36, 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+9, HLD+17 , HLD+20, REJ+2, REJ+6, REJ+9, REJ+20, QTYDSRFL+10, QTYDSRFL+15, QTYDSRFL+16, QTYDSRFL+17, QTYDSRFL+18 , QTYDSRFL+19, QTYDSRFL+22, QTYDSRFL+23, QTYDSRFL+26, QTYDSRFL+52, QTYDSRFL+53, 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+4, HLD+6, HLD+11, HLD+14, HLD+18 , REJ+8, REJ+9, REJ+13, REJ+16, REJ+24, REJ+25, REJ+26, QTYDSRFL+31
DAYS^PSODIR1	QTYDSRFL+49
QTY^PSODIR1	QTYDSRFL+55
REFILL^PSODIR1	QTYDSRFL+57
SET^PSODRG	QTYDSRFL+12
REF^PSOERSE1	REM+27, HLD+23
BATCHREM^PSOERX1H	REM+26, HLD+22
TXT2ARY^PSOERXD1	DERX1+26, DERX1+27
POST^PSOERXO1	REJ+22
UPDSTAT^PSOERXU1	REM+24, HLD+20, REJ+34
$$EFFDATE^PSOERXU5	HLD+10
$$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
$$FMADD^XLFDT	HLD+9
$$FMTE^XLFDT	HLD+10
$$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+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
Routine Call	DIC Line Location: REM+10 HLD+2 REJ+12 QTYDSRFL+40
Routine Call	DIE Line Location: HLD+21
Routine Call	DIE Line Location: QTYDSRFL+36 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+4 HLD+6 HLD+11 HLD+14 HLD+18 REJ+8 REJ+9 REJ+13 REJ+16 REJ+24 REJ+25 REJ+26 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]	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+37
^PSDRUG - [#50]	QTYDSRFL+11, QTYDSRFL+42
^YSCL(603.01 - [#603.01]	QTYDSRFL+43, QTYDSRFL+44

Label References

Name	Line Occurrences
$$DAYSCHK	QTYDSRFL+47
$$QTYCHECK	QTYDSRFL+54
CHKSTA	UNREM+5
FILE	QTYDSRFL+49, QTYDSRFL+55, QTYDSRFL+60
HLD	HLD+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADUR	DAYSCHK+1~
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
DA	UNREM+1~, HLD+21*, QTYDSRFL+31!
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+40!
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+40
DIE	UNREM+1~, HLD+21*
DIR	REM+1~, REM+13!, REM+14!, REM+17!, UNREM+1~, HLD+4!, HLD+6!, HLD+9!, HLD+14!, HLD+18! , REJ+1~, REJ+9!, REJ+13!, REJ+15!, REJ+16!, REJ+24!, REJ+25!, REJ+26!, QTYDSRFL+7~, QTYDSRFL+31!
DIR("A"	REM+14, REM+17, HLD+11, HLD+14, HLD+17, REJ+9, REJ+16, QTYDSRFL+31
DIR("B"	REM+17, HLD+10, HLD+18, REJ+9
DIR(0	REM+8, REM+13, REM+14, REM+17, UNREM+7, HLD+4, HLD+6, HLD+9, HLD+14, HLD+17 , REJ+8, REJ+9, REJ+13, REJ+16, REJ+24, REJ+25, REJ+26, QTYDSRFL+31
>> DIROUT	HLD+6, HLD+11
>> DIRUT	HLD+6, HLD+11
DONE	QTYDSRFL+7~, QTYDSRFL+28, QTYDSRFL+29, QTYDSRFL+32, QTYDSRFL+33*
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+21*
DSTR	DERX1+1~, DERX1+13*, DERX1+43
DT	HLD+9
DUZ	REM+21, REJ+30, FILE+7, FILE+8, FILE+9
EDRG	DERX1+1~, DERX1+8*, DERX1+28
EDTYP	QTYDSRFL~, QTYDSRFL+46, QTYDSRFL+51, QTYDSRFL+57
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+22, QTYDSRFL+23
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+36!, FILE+5!
FDA(	REM+20, REM+21, REJ+28, REJ+29, REJ+30, REJ+31, FILE+2, FILE+3, FILE+4*
FDA(55	QTYDSRFL+35*
FULLTXT	REJ+1~, REJ+21*, REJ+22
HCOMM	UNREM+1~, HLD+16*, HLD+20, HLD+22
>> HFFDT	HLD+12*, HLD+20, HLD+22
I	DERX1+1~, DERX1+31, DERX1+32, DERX1+39, DERX1+40, DAYSCHK+1~
IENS	DAYSCHK+1~
>> IOINHI	HLD+7
>> IOINORM	HLD+8
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+54*
NEWSTA	UNREM+1~
NEWVAL	FILE+1~, FILE+7, FILE+8, FILE+9
NEWVAL(1	FILE+7, FILE+8, FILE+9*
NWDAYSUP	QTYDSRFL+7~, QTYDSRFL+47*, QTYDSRFL+48
PATSTAT	QTYDSRFL+7~, QTYDSRFL+26*, QTYDSRFL+27
POTUC	DERX1+1~, DERX1+18*, DERX1+44
PQUIT	QTYDSRFL+7~, QTYDSRFL+33*
PSODFN	QTYDSRFL+7~, QTYDSRFL+15*, QTYDSRFL+26, QTYDSRFL+27, QTYDSRFL+35, QTYDSRFL+37, QTYDSRFL+43
PSODIR	QTYDSRFL+7~, QTYDSRFL+47, QTYDSRFL+49, QTYDSRFL+55, QTYDSRFL+57, DAYSCHK~, QTYCHECK~
PSODIR("# OF	REFILLS" , QTYDSRFL+18, QTYDSRFL+19, QTYDSRFL+22, QTYDSRFL+23, QTYDSRFL+24*, FILE+4, FILE+9
PSODIR("DAYS	SUPPLY" , QTYDSRFL+17, QTYDSRFL+47, QTYDSRFL+48, FILE+3, FILE+8
PSODIR("DFLG"	QTYDSRFL+25*, QTYDSRFL+58
PSODIR("PATIE	NT STATUS" , QTYDSRFL+37*, QTYDSRFL+38
PSODIR("PTST	NODE" , QTYDSRFL+41*
PSODIR("QTY"	QTYDSRFL+16, QTYDSRFL+53, QTYDSRFL+54*, QTYDSRFL+59, FILE+2, FILE+7, DAYSCHK+11
PSODRG	QTYDSRFL+7~, QTYDSRFL+13*, QTYDSRFL+42
PSODRUG	QTYDSRFL+7~, QTYDSRFL+47, 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+9, HLD+10, HLD+17, HLD+20, HLD+21 , HLD+22, CHKSTA+1, REJ+4, REJ+6, REJ+9, REJ+22, REJ+34, QTYDSRFL+19, QTYDSRFL+52, QTYDSRFL+53 , 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+51, QTYDSRFL+57
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+56!, 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+50!, 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+59, 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+5, HLD+20, HLD+21, HLD+22
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, REJ+13, REJ+14, REJ+24, QTYDSRFL+37
VAL	DAYSCHK+2~, QTYCHECK+2~, QTYCHECK+13*, QTYCHECK+14
>> VALMAR	REM+27, HLD+23
>> VALMBCK	REM+5, UNREM+4, REJ+5*
X	REM+1~, REM+14!, UNREM+1~, REJ+1~, REJ+15!, QTYDSRFL+38*, QTYDSRFL+39
Y	REM+1~, REM+11, REM+12, REM+14!, REM+15, REM+16, REM+18, UNREM+1~, HLD+3, HLD+4 , HLD+5, HLD+6, HLD+12, HLD+15, HLD+16, HLD+19, REJ+1~, REJ+10, REJ+13, REJ+14 , REJ+15!, REJ+17, REJ+19, QTYDSRFL+7~, QTYDSRFL+32, QTYDSRFL+33, QTYDSRFL+34, QTYDSRFL+41
Y(0	QTYDSRFL+41

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOERXU4

Information

Source Information

Call Graph

Call Graph Total: 16

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: