Routine: PSOORNE1

Package	Total	Call Graph
Outpatient Pharmacy	17	(1,10,11,12,13,2,3,4,5,6,7,8,9,INS)^PSOBKDED ^PSOBUILD SINS^PSODIR POST^PSODRG SIGONE^PSOHELP ^PSOLMPO2 HLDHDR^PSOLMUTL EN^PSON52 NOOR^PSONEW (DCORD,DISPLAY)^PSONEW2 ^PSONEWG NCPDP^PSOORED6 M3^PSOOREDX DSPL^PSOORNE3 (RDSPL,RXNCHK)^PSOORNE5 2^PSOORNW1 (NPSOSD,PROV)^PSOUTIL
VA Fileman	2	EN^DIQ1 ^DIR
IHS Changes To Pharmacy	1	IHSFLDS^APSPDIR
Registration	1	(FULL,PAUSE)^VALM1

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSOLMUTL PSONEW2 PSOORED1 PSOORFIN PSOORNEW

Entry Points

Name	Comments	DBIA/ICR reference
M3
SUMMCL	;
SUMM	;print break down of orders to be finished
ACP
RDSPL
SUMMQ
1
0	; EP - IHS/CIA/PLS - 01/26/04 - Prompt IHS Fields
3
2
5
4
7
6
9
8
EN(PSONEW)
VER
RXNCHK
11
10
13
12
14
EDTSEL
CLDIR
EDT	;N FLD,LST K DIR,DUOUT,DIRUT S DIR("A")="Select Field to Edit by number",DIR(0)="LO^1:14" D ^DIR I $D(DTOUT)!($D(DUOUT)) K DIR,DIRUT,DTOUT,DTOUT S VALMBCK="" Q

External References

Name	Field # of Occurrence
IHSFLDS^APSPDIR	0+1
EN^DIQ1	SUMM+4, SUMM+14
^DIR	EDT+1, ACP+8, SUMM+3, SUMM+12, SUMM+18, SUMMCL+4, SUMMCL+27, CLDIR
1^PSOBKDED	3
10^PSOBKDED	5+1
11^PSOBKDED	13
12^PSOBKDED	10
13^PSOBKDED	14
2^PSOBKDED	4
3^PSOBKDED	2
4^PSOBKDED	12
5^PSOBKDED	11
6^PSOBKDED	1+1
7^PSOBKDED	8
8^PSOBKDED	7
9^PSOBKDED	9
INS^PSOBKDED	6
^PSOBUILD	ACP+20
SINS^PSODIR	6
POST^PSODRG	VER+10
SIGONE^PSOHELP	VER+6
^PSOLMPO2	EN
HLDHDR^PSOLMUTL	EDTSEL+3
EN^PSON52	ACP+14
NOOR^PSONEW	ACP+2
DCORD^PSONEW2	ACP+11
DISPLAY^PSONEW2	ACP+5
^PSONEWG	ACP+6
NCPDP^PSOORED6	ACP+12
M3^PSOOREDX	M3
DSPL^PSOORNE3	EN, EDTSEL+3, EDTSEL+6, ACP+10, 1, 1+1
RDSPL^PSOORNE5	RDSPL
RXNCHK^PSOORNE5	RXNCHK
2^PSOORNW1	VER, 1, 5
NPSOSD^PSOUTIL	ACP+19
PROV^PSOUTIL	VER+9
FULL^VALM1	EDTSEL+5, VER, VER+4, VER+10, VER+12
PAUSE^VALM1	VER+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "..." Line Location: ACP+11
Function Call: WRITE	Prompt: !,"Dosing Instruction Missing!!",! Line Location: VER+2
Function Call: WRITE	Prompt: !,"Drug: "_PSODRUG("NAME") Line Location: VER+4
Function Call: WRITE	Prompt: !,SIG(I) Line Location: VER+5
Function Call: WRITE	Prompt: !,$E($G(INS1),2,250) Line Location: VER+6
Function Call: WRITE	Prompt: !!,$C(7),Y_" fill date is greater than possible expiration date of " Line Location: VER+14
Function Call: WRITE	Prompt: Y_"." Line Location: VER+14
Function Call: WRITE	Prompt: !!,"Drug: "_PSODRUG("NAME") Line Location: 5+1
Function Call: WRITE	Prompt: @IOF Line Location: SUMM+10
Function Call: WRITE	Prompt: !?20,"Pending Outpatient Medication Orders",! Line Location: SUMM+10
Function Call: WRITE	Prompt: !?20,"Pending Outpatient Medication Orders",! Line Location: SUMM+10
Function Call: WRITE	Prompt: ! Line Location: SUMM+12
Function Call: WRITE	Prompt: !?20,"Pending Outpatient Medication Orders",! Line Location: SUMM+13
Function Call: WRITE	Prompt: ?20,"(signed in under "_$G(PSOINPRT)_")",! Line Location: SUMM+13
Function Call: WRITE	Prompt: ! Line Location: SUMMCL+2
Function Call: WRITE	Prompt: @IOF Line Location: SUMMCL+18
Function Call: WRITE	Prompt: !?20,"Pending Outpatient Medication Orders" Line Location: SUMMCL+18
Function Call: WRITE	Prompt: !?20,"Pending Outpatient Medication Orders" Line Location: SUMMCL+18
Function Call: WRITE	Prompt: !,"Clinic: "_$P($G(^SC(PSCXL,0)),"^")_" cont." Condition for execution: $G(PSOCAG) Line Location: SUMMCL+25
Function Call: WRITE	Prompt: ! Condition for execution: $G(PCCNT)>0 Line Location: SUMMCL+25
Function Call: WRITE	Prompt: ?16,$P($G(^PS(59.8,PSCSORT,0)),"^") Line Location: SUMMCL+25
Function Call: WRITE	Prompt: ?16,"* NO CLINIC SORT GROUPS *" Line Location: SUMMCL+26
Function Call: WRITE	Prompt: @IOF Line Location: CLDIR+1
Routine Call	DIR Line Location: EDT+1 ACP+8 SUMM+3 SUMM+12 SUMM+18 SUMMCL+4 SUMMCL+27 CLDIR

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	VER+14
^PS(52.41 - [#52.41]	SUMM+5, SUMM+6, SUMM+9, SUMMCL+8, SUMMCL+9
^PS(55 - [#55]	6
^PS(59.8 - [#59.8]	SUMMCL+24, SUMMCL+25
^PSRX - [#52]	VER+6
^SC - [#44]	SUMMCL+21, SUMMCL+25
^TMP("PSOBEDT"	ACP+16, ACP+17, ACP+18*
^TMP($J	SUMM+1!, SUMM+7, SUMM+8, SUMM+9, SUMM+11, SUMM+17, SUMM+19!, SUMMCL+7!, SUMMCL+13, SUMMCL+14* , SUMMCL+15, SUMMCL+16, SUMMCL+17, SUMMCL+19, SUMMCL+22, SUMMQ!
^UTILITY("DIQ1"	SUMM+4!, SUMM+14!

Label References

Name	Line Occurrences
5	VER+7
6	VER+8
@(	EDTSEL+4
CLDIR	SUMMCL+20, SUMMCL+25
M3	VER+7, VER+8
RDSPL	EDTSEL+6, ACP+3, 1, 1+1
RXNCHK	ACP+3
SUMMCL	SUMM+5
SUMMQ	SUMMCL+17
VER	ACP

Naked Globals

Name	Field # of Occurrence
^("CLIN"	SUMM+17
^("MAIL"	SUMM+17
^("WIN"	SUMM+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BINGCRT	VER+12*
>> BINGRTE	VER+12*
>> COPY	EDTSEL, ACP+13, ACP+22, VER+9
DA	SUMM+4!, SUMM+14!
DIC	SUMM+4!, SUMM+14!
DIQ	SUMM+4!, SUMM+14!
DIQ(0	SUMM+4, SUMM+14
DIR	EDT+1!, ACP!, ACP+2!, ACP+4!, ACP+6!, ACP+8!, ACP+9!, ACP+10!, ACP+11!, SUMM+1! , SUMM+3!, SUMM+12!, SUMM+18!, SUMMCL+2!, SUMMCL+4!, SUMMCL+27!, CLDIR!
DIR("?"	SUMMCL+2, SUMMCL+3
DIR("A"	EDT+1, ACP+8, SUMM+2, SUMM+18, SUMMCL+2, SUMMCL+27, CLDIR*
DIR("B"	ACP+8, SUMM+2, SUMMCL+2*
DIR(0	EDT+1, ACP+8, SUMM+2, SUMM+12, SUMM+18, SUMMCL+2, SUMMCL+27, CLDIR
DIRUT	EDT+1!, ACP+2!, ACP+4!, ACP+6!, ACP+8!, ACP+9!, ACP+10!, ACP+11!, SUMM+1!, SUMM+3!
DR	SUMM+4!, SUMM+14!
DT	ACP+14
DTOUT	EDT+1!, ACP+2!, ACP+4!, ACP+6!, ACP+9!, ACP+10!, ACP+11!, SUMMCL+4
DUOUT	EDT+1!, ACP+2!, ACP+4!, ACP+6!, ACP+9!, ACP+10!, ACP+11!, SUMM+1!, SUMMCL+4
FLD	EDT+1~, EDTSEL+4*
>> I	VER+5*
>> INS1	VER+6
IOF	SUMM+10, SUMM+13, SUMMCL+18, CLDIR+1
IOSL	SUMM+12, SUMMCL+20, SUMMCL+25
LST	EDT+1~, EDTSEL+3*, EDTSEL+4
>> NCPDPFLG	ACP+12
PAT	SUMM+1!
PCCNT	SUMMCL+7~, SUMMCL+24, SUMMCL+25
PHI	ACP+13!
PIN	SUMM+6*, SUMM+9, SUMM+19!
PRC	ACP+13!
PSCIN	SUMMCL+7~, SUMMCL+8*, SUMMCL+9
PSCLOUT	SUMMCL+7~, SUMMCL+19, SUMMCL+20, SUMMCL+24, SUMMCL+25, SUMMCL+27, CLDIR*
PSCNDE	SUMMCL+7~, SUMMCL+9*, SUMMCL+10, SUMMCL+11, SUMMCL+12
PSCPT	SUMMCL+7~, SUMMCL+8*
PSCSFLAG	SUMMCL+7~, SUMMCL+24, SUMMCL+25, SUMMCL+26
>> PSCSORT	SUMMCL+24*, SUMMCL+25
PSCX	SUMMCL+7~, SUMMCL+8*
PSCXL	SUMMCL+7~, SUMMCL+19*, SUMMCL+21, SUMMCL+22, SUMMCL+24, SUMMCL+25
>> PSEXDT	VER+11, VER+13, VER+14
PSI	SUMM+6*, SUMM+8, SUMM+19!
PSID	SUMM+6*, SUMM+7, SUMM+8, SUMM+9, SUMM+19!
PSLX	SUMMCL+7~, SUMMCL+8*
PSNCL	SUMMCL+7~, SUMMCL+12*, SUMMCL+13, SUMMCL+14, SUMMCL+15, SUMMCL+16
PSNPAT	SUMMCL+7~, SUMMCL+12*, SUMMCL+13, SUMMCL+15, SUMMCL+16
PSOAC	VER, 1*!
PSOANSQ	ACP+6!, ACP+9!, ACP+10!
PSOANSQD	ACP+6!, ACP+9!, ACP+11!
>> PSOBEDT	ACP+15
PSOCAG	SUMMCL+7~, SUMMCL+24, SUMMCL+25
PSOCLSUM	SUMM+5~, SUMMCL+4, SUMMCL+6
>> PSOCPZ("DFLG"	ACP+6!, ACP+7!
>> PSODFN	ACP+16, ACP+17, ACP+18, 6
>> PSODIR("DFLG"	EDTSEL+4
>> PSODIR("QFLG"	EDTSEL+4
>> PSODRUG("IEN"	5
>> PSODRUG("NAME"	VER, VER+1, VER+4, 5+1
>> PSOEDIT	EDTSEL*
>> PSOID	ACP+14*
PSOINL	SUMM+11*, SUMM+14, SUMM+17, SUMM+19!
PSOINPRT	SUMM+4!*, SUMM+5!, SUMM+10, SUMM+13, SUMM+19!, SUMMCL+18
PSOINPRX	SUMM+14!*, SUMM+16, SUMM+19!
PSONEW	EN~, ACP+14, ACP+19, 0+1, 6
PSONEW("# OF	REFILLS" , ACP+21!
PSONEW("DAYS	SUPPLY" , ACP+21!
PSONEW("DFLG"	EDTSEL, ACP+2, ACP+4, ACP+6, ACP+9, ACP+22, VER+2, VER+7, VER+8, VER+9 , 6
PSONEW("ENT"	VER+2
PSONEW("FIELD"	EDTSEL*
PSONEW("FILL	DATE" , VER+14
PSONEW("MAIL/WINDOW"	ACP+16, ACP+18, VER+12
PSONEW("OIRXN"	VER+6
PSONEW("POE"	ACP+14*
PSONEW("QFLG"	ACP+4
PSONEW("RX #"	, RXNCHK
PSONEW2	ACP!
PSONEW2("QFLG"	ACP, VER+1, VER+2, VER+9, VER+15
>> PSONEW3	EDTSEL*
PSONOBCK	ACP+1~*
PSONOOR	VER+10!
PSOORRNW	VER+3*, VER+7!
>> PSOPINST	SUMM+4
>> PSORENW	VER+9
>> PSORX("DFLG"	EDTSEL+3, ACP!, VER+10
>> PSORX("FN"	ACP+14*
>> PSORX("QFLG"	EDTSEL+3
>> PSORXED("IRXN"	ACP+16, ACP+17
>> PSOSIGFL	ACP+1, ACP+13, VER+10, 1
>> PSZCNT	SUMM+10, SUMM+13, SUMMCL+18
PSZLQUIT	SUMM+1!, SUMM+11, SUMM+12*, SUMM+19!
PZA	SUMM+7*, SUMM+19!
PZROUT	SUMM+9*, SUMM+19!
RT	SUMM+1!, SUMM+19!
SDA	ACP+21!
SEG1	ACP+21!
>> SIG(	VER+5
>> SIG(0	VER+5
SSN1	ACP+21!
STA	ACP+21!
>> VALMBCK	EDT+1, EDTSEL+3, EDTSEL+5, ACP, ACP+10, ACP+20, VER+10, VER+15
VALMSG	ACP!, VER+1, VER+4!, 5
X	ACP+2!, ACP+4!, ACP+6!, ACP+8!, ACP+9!, ACP+10!, ACP+11!, VER+6*, SUMM+3!
Y	EDTSEL+3, ACP+2!, ACP+4!, ACP+6!, ACP+8!, ACP+9!, ACP+10!, ACP+11!, VER+14*, SUMM+3! , SUMM+12, SUMMCL+5, CLDIR
Z4	ACP+21!
ZDA	ACP+21!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOORNE1

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: