Routine: PSOOREDT

Information

PSOOREDT ;BIR/SAB - edit orders from backdoor ;10-Jun-2013 22:29;DU

Source Information

Call Graph

Call Graph Total: 28

Package	Total	Call Graph
Outpatient Pharmacy	20	($$RXRLDT,$$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 (LOG,POST)^PSORXED (EN1,POP)^PSOSIGNO CLEAN^PSOVER1
VA Fileman	4	FIELD^DID $$GET1^DIQ EN^DIQ1 ^DIR
IHS Changes To Pharmacy	2	IHSFLDS^APSPDIR $$ISSCH^APSPFNC2
Pharmacy Data Management	1	($$L,PSOL,PSOUL,UL)^PSSLOCK
Registration	1	FULL^VALM1

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSOLMUTL PSOORED6

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
CHKX
EDTSEL	;N VALMCNT K PSOISLKD,PSORX("DFLG"),PSOOIFLG,PSOMRFLG,DIR,DIRUT,DTOUT,DTOUT,ZONE S (PSOEDIT,PSORXED)=1 I +Y S FST=Y D HLDHDR^PSOLMUTL D G EX ;PSO LM SELECT MENU protocol
CHK
SVAL	;Set message for patient lock
PROV	;select provider
UL	;
SVALO	;Set message for order lock
EX2
EX
EDT	; Rx Edit (Backdoor)
EX1
UDPROV	;update provider
SEL	;
SIG	;edit medication instructions (SIG)

External References

Name	Field # of Occurrence
IHSFLDS^APSPDIR	EDT+24
$$ISSCH^APSPFNC2	PROV+1
FIELD^DID	EDT+57, EDT+62
$$GET1^DIQ	EDT+16, EDT+17, EDT+18, EDT+19, EDT+20, EDT+21, EDT+22, EDT+23
EN^DIQ1	EDT+48, EDT+58
^DIR	SEL+5, SEL+14, EDT+49, EDT+60, CHK+5, PROV+5
$$RXRLDT^PSOBPSUT	EDT+30
$$STATUS^PSOBPSUT	SEL+13, EDT+30, EDT+41
^PSOBUILD	EX+8, QUIT
EN^PSOCMOPC	QUIT
EDTDAW^PSODAWUT	EDT+43
EN^PSODIAG	EDT+36, EDT+37
PROV^PSODIR	PROV+3
SIG^PSODIR1	SIG+4
NDC^PSODRG	EDT+31
POST^PSODRG	EDT+34
SET^PSODRG	EDT+2
EN^PSOHLSN1	EX1
HLDHDR^PSOLMUTL	EDTSEL+1
EOJ^PSONEW	EX+12
LOCK^PSOORCPY	SEL+7, EDTSEL+2
EN^PSOORED1	EX+6
INS^PSOORED1	EDT+35
EDTDOSE^PSOORED2	EDT+34
FLDT^PSOORED2	EDT+40
ISDT^PSOORED2	EDT+39
REF^PSOORED2	EDT+28
DRG^PSOORED6	EDT+37
PSOCOU^PSOORED6	EDT+29
PSOI^PSOORED6	EDT+36
UPDATE^PSOORED6	EX+1
NDCDAWDE^PSOORED7	EDT+26
NOCHG^PSOORED7	EDT+45
ACT^PSOORNE2	QUIT
LOG^PSORXED	EX+1
POST^PSORXED	EX+1
EN1^PSOSIGNO	SIG+4
POP^PSOSIGNO	EDT+13
CLEAN^PSOVER1	EX2+1
$$L^PSSLOCK	SEL+7, EDTSEL+2
PSOL^PSSLOCK	SEL+8, EDTSEL+3
PSOUL^PSSLOCK	UL+3
UL^PSSLOCK	SEL+8, EDTSEL+3, UL+2
FULL^VALM1	EDT+34

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EX2+1
Function Call: WRITE	Prompt: !,"Data Required!",! Line Location: EDT+52
Function Call: WRITE	Prompt: ! Line Location: CHK+5
Function Call: WRITE	Prompt: ! Line Location: PROV+4
Routine Call	DIR Line Location: SEL+5 SEL+14 EDT+49 EDT+60 CHK+5 PROV+5

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53 - [#53]	EDT+8
^PSDRUG - [#50]	EDT+2, EDT+9, EDT+10, CHK
^PSRX - [#52]	SEL+2, QUIT, QUIT+1, EDT+3, EDT+4, EDT+6, EDT+8, EDT+9, EDT+12, EDT+37 , EDT+64, CHK+2, CHK+4, CHK+7, UDPROV+1, UDPROV+2, SIG+1, SIG+2, SIG+3, SIG+5!
^VA(200 - [#200]	EDT+12, PROV+2

Name	Line Occurrences
CHK	EDT+13
EDT	EDTSEL+4
EX	EDTSEL+1
EX1	EX+1
EX2	EX
PROV	EDT+38
SVAL	SEL+7, EDTSEL+2
SVALO	SEL+8, EDTSEL+3
UL	SEL+14, EX, EX+13, QUIT

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHK	EX+10!, EX2!, EDT+13, CHK*
DA	EDT+6, EDT+8, EDT+9, EDT+12, EDT+13, EDT+36, EDT+48, EDT+49, EDT+51, EDT+52! , EDT+55, EDT+59, EDT+61
DAW	EDT+43~, EDT+44
DIC	EDT+48!*, EDT+52!, EDT+58!
DIQ	EDT+48!, EDT+52!, EDT+58!
DIR	SEL+5!, SEL+10!, SEL+14!, EDTSEL+1!, EDT+47!, EDT+51!, EDT+52!, EDT+55!, EDT+60!, EDT+61! , CHK+3!, CHKX!, PROV+4!, PROV+7!
DIR("?"	SEL+5, CHK+4
DIR("A"	SEL+5, SEL+10, CHK+4, PROV+4, PROV+5*
DIR("B"	EDT+49, EDT+59, CHK+5*
DIR(0	SEL+5, SEL+13, EDT+49, EDT+60, CHK+4, PROV+4
DIROUT	EDT+47!, EDT+55!, EDT+61!
DIRUT	SEL+10!, SEL+14!, EDTSEL+1!, EDT+47!, EDT+51!, EDT+52!, EDT+55!, EDT+58!, EDT+60!, EDT+61! , CHK+5, PROV+4!, PROV+6, PROV+7!
DR	EDT+28, EDT+29, EDT+46, EDT+49, EDT+50, EDT+51, EDT+52!, EDT+53, EDT+54, EDT+55 , EDT+56, EDT+57, EDT+58*, EDT+59, EDT+60, EDT+61, EDT+62
DT	CHK
DTOUT	SEL+14!, EDTSEL+1!, EDT+51!, EDT+58!, CHK+3!, CHKX!
DUOUT	SEL+10!, EDT+51!, EDT+58!, CHK+3!, CHKX!, PROV+7!
>> FDR	EDT+25*, EDT+28
FLD	EX+9!, EX2!, EDT+5*
FLN	EX+9!, EX2!, EDT+5*, EDT+15, EDT+26, EDT+27, EDT+28, EDT+30, EDT+33, EDT+34 , EDT+35, EDT+36, EDT+37, EDT+38, EDT+39, EDT+40, EDT+41, EDT+42, EDT+45
FST	EDTSEL+1*, EX+9!, EX2!, EDT+5
I	EDT+3, EDT+64, UDPROV+2, UDPROV+3!, SIG+2
IEN	EX+9!, EX2!
INCOM	EX+9!, EX2!
NCPDPFLG	EX+5*, EDT+1!
NDC	EDT+31~, EDT+32
NEWEDT	EDTSEL+4*, EX+11!, EX2+1!
>> ORN	SEL+2, SEL+8, SEL+13, EDTSEL+3, QUIT, QUIT+1, EDT+3, EDT+4, EDT+6, UL+3
>> PSODAYS	EDT+8*
PSODE	EDTSEL+2, EDTSEL+3, EDTSEL+5*, EX+10!, EX1, EX2!
>> PSODFN	SEL+7, SEL+8, EDTSEL+2, EDTSEL+3, UL+2
PSODIR	EX+10!, EX2!
>> PSODIV	CHK+1
PSODRUG	EX+9!, EX2!, EDT+2
PSODRUG("DAW"	EDT+44*
PSODRUG("IEN"	EDT+10*, PROV+1
PSODRUG("NAME"	EDT+10*
PSODRUG("NDC"	EDT+32*
PSODRUG("OI"	EDT+11*
PSOEDIT	EDTSEL+1*, EX+9!, EX2!
>> PSOFDR	SIG+1*
PSOFROM	EX+4, EX+14!
PSOI	EX+9!, EX2!, EDT+8, EDT+9, EDT+11
PSOISLKD	SEL+7!, EDTSEL+1!, EDTSEL+2, EDTSEL+3, EX!, EDT+34*
PSOLOKED	SEL+7!, SEL+9, SEL+14!, EDTSEL+2, EDTSEL+3, EDTSEL+4, EX+13!, QUIT!, UL+1
>> PSOLST(	SEL+2, SEL+8, SEL+13, EDTSEL+3, QUIT, QUIT+1, EDT+3, EDT+4, EDT+6, UL+3
PSOMRFLG	EDTSEL+1!, EX+10!, EX2!, SIG+6*
PSOMSG	SEL+8!, SEL+9!, EDTSEL+3!, EDTSEL+4!, SVALO+1
PSOOIFLG	EDTSEL+1!, EX+10!, EX2!
>> PSOPAR	EDT+25, EDT+30, EDT+33, EDT+56
PSOPLCK	SEL+7!, SEL+8!, EDTSEL+2!, EDTSEL+3!, EDTSEL+4!, SVAL+1
PSORENW	EX+10!, EX2!
PSORENW("OIRXN"	EX1, EDT+6*, EDT+36
>> PSORX	SIG+4
>> PSORX("COSIGN	ING PROVIDER" , PROV+6!, UDPROV+1
>> PSORX("DFLG"	SEL+10!, EDTSEL+1!, EX+9!, EX2!, EDT+5, EDT+34
>> PSORX("EDIT"	EX+11!, EX2!
>> PSORX("FN"	EX+2, EX+7, EX2, EDT+34*
>> PSORX("PROVID	ER NAME" , EDT+12*, PROV+6!
>> PSORX("PROVIDER"	EDT+12*, PROV+6!
>> PSORX("SIG"	EX+10!, EX2!, SIG+3*, SIG+4, SIG+5
PSORXED	EDTSEL+1, EX+6, EX2!, EDT+24, EDT+36, EDT+37*, PROV+3
PSORXED(	EDT+57, EDT+62
PSORXED("CASH	DUE" , EDT+22*
PSORXED("CM"	EDT+16*
PSORXED("COSI	GNING PROVIDER" , PROV+8
PSORXED("CS"	PROV+1*
PSORXED("DAW"	EDT+21*
PSORXED("DFLG"	EX+1, EDT+5, EDT+6, EDT+13, EDT+36, EDT+37, CHK, CHK+1, CHK+2, CHK+5 , CHK+7*
PSORXED("DSCMED"	EDT+23*
PSORXED("EXPI	RATION DATE" , EDT+18*
PSORXED("FLD"	EX+11!, EDT+32, EDT+44, EDT+49, EDT+50, EDT+51!, EDT+55, EDT+56, EDT+57, EDT+61* , EDT+62, PROV+7, PROV+8
PSORXED("IRXN"	EDT+6*, EDT+16, EDT+17, EDT+18, EDT+19, EDT+20, EDT+21, EDT+22, EDT+23, EDT+36 , EDT+37, EDT+48, EDT+64, CHK+1, CHK+7, UDPROV+1, UDPROV+2, SIG+1, SIG+2, SIG+3 , SIG+4, SIG+5
PSORXED("LOT	#" , EDT+20*
PSORXED("MANUFACTURER"	EDT+17*
PSORXED("PROV	IDER NAME" , PROV+2*
PSORXED("PROVIDER"	PROV+2*, PROV+3, PROV+7, UDPROV+1, UDPROV+2
PSORXED("RX0"	EDT+4*, CHK
PSORXED("RX1"	EDT+3*
PSORXED("RX2"	EDT+4*, CHK+1
PSORXED("RX3"	EDT+4*
PSORXED("TRIP"	EDT+19*
PSORXED(52	EDT+49, EDT+51!, EDT+52!, EDT+55!, EDT+59, EDT+61!
>> PSORXST	EDT+8*
>> PSOSIG	EDT+4, EDT+6
PSOSIGFL	EX+1, EX+2, EX+10!, EX2!, EDT+7, EDT+63, SIG+5
>> PSOSITE	CHK+1
>> PSOSYS	CHK+2, CHK+3
PSOTMP	EX+3~, EX+4*, EX+14
PSOTRN	EX+11!, EX2!, EDT+12*
PSOX	EDT+36~, EDT+37~
PSOX("IRXN"	EDT+36, EDT+37
PSOY	EDT+2~*
PSOY(0	EDT+2*
PSPOP	CHK+1!, CHKX!
>> PSPRXN	CHK+1*, CHK+2, CHK+4
QUIT	EX+9!, EX2!
REF	SEL+13, QUIT+1!, EDT+27, EDT+37*
>> RFD	EDT+64*
>> RFDT	EDT+64*
RFED	EX2!, UDPROV+2*
>> RX0	EDT+2, EDT+4, EDT+6, EDT+8, EDT+9, EDT+10, EDT+12, EDT+25, PROV+2, PROV+3
>> RX1	EDT+64*
>> RX1(	EDT+64*
>> RXN	EDT+26, EDT+30, EDT+31, EDT+41, EDT+43
SIG	EX2!
SIG(	SIG+2*
>> ST	EDT+26
U	EDT+2
>> VALMBCK	SEL+7, SEL+8, SEL+14, EDTSEL+2, EDTSEL+3, EDTSEL+5, EX+13, EX2, EX2+1
VALMCNT	EDTSEL+1~
>> VALMSG	EX+5, EDT+27, EDT+33, EDT+41, CHK, CHK+2, CHK+7, SVAL+1, SVALO+1*
X	EDT+50, EDT+52!, EDT+53, EDT+55!, EDT+60, EDT+61!, CHKX!
XTY	UDPROV+2*, UDPROV+3!
Y	EDTSEL+1, EDT+52!, EDT+53, EDT+54, EDT+55!, EDT+61!, CHK+5, CHKX!, PROV+6
ZONE	EDTSEL+1!, EX1, EX2!
ZZ	EDT+57!, EDT+62!
ZZ("LABEL"	EDT+57, EDT+62

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOOREDT

Information

Source Information

Call Graph

Call Graph Total: 28

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: