Routine: PSOORNW1

Information

PSOORNW1 ;ISC BHAM/SAB - continuation of finish of new order ;28-Mar-2016 13:01;DU

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Outpatient Pharmacy	3	POST^PSODRG MP1^PSOOREDX DSPL^PSOORFI1
IHS Changes To Pharmacy	2	$$ERXONLY^APSPFNC6 $$SCREEN^APSPMULT
VA Fileman	2	$$GET1^DIQ ^DIR
Pharmacy Data Management	1	$$GETNDC^PSSNDCUT

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Outpatient Pharmacy	6	PSOORED4 PSOORED6 PSOORNE1 PSOORNE6 PSOORNEW PSOORNW2

Entry Points

Name	Comments	DBIA/ICR reference
REFX
CT1
TX
EDSTAT
OERF
REF
ETX
KV
2
EX
STATDAY
URX
EDNEW
REASK	;IHS/MSC/PLS - 03/28/2016

External References

Name	Field # of Occurrence
$$ERXONLY^APSPFNC6	REASK+4
$$SCREEN^APSPMULT	2+7
$$GET1^DIQ	2+13, CT1+7
^DIR	2+20, REASK+1, REASK+9, URX+1, OERF+3
POST^PSODRG	CT1+8, CT1+10
MP1^PSOOREDX	EX
DSPL^PSOORFI1	CT1+11
$$GETNDC^PSSNDCUT	CT1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Instructions: " Line Location: 2+0
Function Call: WRITE	Prompt: !?14 Condition for execution: $X+$L($P(MIG," ",SG)_" ")>IOM Line Location: 2+2
Function Call: WRITE	Prompt: $P(MIG," ",SG)_" " Line Location: 2+2
Function Call: WRITE	Prompt: !!,"The following Drug(s) are available for selection:" Line Location: 2+5
Function Call: WRITE	Prompt: !,PSDC_". "_$P(^PSDRUG(PSI,0),"^")_$S($P(^(0),"^",9):" (N/F)",1:"") Line Location: 2+8
Function Call: WRITE	Prompt: !!," This Dispense Drug is now Inactive. You may select a" Line Location: 2+15
Function Call: WRITE	Prompt: !," new Orderable Item, or you can enter a new Order with" Line Location: 2+16
Function Call: WRITE	Prompt: !," an Active Drug.",! Line Location: 2+17
Function Call: WRITE	Prompt: !!,"No drugs available!",! Line Location: 2+18
Function Call: WRITE	Prompt: ! Line Location: REASK+1
Function Call: WRITE	Prompt: !,$C(7),PSRF_" refills are greater than "_PTRF_" allowed for "_$P(PTST,"^")_" Rx Patient Status.",! Line Location: EDSTAT+0
Routine Call	DIR Line Location: 2+20 REASK+1 REASK+9 URX+1 OERF+3

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.41 - [#52.41]	2+1, 2+12
^PS(53 - [#53]	REF+1, STATDAY
^PS(55 - [#55]	REF, REF+1
^PSDRUG - [#50]	2+7, 2+8, 2+23, REASK+6, REASK+8, CT1, CT1+2, CT1+3, CT1+4, CT1+8 , CT1+9
^PSDRUG("ASP"	2+7
^PSRX - [#52]	STATDAY
^YSCL(603.01	CT1

Label References

Name	Line Occurrences
EDSTAT	EDNEW+12
ETX	2+21, CT1+8
EX	REASK+2, REASK+7
KV	REASK+1, REASK+6, REASK+8, REASK+12, TX, URX
REASK	REASK+4
REF	ETX
REFX	OERF+3
TX	EX+1
URX	REASK+11

Naked Globals

Name	Field # of Occurrence
^("I"	2+7
^("ND"	CT1+2, CT1+3
^(0	2+8, STATDAY

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CLOZPAT	REF+10, REF+11
>> CS	EDNEW*, EDNEW+1
>> DA	STATDAY
DEA	REF+2, EDNEW, REFX+1!
DIR	2+19!, 2+20!, KV!
DIR("?"	OERF+2*
DIR("A"	2+19, REASK+1, REASK+8, URX, OERF*
DIR("B"	REASK+8, URX, OERF+1*
DIR(0	2+19, REASK+1, REASK+8, URX, OERF*
DIRUT	REASK+2, REASK+7, REASK+9, REASK+11, URX+1*, OERF+3, KV!
DRG	2+11~, 2+12*, 2+13
DT	2+7, 2+14
DTOUT	KV!
DUOUT	KV!
INST	2+1*, 2+4!
INST(	2+1*
IOM	2+2
LST	CT1+11~
>> MAX	EDNEW+3, EDNEW+8, EDNEW+9, EDNEW+10, EDNEW+11
MIG	2+1*, 2+2, 2+4!
>> NEWEDT	CT1+11
>> OR0	2+3, REF+5, REF+9
>> ORCHK	REF+11*
>> ORD	2, 2+1, 2+12, REASK+7
>> OUT	REASK+2, REASK+9, REASK+11*
>> POERR	OERF+1
>> PSDAYS	EDNEW+3, EDNEW+5, EDNEW+8, EDNEW+10, EDNEW+11, STATDAY*
PSDC	2+5, 2+8, 2+9, 2+10, 2+21, 2+22, REASK+1, CT1!, ETX, TX!
PSDC(	2+9*, REASK+4, REASK+6
PSDY	REF+10!, REF+11!, REF+12!, REFX+1!
PSDY1	REF+10!, REF+11!, REF+12!, EDNEW+3, EDNEW+8, REFX+1!
PSFMAX	EDNEW!, EDNEW+11*, STATDAY!
PSFMAX("DAYS"	EDNEW+11*
PSFMAX("MAX"	EDNEW+11*
PSFMAX("RF"	EDNEW+11*
PSI	2+5, 2+7, 2+8, 2+9, TX!
PSMAX	EDNEW!, EDNEW+11*, STATDAY!
PSMAX("DAYS"	EDNEW+11*
PSMAX("MAX"	EDNEW+11*
PSMAX("RF"	EDNEW+11*
>> PSOAC	CT1+11
PSOBDR	2+21*, EX!
PSOBDR("IEN"	REASK+7
PSOBDR("NAME"	REASK+8
PSOBDRG	2+21, EX!
>> PSOCOPY	CT1+8, CT1+10
>> PSOCSIG	REASK+6, REASK+10
>> PSODEA	EDNEW
>> PSODFN	CT1, REF, REF+1
PSODRUG	2+21, CT1+11!, EX*
PSODRUG("CLN"	CT1+3*
PSODRUG("COST"	CT1+9*
PSODRUG("DAW"	CT1+7*
PSODRUG("DEA"	CT1+3*, REF, REF+2, REF+10
PSODRUG("EXPI	RATION DATE" , CT1+9*
PSODRUG("IEN"	2+23, 2+24!, CT1+1*, REF
PSODRUG("MAXDOSE"	CT1+3*
PSODRUG("NAME"	2+24!, CT1+1*
PSODRUG("NDC"	CT1+4*, CT1+6
PSODRUG("NDF"	CT1+2*
PSODRUG("OI"	2+3*, 2+7, 2+23
PSODRUG("SIG"	CT1+4*
PSODRUG("STKLVL"	CT1+4*
PSODRUG("UNIT"	CT1+9*
PSODRUG("VA C	LASS" , CT1+1*
>> PSOFIN	CT1+8, CT1+10
>> PSONEW("# OF	REFILLS" , REF+3, REF+7, REF+10, REF+11, REF+12, OERF+1, OERF+4, REFX*
>> PSONEW("CS"	REF+1, REF+2, REF+3, REF+4
>> PSONEW("DAYS	SUPPLY" , REF+11*
>> PSONEW("N# RE	F" , REF+11, OERF+1, OERF+4, REFX
>> PSONEW("NDC"	CT1+6*
>> PSOQFLG	ETX, EX
>> PSORX("DFLG"	CT1+11
>> PSOSITE	CT1+4
PSOX	REF+5, REF+6, REF+7, REF+9, REF+10, REF+11, REF+12, EDNEW+2, EDNEW+3, EDNEW+5 , EDNEW+8, OERF, OERF+1, REFX, REFX+1!
PSOX1	CT1+9, TX!, EDNEW+2, EDNEW+5*, OERF+1, REFX, REFX+1!
PSOY	REASK+6!*, REASK+7, REASK+8, CT1!, CT1+1, CT1+2, CT1+3, CT1+4, CT1+7, CT1+8 , CT1+9, TX!
PSOY(0	REASK+6*, CT1+1, CT1+3, CT1+4
>> PSRF	EDNEW+9, EDNEW+10, EDNEW+11, STATDAY*, EDSTAT
PSRMAX	STATDAY!
PSTMAX	EDNEW+12!, STATDAY!, EDSTAT*
PSTMAX("PSRF"	EDSTAT*
PSTMAX("PT"	EDSTAT*
PSTMAX("PTRF"	EDSTAT*
>> PTDY	STATDAY*
PTRF	REF+1, REF+6, REF+9, REF+10!, REF+11!, REF+12!, EDNEW+2, EDNEW+5, STATDAY, EDSTAT
>> PTST	STATDAY*, EDSTAT
SG	2+2*, 2+4!
TY	2+4!
>> VALMBCK	CT1, CT1+11, ETX, EX
>> VALMSG	CT1, ETX
X	2+11~, 2+13*, 2+14, TX!, STATDAY, REFX+1!
Y	REASK+4*, REASK+6, REASK+10, REASK+11, TX!, URX+1, OERF+4, REFX+1!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOORNW1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: