Routine: PSOORED6

Information

PSOORED6 ;BHAM ISC/SAB-edit orders from backdoor ;05-Sep-2013 15:44;DU

Call Graph

Call Graph Total: 25

Package	Total	Call Graph
Outpatient Pharmacy	15	REVERSE^PSOBPSU1 RXACT^PSOBPSU2 SAVDAW^PSODAWUT UPDATE^PSODIAG (,POST)^PSODRG EN^PSOFSIG SIG^PSOHELP ($$GETNDC,SAVNDC)^PSONDCUT DCORD^PSONEW2 (DOLST,DOSE,UPDSIG)^PSOORED3 RESUB^PSOORED7 UDPROV^PSOOREDT (M1,M2)^PSOOREDX 2^PSOORNW1 DREN^PSOORNW2
VA Fileman	5	MIX^DIC1 ^DIE ($$GET1,GETS)^DIQ EN^DIQ1 ^DIR
IHS Changes To Pharmacy	3	$$EXPDT^APSPAUTO $$ISSCH^APSPFNC2 $$RMNRFL^APSPFUNC
Kernel	1	$$FMADD^XLFDT
Registration	1	(FULL,PAUSE)^VALM1

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSOORED5 PSOOREDT PSOORNE1
IHS Changes To Pharmacy	1	APSPRIS

Package

Total

Caller Graph

Outpatient Pharmacy

PSOORED5 PSOOREDT PSOORNE1

IHS Changes To Pharmacy

APSPRIS

Entry Points

Name	Comments	DBIA/ICR reference
PSOCOU	;patient counseling
UPD	;updates dosing array
UPDX	;
UPDATE	;add new data to file
UPD1	;
M1
KV
UPDATE1	;IHS/MSC/MGH separated for reissue code
NCPDP	;Reverse previously billed Rx on an edited orderable item or drug.
M2
DRG	;select drug
PSOI	;select orderable item

External References

Name	Field # of Occurrence
$$EXPDT^APSPAUTO	UPDATE1+87, UPDATE1+88
$$ISSCH^APSPFNC2	UPDATE1+77, UPDATE1+78
$$RMNRFL^APSPFUNC	UPDATE1+9, UPDATE1+49, UPDATE1+50, UPDATE1+86
MIX^DIC1	PSOI+6
^DIE	UPDATE1+39, UPDATE1+90
$$GET1^DIQ	UPDATE1+79
GETS^DIQ	UPDATE1+4
EN^DIQ1	PSOCOU+1, PSOCOU+6
^DIR	DRG+14, DRG+23, PSOCOU+2, PSOCOU+7, PSOI+19, UPDATE+8
REVERSE^PSOBPSU1	NCPDP+5
RXACT^PSOBPSU2	UPDATE1+36
SAVDAW^PSODAWUT	UPDATE1+38
UPDATE^PSODIAG	UPDATE1+2
^PSODRG	DRG+3
POST^PSODRG	DRG+5, PSOI+14
EN^PSOFSIG	UPDATE1+31, UPDATE1+62, UPDATE1+68
SIG^PSOHELP	UPDATE1+27
$$GETNDC^PSONDCUT	UPDATE1+35, UPDATE1+36
SAVNDC^PSONDCUT	UPDATE1+37
DCORD^PSONEW2	DRG+23
DOLST^PSOORED3	DRG+16, PSOI+21, UPDATE1+31, UPDATE1+62, UPDATE1+68
DOSE^PSOORED3	DRG+16, PSOI+21
UPDSIG^PSOORED3	UPDATE1+31, UPDATE1+62, UPDATE1+68
RESUB^PSOORED7	UPDATE1+60
UDPROV^PSOOREDT	UPDATE1+40
M1^PSOOREDX	M1
M2^PSOOREDX	M2
2^PSOORNW1	PSOI+16
DREN^PSOORNW2	PSOI+12
FULL^VALM1	PSOI+14
PAUSE^VALM1	DRG+30, PSOI+10
$$FMADD^XLFDT	UPDATE1+84

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"New Orderable Item selected. This edit will create a new prescription!",! Line Location: DRG+30
Function Call: WRITE	Prompt: !!,"Current Orderable Item: "_$P(^PS(50.7,PSOI,0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^") Line Location: PSOI+1
Function Call: WRITE	Prompt: !!,"New Orderable Item selected. This edit will create a new prescription!",! Line Location: PSOI+9
Function Call: WRITE	Prompt: !!,"DRUG NAME REQUIRED!" Line Location: PSOI+16
Routine Call	DIE Line Location: UPDATE1+39 UPDATE1+90
Routine Call	DIR Line Location: DRG+14 DRG+23 PSOCOU+2 PSOCOU+7 PSOI+19 UPDATE+8

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^PS(50.7 - [#50.7]	Classic Fileman Calls
^PSRX - [#52]	Classic Fileman Calls, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	PSOI+1
^PS(50.7 - [#50.7]	PSOI+1, PSOI+2, PSOI+18
^PSDRUG - [#50]	DRG+2, DRG+10, PSOI+15
^PSRX - [#52]	DRG+6, DRG+11, DRG+12, UPDATE+7, UPDATE+9, UPDATE+10, UPDATE1+17, UPDATE1+18, UPDATE1+19, UPDATE1+20 , UPDATE1+21, UPDATE1+22, UPDATE1+24!, UPDATE1+26, UPDATE1+28!, UPDATE1+29, UPDATE1+30, UPDATE1+33, UPDATE1+44, UPDATE1+46 , UPDATE1+47, UPDATE1+53, UPDATE1+55, UPDATE1+56, UPDATE1+62!, UPDATE1+64!, UPDATE1+65, UPDATE1+66, UPDATE1+67*, UPDATE1+80
^PSRX("B"	NCPDP+3
^TMP("APSPPOS"	UPDATE1+1*
^TMP("PSORXDC"	DRG+20
^TMP($J	PSOI+17!, UPDATE+5, UPDATE1+63, UPDATE1+65, UPDATE1+66, UPDX+1!

Name	Line Occurrences
KV	DRG+8, PSOCOU+2, PSOCOU+3, PSOI+18
M1	DRG+14, UPDATE+8
M2	DRG+18, PSOI+10, PSOI+23
PSOI	PSOI+7
UPD	UPD1+1
UPDX	UPDATE+5, UPDATE1+62

Name	Field # of Occurrence
^(0	PSOI+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APSPRCHK	UPDATE+3~, UPDATE1+7, UPDATE1+10, UPDATE1+14, UPDATE1+41, UPDATE1+42, UPDATE1+45, UPDATE1+46, UPDATE1+47, UPDATE1+54* , UPDATE1+56, UPDATE1+70, UPDATE1+86, UPDATE1+87, UPDATE1+88, UPDATE1+91
APSPRFLG	UPDATE+3~, UPDATE1+15, UPDATE1+48, UPDATE1+57*
CHGNDC	UPDATE+2~, UPDATE1+36*
CS	UPDATE1+71~, UPDATE1+72, UPDATE1+77, UPDATE1+78*, UPDATE1+81
>> D	PSOI+6*
DA	PSOCOU+1, PSOCOU+2, PSOCOU+6, PSOCOU+7, UPDATE1+5, UPDATE1+17, UPDATE1+18, UPDATE1+19, UPDATE1+20, UPDATE1+21 , UPDATE1+22, UPDATE1+24, UPDATE1+26, UPDATE1+28, UPDATE1+29, UPDATE1+30, UPDATE1+33, UPDATE1+35, UPDATE1+36, UPDATE1+37 , UPDATE1+38, UPDATE1+62, UPDATE1+64, UPDATE1+65, UPDATE1+66, UPDATE1+67, UPDATE1+71~, UPDATE1+89, UPDX+1!
DD	UPDATE1+64!, UPDATE1+65*, UPDATE1+67, UPDX+1!
DE	UPDATE1+71~
DIC	PSOCOU+1!, PSOCOU+6!, PSOI+2*, PSOI+8!
DIC("B"	PSOI+2*
DIC("S"	PSOI+3, PSOI+4
DIC(0	PSOI+2*
DIE	UPDATE1+5, UPDATE1+71~, UPDATE1+89, UPDX+1!
DIQ	PSOCOU+1!, PSOCOU+6!
DIR	DRG+14!, DRG+22!, DRG+23!, PSOCOU+2!, PSOCOU+7!, PSOI+19!, UPDATE+6!, UPDATE+8!, KV!
DIR("A"	DRG+9, DRG+10, DRG+11, DRG+12, DRG+13, DRG+22, PSOI+18, UPDATE+7
DIR("B"	DRG+8, DRG+22, PSOCOU+2, PSOCOU+7, PSOI+18, UPDATE+7
DIR(0	DRG+8, DRG+22, PSOCOU+2, PSOCOU+7, PSOI+18, UPDATE+7
DIRUT	DRG+14, DRG+15, DRG+23, PSOCOU+3, PSOCOU+4!, PSOCOU+7!, PSOCOU+8, PSOI+19, UPDATE+6!, UPDATE+12! , KV!
DR	PSOCOU+1, PSOCOU+2, PSOCOU+4, PSOCOU+6, PSOCOU+7, UPDATE1+39, UPDATE1+90, UPDX+1!
DRG	UPDATE1+71~, UPDATE1+76*, UPDATE1+77, UPDATE1+78, UPDATE1+79
DT	UPDATE1+29
DTOUT	PSOCOU+8!, UPDATE+6!, UPDATE+12!, KV!
DUOUT	PSOCOU+8!, UPDATE+6!, UPDATE+12!, KV!
>> ENT	UPD+1
EXTEXP	UPDATE1+71~, UPDATE1+79*, UPDATE1+81
FLD	UPDATE1+5, UPDATE1+6, UPDATE1+7, UPDATE1+8, UPDATE1+12, UPDATE1+13, UPDATE1+14, UPDATE1+15, UPDATE1+16, UPDATE1+17 , UPDATE1+18, UPDATE1+19, UPDATE1+20, UPDATE1+21, UPDATE1+22, UPDATE1+23, UPDATE1+33, UPDATE1+34, UPDATE1+38, UPDATE1+39 , UPDATE1+40, UPDATE1+48, UPDX+1!
FLDS	UPDATE+2~
>> HENT	UPD+1, UPD1+1, UPD1+2, UPD1+3, UPD1+4, UPD1+5, UPD1+6, UPD1+7, UPD1+8, UPD1+9 , UPD1+10, UPD1+11, UPD1+12, UPD1+13, UPD1+14, UPD1+15, UPD1+16
>> I	DRG+12, UPDATE1+65, UPD1+17*
INDEL	PSOI+17!
>> INS1	UPDATE1+27, UPDATE1+28
>> INSDEL	UPDATE+5, UPDATE1+62
ISSDT	UPDATE1+71~, UPDATE1+80*, UPDATE1+84
LASTRFL	UPDATE1+43~, UPDATE1+44, UPDATE1+45, UPDATE1+46, UPDATE1+47, UPDATE1+52~, UPDATE1+53, UPDATE1+54, UPDATE1+55, UPDATE1+56
>> NCPDPFLG	NCPDP+5*
NEXPDT	UPDATE1+71~, UPDATE1+84, UPDATE1+87, UPDATE1+88*, UPDATE1+90
NPSOY	NCPDP+1~, NCPDP+3*
PSHOLDD	PSOI+9!, PSOI+11*, PSOI+13, PSOI+15
PSODRUG	DRG+7!, PSOI+15!
PSODRUG("COST"	DRG+6
PSODRUG("DAW"	DRG+29
PSODRUG("DEA"	PSOI+11*
PSODRUG("IEN"	DRG+2, DRG+3, DRG+4, DRG+10, DRG+25, DRG+26, PSOI+11!, PSOI+13, PSOI+15, PSOI+16 , PSOI+17
PSODRUG("NAME"	DRG+2, PSOI+11!, PSOI+15
PSODRUG("NDC"	DRG+28
PSODRUG("OI"	DRG+19, PSOI+8, PSOI+9, PSOI+19
PSODRUG("OIN"	PSOI+8*, PSOI+18, PSOI+19!
PSODRUG("TRAD	E NAME" , DRG+27
>> PSOI	DRG+19, DRG+26, PSOI+1, PSOI+2, PSOI+7, PSOI+9, PSOI+18, PSOI+19, PSOI+24
>> PSONEW("OLD L	AST RX#" , NCPDP+3
PSOOIFLG	DRG+7!, DRG+30, PSOI+11, PSOI+15!, PSOI+19!
PSOREEDQ	DRG+16!, PSOI+21!
>> PSORX("DFLG"	DRG+4, DRG+7, DRG+14, DRG+17, PSOI+13, PSOI+15, PSOI+19, PSOI+20, PSOI+22*
>> PSORX("EDIT"	DRG+1*
>> PSORXED	UPDATE1+31, UPDATE1+62, UPDATE1+68
>> PSORXED("CONJUNCTION"	UPD1+1, UPD1+2!, UPD1+10
>> PSORXED("DFLG"	DRG+4, DRG+23, DRG+24, PSOI+6, PSOI+17
>> PSORXED("DOSE	ORDERED" , UPD1+6*, UPD1+14!
>> PSORXED("DOSE"	DRG+17, PSOI+22, UPD1+3, UPD1+4*, UPD1+14!, UPD1+17
>> PSORXED("DURATION"	UPD1+9*, UPD1+15!
>> PSORXED("FLD"	DRG+3!, DRG+4!, DRG+6, DRG+7!, DRG+26, DRG+27, DRG+28, DRG+29, PSOCOU+3!, PSOCOU+4 , PSOCOU+8!, PSOCOU+9, PSOCOU+10, PSOI+17!, PSOI+24*, UPDATE+5, UPDATE1+1, UPDATE1+2, UPDATE1+6, UPDATE1+13 , UPDATE1+14, UPDATE1+15, UPDATE1+17, UPDATE1+18, UPDATE1+19, UPDATE1+20, UPDATE1+21, UPDATE1+22, UPDATE1+24, UPDATE1+25 , UPDATE1+26, UPDATE1+27, UPDATE1+31, UPDATE1+33, UPDATE1+35, UPDATE1+36, UPDATE1+37, UPDATE1+38, UPDATE1+39, UPDX+1!
>> PSORXED("IRXN"	DRG+6, DRG+11, DRG+12, PSOCOU+1, PSOCOU+6, NCPDP+2, UPDATE+4, UPDATE+7, UPDATE+9, UPDATE+10 , UPDATE1+1, UPDATE1+4, UPDATE1+5, UPDATE1+9, UPDATE1+44, UPDATE1+46, UPDATE1+47, UPDATE1+49, UPDATE1+50, UPDATE1+53 , UPDATE1+55, UPDATE1+56, UPDATE1+80, UPDATE1+86, UPDATE1+87, UPDATE1+88, UPDATE1+89
>> PSORXED("NOUN"	UPD1+8*, UPD1+15!
>> PSORXED("ODOSE"	UPDATE+5, UPD1+5*, UPD1+14!
>> PSORXED("ROUTE"	UPD1+11*, UPD1+15!
>> PSORXED("RX0"	DRG+10, UPDATE1+13, UPDATE1+14, UPDATE1+15, UPDATE1+76
>> PSORXED("RX2"	UPDATE1+42, UPDATE1+45, UPDATE1+51, UPDATE1+54, UPDATE1+86
>> PSORXED("SCHEDULE"	UPD1+12*, UPD1+15!
>> PSORXED("SIG"	UPDATE1+28, UPDATE1+30, UPDATE1+31!, UPDATE1+62!, UPDATE1+64!, UPDATE1+65
>> PSORXED("UNITS"	UPD1+7*, UPD1+15!
>> PSORXED("VERB"	UPD1+13*, UPD1+15!
>> PSORXED(52	PSOCOU+2!, PSOCOU+7!
PSOSIGFL	DRG+7!, DRG+18, DRG+30, PSOI+11, PSOI+15!, PSOI+17!, PSOI+19!, PSOI+23
RX	NCPDP+1~, NCPDP+2, NCPDP+3, NCPDP+4, NCPDP+5
>> RX0	DRG+1, DRG+2, DRG+3, DRG+4, DRG+19*, DRG+25
RX0HLD	DRG+1*, DRG+19!
RXREF	UPDATE+2~, UPDATE+10, UPDATE+11
>> SENT	UPD1+17*
U	UPDATE1+13, UPDATE1+14, UPDATE1+15, UPDATE1+42, UPDATE1+45, UPDATE1+46, UPDATE1+47, UPDATE1+51, UPDATE1+54, UPDATE1+55 , UPDATE1+56, UPDATE1+76, UPDATE1+78, UPDATE1+80, UPDATE1+81, UPDATE1+86, UPDATE1+87, UPDATE1+88
UPDATE	UPDATE+2~
>> VALMBCK	PSOI+14*
VALMSG	DRG+7!, DRG+30, PSOI+15, PSOI+17!, PSOI+19
X	DRG+22!, PSOI+6, UPDATE+12!, UPDATE1+27*, UPDX+1!
X2	UPDATE1+71~, UPDATE1+81*, UPDATE1+84
Y	DRG+15, DRG+22!, DRG+23, PSOCOU+4, PSOCOU+5, PSOCOU+9, PSOI+7, PSOI+8, PSOI+20, UPDATE+5 , UPDATE+8, UPDATE1+5!, UPDX+1!
Y(0	PSOI+8

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOORED6

Information

Source Information

Call Graph

Call Graph Total: 25

Caller Graph

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: