Routine: PSOOREDT

Package	Total	Call Graph
Outpatient Pharmacy	25	$$LSTRFL^PSOBPSU1 $$STATUS^PSOBPSUT ^PSOBUILD EN^PSOCMOPC EDTDAW^PSODAWUT EN^PSODIAG PROV^PSODIR SIG^PSODIR1 (NDC,POST,SET)^PSODRG $$CSDRG^PSOERUT6 EN^PSOHLSN1 HLDHDR^PSOLMUTL EOJ^PSONEW LOCK^PSOORCPY (EN,INS)^PSOORED1 (EDTDOSE,FLDT,ISDT,REF)^PSOORED2 (DRG,PSOCOU,PSOI,UPDATE)^PSOORED6 (NDCDAWDE,NOCHG)^PSOORED7 ACT^PSOORNE2 $$NDF^PSOORNEW MWP^PSOPRK (LOG,POST)^PSORXED (EN1,POP)^PSOSIGNO $$TITRX^PSOUTL CLEAN^PSOVER1
VA FileMan	3	FIELD^DID EN^DIQ1 ^DIR
Inpatient Medications	1	$$ISCLOZ^PSJCLOZ
List Manager	1	FULL^VALM1
Pharmacy Data Management	1	($$L,PSOL,PSOUL,UL)^PSSLOCK

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSO EDIT ORDERS PSOLMUTL PSOORED6
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
SEL
EDTSEL
EX
EX1
QUIT
EX2
EDT	; Rx Edit (Backdoor)
CHK
CHKX
PROV	;select provider
UDPROV	;update provider
SIG	;edit medication instructions (SIG)
UL	;
SVAL	;Set message for patient lock
SVALO	;Set message for order lock
PAUSE	;
REQFLDS(FIELDS)	; Checks if fields 1,2 or 3 are being edited
CSFLDBLK(FIELDS)	; checks if this field shold be blocked for a controlled substance

Name	Field # of Occurrence
FIELD^DID	EDT+71, EDT+86, EDT+91
EN^DIQ1	EDT+72, EDT+77, EDT+87
^DIR	SEL+7, EDT+11, EDT+38, EDT+74, EDT+78, EDT+89, CHK+5, PROV+4, PAUSE+2
$$ISCLOZ^PSJCLOZ	EDT+46
$$LSTRFL^PSOBPSU1	SEL+4, EDT+33
$$STATUS^PSOBPSUT	SEL+6, EDT+59
^PSOBUILD	EX+8, QUIT
EN^PSOCMOPC	QUIT
EDTDAW^PSODAWUT	EDT+61
EN^PSODIAG	EDT+53, EDT+54
PROV^PSODIR	PROV+2
SIG^PSODIR1	SIG+4
NDC^PSODRG	EDT+48
POST^PSODRG	EDT+51
SET^PSODRG	EDT+7
$$CSDRG^PSOERUT6	EDT+8, EDT+41
EN^PSOHLSN1	EX1
HLDHDR^PSOLMUTL	EDTSEL
EOJ^PSONEW	EX+12
LOCK^PSOORCPY	SEL, EDTSEL+1
EN^PSOORED1	EX+6
INS^PSOORED1	EDT+52
EDTDOSE^PSOORED2	EDT+51
FLDT^PSOORED2	EDT+58
ISDT^PSOORED2	EDT+57
REF^PSOORED2	EDT+35
DRG^PSOORED6	EDT+54
PSOCOU^PSOORED6	EDT+36
PSOI^PSOORED6	EDT+53
UPDATE^PSOORED6	EX+1
NDCDAWDE^PSOORED7	EDT+32
NOCHG^PSOORED7	EDT+63
ACT^PSOORNE2	QUIT
$$NDF^PSOORNEW	EDT+8, EDT+41
MWP^PSOPRK	EDT+67
LOG^PSORXED	EX+1
POST^PSORXED	EX+1
EN1^PSOSIGNO	SIG+4
POP^PSOSIGNO	EDT+25, EDT+30
$$TITRX^PSOUTL	EDT+28
CLEAN^PSOVER1	EX2+2
$$L^PSSLOCK	SEL, EDTSEL+1
PSOL^PSSLOCK	SEL+1, EDTSEL+2
PSOUL^PSSLOCK	UL+3
UL^PSSLOCK	SEL+1, EDTSEL+2, UL+2
FULL^VALM1	EDT+51

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EX2+2
Function Call: WRITE	Prompt: !,"for controlled substances. These field(s) will be skipped.",! Line Location: EDT+10
Function Call: WRITE	Prompt: $C(7) Line Location: EDT+29
Function Call: WRITE	Prompt: !!,"Digitally Signed Order - Provider can't be changed" Line Location: EDT+55
Function Call: WRITE	Prompt: !,"Data Required!",! Line Location: EDT+81
Function Call: WRITE	Prompt: ! Line Location: CHK+5
Function Call: WRITE	Prompt: ! Line Location: PROV+3
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Routine Call	DIR Line Location: SEL+7 EDT+11 EDT+38 EDT+74 EDT+78 EDT+89 CHK+5 PROV+4 PAUSE+2

FileNo	Call Tags
^PSRX - [#52]	FIELD^DID

Name	Line Occurrences (* Changed, ! Killed)
^PS(53 - [#53]	EDT+20
^PSDRUG - [#50]	EDT+7, EDT+21, EDT+22, CHK
^PSRX - [#52]	QUIT, QUIT+1, EDT+4, EDT+6, EDT+14, EDT+15, EDT+17, EDT+18, EDT+20, EDT+21* , EDT+24, EDT+54, EDT+93, CHK+2, CHK+4, CHK+7, UDPROV+1, UDPROV+2, SIG+1, SIG+2 , SIG+3, SIG+5*!
^VA(200 - [#200]	EDT+24, PROV+1

Name	Line Occurrences
$$CSFLDBLK	EDT+9
$$REQFLDS	EDT+28
CHK	EDT+25, EDT+30
EDT	EDTSEL+3
EX	EDTSEL
EX1	EX+1
EX2	EX
PAUSE	EDT+55
PROV	EDT+56
SVAL	SEL, EDTSEL+1
SVALO	SEL+1, EDTSEL+2
UL	SEL+7, EX, EX+13, QUIT

Name	Field # of Occurrence
^("I"	CHK
^("IND"	EDT+6
^("INS"	EDT+6
^("INSS"	EDT+6
^("SIG"	EDT+6, EDT+15
^(2	EDT+6
^(3	EDT+6, UDPROV+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
B	CSFLDBLK+1~, CSFLDBLK+3*
CHK	EX+10!, EX2+1!, EDT+25, EDT+30, CHK*
CSDRG	EDT+2~, EDT+8*, EDT+9
DA	EDT+14, EDT+17, EDT+18, EDT+20, EDT+21, EDT+24, EDT+25, EDT+30, EDT+53, EDT+67 , EDT+73, EDT+75, EDT+77, EDT+78, EDT+80, EDT+81!, EDT+84, EDT+88, EDT+90
DAW	EDT+61~, EDT+62
DEA	EDT+3!
DIC	EDT+72!, EDT+77!*, EDT+81!, EDT+87!
DIQ	EDT+72!, EDT+77!, EDT+81!, EDT+87*!
DIR	SEL+5!, SEL+7!, EDTSEL!, EDT+11!, EDT+38!, EDT+39!, EDT+40!, EDT+67!, EDT+74!, EDT+75! , EDT+76!, EDT+80!, EDT+81!, EDT+84!, EDT+89!, EDT+90!, CHK+3!, CHKX!, PROV+3!, PROV+6! , PAUSE+1~
DIR("?"	CHK+4*
DIR("A"	SEL+5, CHK+4, PROV+3, PROV+4, PAUSE+2*
DIR("B"	EDT+73, EDT+78, EDT+88, CHK+5
DIR(0	SEL+6, EDT+11, EDT+38, EDT+74, EDT+78, EDT+89, CHK+4, PROV+3, PAUSE+2*
DIROUT	EDT+75!, EDT+76!, EDT+84!, EDT+90!
DIRUT	SEL+5!, SEL+7!, EDTSEL!, EDT+38!, EDT+39!, EDT+40!, EDT+72!, EDT+74!, EDT+75!, EDT+76! , EDT+80!, EDT+81!, EDT+84!, EDT+87!, EDT+89!, EDT+90!, CHK+5, PROV+3!, PROV+5, PROV+6!
DR	EDT+35, EDT+36, EDT+37, EDT+40, EDT+64, EDT+66, EDT+69, EDT+70, EDT+71, EDT+72* , EDT+73, EDT+74, EDT+75, EDT+78, EDT+79, EDT+80, EDT+81!, EDT+82, EDT+83, EDT+84 , EDT+85, EDT+86, EDT+87*, EDT+88, EDT+89, EDT+90, EDT+91
DRGIEN	EDT+2~, EDT+12*, EDT+41
DT	CHK
DTOUT	SEL+7!, EDTSEL!, EDT+40!, EDT+72!, EDT+80!, EDT+87!, CHK+3!, CHKX!
DUOUT	SEL+5!, EDT+38!, EDT+72!, EDT+80!, EDT+87!, CHK+3!, CHKX!, PROV+6!
>> FDR	EDT+26, EDT+31, EDT+35
FIELDS	REQFLDS~, REQFLDS+3, CSFLDBLK~, CSFLDBLK+3
FLD	EX+9!, EX2+1!, EDT+12*
FLDCHECK	CSFLDBLK+1~, CSFLDBLK+2, CSFLDBLK+3, CSFLDBLK+5
FLN	EX+9!, EX2+1!, EDT+12*, EDT+13, EDT+32, EDT+34, EDT+35, EDT+47, EDT+50, EDT+51 , EDT+52, EDT+53, EDT+54, EDT+55, EDT+56, EDT+57, EDT+58, EDT+59, EDT+60, EDT+63
FLNCHK	EDT+2~, EDT+13*, EDT+41
FST	EDTSEL*, EX+9!, EX2+1!, EDT+9, EDT+12, EDT+28
I	EDT+4, EDT+93, UDPROV+2, UDPROV+3!, SIG+2, REQFLDS+1~, REQFLDS+3*
IEN	EX+9!, EX2+1!
INCOM	EX+9!, EX2+1!
NCPDPFLG	EX+5*, EDT+3!
NDC	EDT+48~, EDT+49
NEWEDT	EDTSEL+3*, EX+11!, EX2+2!
>> ORN	SEL+1, SEL+4, SEL+6, EDTSEL+2, QUIT, QUIT+1, EDT+4, EDT+6, EDT+14, EDT+28 , EDT+33, UL+3
>> PREVMWP	EDT+67*
>> PRKMW	EDT+68, EDT+69
>> PSODAYS	EDT+20*
PSODE	EDTSEL+1, EDTSEL+2, EDTSEL+4*, EX+10!, EX1, EX2+1!
>> PSODFN	SEL, SEL+1, EDTSEL+1, EDTSEL+2, UL+2
PSODIR	EX+10!, EX2+1!
>> PSODIV	CHK+1
PSODRUG	EX+9!, EX2+1!, EDT+7
PSODRUG("DAW"	EDT+62*
PSODRUG("IEN"	EDT+8, EDT+12, EDT+22*, EDT+46
PSODRUG("NAME"	EDT+22*
PSODRUG("NDC"	EDT+49*
PSODRUG("OI"	EDT+23*
PSOEDIT	EDTSEL*, EX+9!, EX2+1!
>> PSOFDR	SIG+1*
PSOFROM	EX+4, EX+14!
PSOHZ	SEL+3~*
PSOI	EX+9!, EX2+1!, EDT+20, EDT+21, EDT+23
PSOISLKD	SEL!, EDTSEL!, EDTSEL+1, EDTSEL+2, EX!, EDT+51*
PSOLOKED	SEL!, SEL+2, SEL+7!, EDTSEL+1, EDTSEL+2, EDTSEL+3, EX+13!, QUIT!, UL+1
>> PSOLST(	SEL+1, SEL+4, SEL+6, EDTSEL+2, QUIT, QUIT+1, EDT+4, EDT+6, EDT+14, EDT+28 , EDT+33, UL+3
PSOMRFLG	EDTSEL!, EX+10!, EX2+1!, SIG+6*
PSOMSG	SEL+1!, SEL+2!, EDTSEL+2!, EDTSEL+3!, SVALO+1
PSOOIFLG	EDTSEL!, EX+10!, EX2+1!
>> PSOOINS	EDT+6, EDT+17
>> PSOPAR	EDT+26, EDT+31, EDT+47, EDT+50, EDT+70, EDT+85
>> PSOPIND	EDT+6, EDT+18
>> PSOPINDF	EDT+6, EDT+18
>> PSOPINS	EDT+6, EDT+17
PSOPKI	EDT+3!, EDT+15*, EDT+55
PSOPLCK	SEL!, SEL+1!, EDTSEL+1!, EDTSEL+2!, EDTSEL+3!, SVAL+1
PSOQUIT	EDTSEL*, EX, EX2, EX2+1!
PSORENW	EX+10!, EX2+1!
PSORENW("OIRXN"	EX1, EDT+14*, EDT+53
>> PSORX	SIG+4
>> PSORX("COSIGN	ING PROVIDER" , PROV+5!, UDPROV+1
>> PSORX("DFLG"	SEL+5!, EDTSEL!, EX+9!, EX2+1!, EDT+12, EDT+51
>> PSORX("EDIT"	EX+11!, EX2+1!
>> PSORX("FN"	EX+2, EX+7, EX2, EDT+51*
>> PSORX("PROVID	ER NAME" , EDT+24*, PROV+5!
>> PSORX("PROVIDER"	EDT+24*, PROV+5!
>> PSORX("SIG"	EX+10!, EX2+1!, SIG+3*, SIG+4, SIG+5
PSORXED	EDTSEL, EX+6, EX2+1!, EDT+53, EDT+54*, PROV+2
PSORXED(	EDT+71, EDT+86, EDT+91*
PSORXED("CLOZ	EDIT" , EDT+46*
PSORXED("COSI	GNING PROVIDER" , PROV+7
PSORXED("DFLG"	EX+1, EDT+12, EDT+14, EDT+25, EDT+28, EDT+30, EDT+53, EDT+54, CHK, CHK+1 , CHK+2, CHK+5, CHK+8
PSORXED("FLD"	EX+11!, EDT+40, EDT+49, EDT+62, EDT+69, EDT+70, EDT+71, EDT+75, EDT+78, EDT+79 , EDT+80!, EDT+84, EDT+85, EDT+86, EDT+90, EDT+91, PROV+6, PROV+7
PSORXED("IRXN"	EDT+14*, EDT+15, EDT+53, EDT+54, EDT+77, EDT+93, CHK+1, CHK+7, UDPROV+1, UDPROV+2 , SIG+1, SIG+2, SIG+3, SIG+4, SIG+5
PSORXED("PROV	IDER NAME" , PROV+1*
PSORXED("PROVIDER"	PROV+1*, PROV+2, PROV+6, UDPROV+1, UDPROV+2
PSORXED("RX0"	EDT+6*, CHK
PSORXED("RX1"	EDT+4*
PSORXED("RX2"	EDT+6*, CHK+1
PSORXED("RX3"	EDT+6*
PSORXED(52	EDT+73, EDT+75!, EDT+78, EDT+80!, EDT+81!, EDT+84!, EDT+88, EDT+90!
>> PSORXST	EDT+20*
>> PSOSIG	EDT+6, EDT+15
PSOSIGFL	EX+1, EX+2, EX+10!, EX2+1!, EDT+19, EDT+92, SIG+5
>> PSOSITE	CHK+1
>> PSOSYS	CHK+2, CHK+3
PSOTMP	EX+3~, EX+4*, EX+14
PSOTRN	EX+11!, EX2+1!, EDT+24*
PSOX	EDT+53~, EDT+54~
PSOX("IRXN"	EDT+53, EDT+54
PSOY	EDT+7~*
PSOY(0	EDT+7*
PSPOP	CHK+1!, CHKX!
>> PSPRXN	CHK+1*, CHK+2, CHK+4
QUIT	EX+9!, EX2+1!
REF	SEL+4, SEL+6, QUIT+1!, EDT+33, EDT+34, EDT+54*
REQFLDS	REQFLDS+1~, REQFLDS+2, REQFLDS+3, REQFLDS+4
>> RFD	EDT+93*
>> RFDT	EDT+93*
RFED	EX2+1!, UDPROV+2*
>> RX0	EDT+6, EDT+7, EDT+14, EDT+20, EDT+21, EDT+22, EDT+24, EDT+26, EDT+31, EDT+67 , PROV+1, PROV+2
>> RX1	EDT+93*
>> RX1(	EDT+93*
>> RXN	EDT+32, EDT+48, EDT+59, EDT+61
SIG	EX2+1!
SIG(	SIG+2*
>> ST	EDT+32
U	EDT+7
>> VALMBCK	SEL, SEL+1, SEL+7, EDTSEL+1, EDTSEL+2, EDTSEL+4, EX+13, EX2, EX2+2, EDT+29*
VALMCNT	EDTSEL~
>> VALMSG	EX+5, EDT+29, EDT+34, EDT+50, EDT+59, CHK, CHK+2, CHK+8, SVAL+1, SVALO+1
X	EDT+39, EDT+40!, EDT+74, EDT+75!, EDT+79, EDT+81!, EDT+82, EDT+84!, EDT+89, EDT+90! , CHKX!, PAUSE+1~
XTY	UDPROV+2*, UDPROV+3!
Y	EDTSEL, EDT+40!, EDT+75!, EDT+81!, EDT+82, EDT+83, EDT+84!, EDT+90!, CHK+5, CHKX! , PROV+5, PAUSE+1~
ZONE	EDTSEL!, EX1, EX2, EX2+1!
ZZ	EDT+71!, EDT+86!, EDT+91!
ZZ("LABEL"	EDT+71, EDT+86, EDT+91
ZZEDIT	EX+12*!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOOREDT

Information

Source Information

Call Graph

Call Graph Total: 31

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: