Routine: PSOOREDT

Package	Total	Call Graph
Outpatient Pharmacy	24	$$LSTRFL^PSOBPSU1 $$STATUS^PSOBPSUT ^PSOBUILD EN^PSOCMOPC EDTDAW^PSODAWUT EN^PSODIAG PROV^PSODIR SIG^PSODIR1 (NDC,POST,SET)^PSODRG 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 ($$CSDRG,$$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+67, EDT+82, EDT+87
EN^DIQ1	EDT+68, EDT+73, EDT+83
^DIR	SEL+7, EDT+11, EDT+70, EDT+74, EDT+85, CHK+5, PROV+4, PAUSE+2
$$ISCLOZ^PSJCLOZ	EDT+42
$$LSTRFL^PSOBPSU1	SEL+4, EDT+33
$$STATUS^PSOBPSUT	SEL+6, EDT+55
^PSOBUILD	EX+8, QUIT
EN^PSOCMOPC	QUIT
EDTDAW^PSODAWUT	EDT+57
EN^PSODIAG	EDT+49, EDT+50
PROV^PSODIR	PROV+2
SIG^PSODIR1	SIG+4
NDC^PSODRG	EDT+44
POST^PSODRG	EDT+47
SET^PSODRG	EDT+7
EN^PSOHLSN1	EX1
HLDHDR^PSOLMUTL	EDTSEL
EOJ^PSONEW	EX+12
LOCK^PSOORCPY	SEL, EDTSEL+1
EN^PSOORED1	EX+6
INS^PSOORED1	EDT+48
EDTDOSE^PSOORED2	EDT+47
FLDT^PSOORED2	EDT+54
ISDT^PSOORED2	EDT+53
REF^PSOORED2	EDT+35
DRG^PSOORED6	EDT+50
PSOCOU^PSOORED6	EDT+36
PSOI^PSOORED6	EDT+49
UPDATE^PSOORED6	EX+1
NDCDAWDE^PSOORED7	EDT+32
NOCHG^PSOORED7	EDT+59
ACT^PSOORNE2	QUIT
$$CSDRG^PSOORNEW	EDT+8, EDT+37
$$NDF^PSOORNEW	EDT+8, EDT+37
MWP^PSOPRK	EDT+63
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+47

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+51
Function Call: WRITE	Prompt: !,"Data Required!",! Line Location: EDT+77
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+70 EDT+74 EDT+85 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+50, EDT+89, 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+51
PROV	EDT+52
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+49, EDT+63 , EDT+69, EDT+71, EDT+73, EDT+74, EDT+76, EDT+77!, EDT+80, EDT+84, EDT+86
DAW	EDT+57~, EDT+58
DEA	EDT+3!
DIC	EDT+68!, EDT+73!*, EDT+77!, EDT+83!
DIQ	EDT+68!, EDT+73!, EDT+77!, EDT+83*!
DIR	SEL+5!, SEL+7!, EDTSEL!, EDT+11!, EDT+63!, EDT+70!, EDT+71!, EDT+72!, EDT+76!, EDT+77! , EDT+80!, EDT+85!, EDT+86!, 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+69, EDT+74, EDT+84, CHK+5
DIR(0	SEL+6, EDT+11, EDT+70, EDT+74, EDT+85, CHK+4, PROV+3, PAUSE+2
DIROUT	EDT+71!, EDT+72!, EDT+80!, EDT+86!
DIRUT	SEL+5!, SEL+7!, EDTSEL!, EDT+68!, EDT+70!, EDT+71!, EDT+72!, EDT+76!, EDT+77!, EDT+80! , EDT+83!, EDT+85!, EDT+86!, CHK+5, PROV+3!, PROV+5, PROV+6!
DR	EDT+35, EDT+36, EDT+60, EDT+62, EDT+65, EDT+66, EDT+67, EDT+68, EDT+69, EDT+70 , EDT+71, EDT+74, EDT+75, EDT+76, EDT+77!, EDT+78, EDT+79, EDT+80, EDT+81, EDT+82 , EDT+83, EDT+84, EDT+85, EDT+86, EDT+87
DRGIEN	EDT+2~, EDT+12*, EDT+37
DT	CHK
DTOUT	SEL+7!, EDTSEL!, EDT+68!, EDT+76!, EDT+83!, CHK+3!, CHKX!
DUOUT	SEL+5!, EDT+68!, EDT+76!, EDT+83!, 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+43, EDT+46, EDT+47 , EDT+48, EDT+49, EDT+50, EDT+51, EDT+52, EDT+53, EDT+54, EDT+55, EDT+56, EDT+59
FLNCHK	EDT+2~, EDT+13*, EDT+37
FST	EDTSEL*, EX+9!, EX2+1!, EDT+9, EDT+12, EDT+28
I	EDT+4, EDT+89, 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+44~, EDT+45
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+63*
>> PRKMW	EDT+64, EDT+65
>> 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+58*
PSODRUG("IEN"	EDT+8, EDT+12, EDT+22*, EDT+42
PSODRUG("NAME"	EDT+22*
PSODRUG("NDC"	EDT+45*
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+47*
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+43, EDT+46, EDT+66, EDT+81
>> PSOPIND	EDT+6, EDT+18
>> PSOPINDF	EDT+6, EDT+18
>> PSOPINS	EDT+6, EDT+17
PSOPKI	EDT+3!, EDT+15*, EDT+51
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+49
>> PSORX	SIG+4
>> PSORX("COSIGN	ING PROVIDER" , PROV+5!, UDPROV+1
>> PSORX("DFLG"	SEL+5!, EDTSEL!, EX+9!, EX2+1!, EDT+12, EDT+47
>> PSORX("EDIT"	EX+11!, EX2+1!
>> PSORX("FN"	EX+2, EX+7, EX2, EDT+47*
>> 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+49, EDT+50*, PROV+2
PSORXED(	EDT+67, EDT+82, EDT+87*
PSORXED("CLOZ	EDIT" , EDT+42*
PSORXED("COSI	GNING PROVIDER" , PROV+7
PSORXED("DFLG"	EX+1, EDT+12, EDT+14, EDT+25, EDT+28, EDT+30, EDT+49, EDT+50, CHK, CHK+1 , CHK+2, CHK+5, CHK+8
PSORXED("FLD"	EX+11!, EDT+45, EDT+58, EDT+65, EDT+66, EDT+67, EDT+71, EDT+74, EDT+75, EDT+76! , EDT+80, EDT+81, EDT+82, EDT+86, EDT+87, PROV+6, PROV+7*
PSORXED("IRXN"	EDT+14*, EDT+15, EDT+49, EDT+50, EDT+73, EDT+89, 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+69, EDT+71!, EDT+74, EDT+76!, EDT+77!, EDT+80!, EDT+84, EDT+86!
>> PSORXST	EDT+20*
>> PSOSIG	EDT+6, EDT+15
PSOSIGFL	EX+1, EX+2, EX+10!, EX2+1!, EDT+19, EDT+88, 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+49~, EDT+50~
PSOX("IRXN"	EDT+49, EDT+50
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+50*
REQFLDS	REQFLDS+1~, REQFLDS+2, REQFLDS+3, REQFLDS+4
>> RFD	EDT+89*
>> RFDT	EDT+89*
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+63 , PROV+1, PROV+2
>> RX1	EDT+89*
>> RX1(	EDT+89*
>> RXN	EDT+32, EDT+44, EDT+55, EDT+57
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+46, EDT+55, CHK, CHK+2, CHK+8, SVAL+1, SVALO+1
X	EDT+70, EDT+71!, EDT+75, EDT+77!, EDT+78, EDT+80!, EDT+85, EDT+86!, CHKX!, PAUSE+1~
XTY	UDPROV+2*, UDPROV+3!
Y	EDTSEL, EDT+71!, EDT+77!, EDT+78, EDT+79, EDT+80!, EDT+86!, CHK+5, CHKX!, PROV+5 , PAUSE+1~
ZONE	EDTSEL!, EX1, EX2, EX2+1!
ZZ	EDT+67!, EDT+82!, EDT+87!
ZZ("LABEL"	EDT+67, EDT+82, EDT+87
ZZEDIT	EX+12*!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOOREDT

Information

Source Information

Call Graph

Call Graph Total: 30

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: