Routine: PSODSPL

Package	Total	Call Graph
CMOP	1	^PSXOPUTL
IHS Changes To Pharmacy	1	EN^APSQSHOW
Outpatient Pharmacy	1	GMRA^PSODEM
VA Fileman	1	^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	7	PSOBUILD PSOCAN1 PSODGDG1 PSONRXN PSORXL PSOVER PSOVER1
IHS Changes To Pharmacy	5	APSPDSC APSPLIST APSPNUM APSPSUM APSQFAS

Entry Points

Name	Comments	DBIA/ICR reference
END
DISPL
SHOW	;
EOJ	;
STA	; ; dmh added this check APSPDSC("ST") may be set from APSPDSC routine ; 5/23/2002 dmh added the next 2 lines to check for it and ; only print sta line if status is same as what was set in APSPDSC ; will also set a flag for loop stop above
START	;
PEN	;
SHOWX
HD	;
EOF

External References

Name	Field # of Occurrence
EN^APSQSHOW	SHOW+17
^DIR	SHOW+20, EOF
GMRA^PSODEM	SHOW+20
^PSXOPUTL	DISPL+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"This patient has no prescriptions",! Line Location: START+1
Function Call: WRITE	Prompt: ! Line Location: SHOW+13
Function Call: WRITE	Prompt: !!?10,"* indicates prescription is not renewable and/or refillable" Line Location: SHOW+18
Function Call: WRITE	Prompt: !,?10,"(%) indicates this is a free text drug name not in drug file" Line Location: SHOW+19
Function Call: WRITE	Prompt: ! Line Location: SHOWX+0
Function Call: WRITE	Prompt: !!,?61,"ISSUE",?68,"LAST",?73,"REF DAY",!,?4,"RX #",?17,"DRUG",?54,"QTY",?58,"ST",?62,"DATE",?68,"FILL",?73,"REM",?77,"SUP" Line Location: HD+3
Function Call: WRITE	Prompt: !,LINE Line Location: HD+3
Function Call: WRITE	Prompt: ! Line Location: DISPL+0
Function Call: WRITE	Prompt: $J(PSOCNT,2) Line Location: DISPL+2
Function Call: WRITE	Prompt: ?3,$P(^PSRX(+PSODATA,0),"^")_$S($G(^PSRX(+PSODATA,"IB")):"$",1:"") Line Location: DISPL+5
Function Call: WRITE	Prompt: ?17,$P(PSODRUG,"^"),?PSOQTLZ,$P(^PSRX(+PSODATA,0),"^",7) Line Location: DISPL+6
Function Call: WRITE	Prompt: ?17,$P(PSODRUG,"^") Line Location: DISPL+7
Function Call: WRITE	Prompt: ?58,$P(STA,"^",$P(PSODATA,"^",2)+1) Line Location: DISPL+14
Function Call: WRITE	Prompt: $G(PSOCMOP) Line Location: DISPL+14
Function Call: WRITE	Prompt: ?61,$E(PSOID,4,5)_"-"_$E(PSOID,6,7) Line Location: DISPL+15
Function Call: WRITE	Prompt: ?67,$S(+PSOLF:$E(PSOLF,4,5)_"-"_$E(PSOLF,6,7),1:" - "),$P(PSOLF,"^",2) Line Location: DISPL+24
Function Call: WRITE	Prompt: ?74,$J($P(PSODATA,"^",6),2) Line Location: DISPL+25
Function Call: WRITE	Prompt: ?78,$J($P(PSODATA,"^",8),2) Line Location: DISPL+26
Function Call: WRITE	Prompt: !?PSOQTLZ,"Qty: ",$P(^PSRX(+PSODATA,0),"^",7) Line Location: DISPL+27
Function Call: WRITE	Prompt: ! Line Location: STA+12
Function Call: WRITE	Prompt: "-" Line Location: STA+12
Function Call: WRITE	Prompt: PSOSTA Line Location: STA+13
Function Call: WRITE	Prompt: "-" Line Location: STA+13
Function Call: WRITE	Prompt: "-" Line Location: STA+14
Function Call: WRITE	Prompt: ! Line Location: PEN+2
Function Call: WRITE	Prompt: $J(PSOCNT,2) Line Location: PEN+2
Function Call: WRITE	Prompt: ?3,$P(PSODRUG,"^") Line Location: PEN+5
Function Call: WRITE	Prompt: ! Line Location: PEN+5
Routine Call	DIR Line Location: SHOW+20 EOF

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	SHOW+17, SHOW+19, DISPL+10
^%ZOSF("XY"	HD+1
^PSDRUG("AQ"	DISPL+9, PEN+1
^PSRX - [#52]	SHOW+15, DISPL+4, DISPL+5, DISPL+6, DISPL+9, DISPL+15, DISPL+22, DISPL+23, DISPL+27

Label References

Name	Line Occurrences
DISPL	SHOW+15
END	START+1
EOF	PEN+8
EOJ	START+2, END
HD	SHOW+9, EOF
PEN	SHOW+10
SHOW	START+2
SHOWX	SHOW+16
STA	SHOW+9, EOF

Naked Globals

Name	Field # of Occurrence
^(0	SHOW+15
^(3	DISPL+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APSPDSC("QFLG"	SHOW+9, STA+6!, STA+7*
>> APSPDSC("ST"	STA+7
>> APSPZDT	DISPL+19*
>> APSPZDT(	DISPL+18*
DA	DISPL+11~*!
>> DFN	SHOW+20*
DIR	SHOW+20!, EOF!
DIR("A"	SHOW+20*
DIR(0	SHOW+20, EOF
DIROUT	SHOWX!, EOF!
DIRUT	SHOWX!, EOF!
DTOUT	SHOWX!, EOF!
DUOUT	SHOWX!, EOF!
DX	HD+1*!
DY	HD+1*!
>> I	STA+12, STA+13
>> INPAT	SHOW+20
IOM	STA+12
IOSL	HD+1, EOF
LINE	HD+2!, HD+3*!
PSCMOPR	PEN+1~*, PEN+7
>> PSCNT	SHOW+9*
PSOCMOP	DISPL+8~, DISPL+9, DISPL+12, DISPL+14
PSOCNT	SHOW+2, SHOW+9, SHOW+10, SHOW+15, SHOWX, DISPL+1*, DISPL+3, DISPL+18, DISPL+19, EOF , EOJ+1!, PEN+2
>> PSOCT	SHOW+9*
PSODATA	SHOW+10*, SHOW+12, SHOW+13, SHOW+14, SHOW+15, DISPL+4, DISPL+5, DISPL+6, DISPL+9, DISPL+11 , DISPL+14, DISPL+15, DISPL+18, DISPL+22, DISPL+23, DISPL+25, DISPL+26, DISPL+27, DISPL+28!, EOJ+1! , PEN+1, PEN+4, PEN+7, PEN+8!
>> PSODFN	SHOW+20
PSODQLZ	DISPL+4, DISPL+6, DISPL+27, DISPL+28!, PEN+4, PEN+5, PEN+8!
PSODRUG	SHOW+2, SHOW+9, SHOW+10, SHOW+12, SHOW+13, SHOWX!, DISPL+4, DISPL+6, DISPL+7, EOF , EOJ+1!, PEN+4, PEN+5
PSOHI	EOF*, EOJ+1!
PSOID	DISPL+15*, DISPL+28!, EOJ+1!, PEN+8!
PSOLF	DISPL+15, DISPL+18, DISPL+22, DISPL+23*, DISPL+24, DISPL+28!, EOJ+1!, PEN+8!
PSOLO1	EOJ+1!
>> PSOOPT	DISPL+3, PEN+2
PSOPENFL	SHOW+1, HD+2, EOJ+1!, PEN+3
PSOQFLG	SHOW+2, SHOW+9, SHOW+16, EOF, STA+8, EOJ+1!
PSOQTLZ	DISPL+6, DISPL+27, DISPL+28!, PEN+4*, PEN+8!
>> PSOSD	START+1
>> PSOSD(	SHOW+9, SHOW+10, EOF
>> PSOSTA	SHOW+2, SHOW+9, SHOW+10, SHOW+11, DISPL+1, DISPL+3, EOF, STA+7, STA+11, STA+12 , STA+13, STA+14
PSOX	DISPL+22*, DISPL+28!
PSXZ	DISPL+13!
PSXZ(	DISPL+12
PSXZ("L"	DISPL+12
STA	DISPL+14*!
>> STP	STA+12*, STA+13
>> STR	STA+12*
X	SHOW+17, SHOW+19, DISPL+10~*!
ZSTA	STA+11*, STA+14!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODSPL

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: