Routine: PSSPOIKA

Information

PSSPOIKA ;BIR/RTR-Orderable Item reports ;09/01/98

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
National Drug File	1	$$VAGN^PSNAPIS
Pharmacy Data Management	1	KMES^PSSPOIM1
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Pharmacy Data Management	1	PSS ORDERABLE ITEM REPORT

Entry Points

Name	Comments	DBIA/ICR reference
NDHEAD
END
SOL
DHEAD
ADD
QUE
NDIS
NOT	;not matched
NSOL	;
NASH
NADD	;
FINAL
MATCH	; drugs that are matche
DIS

External References

Name	Field # of Occurrence
^%ZIS	QUE
^%ZISC	END
^%ZTLOAD	QUE+3
^DIR	PSSPOIKA+2, PSSPOIKA+6
$$VAGN^PSNAPIS	NDIS+3
KMES^PSSPOIM1	PSSPOIKA+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"Orderable Item Auto-Create has not been completed yet!",! Line Location: PSSPOIKA+2
Function Call: WRITE	Prompt: $C(7),!!!," WARNING THIS REPORT MAY BE VERY LONG WARNING " Line Location: PSSPOIKA+8
Function Call: WRITE	Prompt: !!,"This report must be QUEUED to a printer!" Line Location: PSSPOIKA+10
Function Call: WRITE	Prompt: ! Line Location: QUE+0
Function Call: WRITE	Prompt: $C(7),!?5,"This report must be QUEUED to a printer, enter Q at Device prompt!",! Line Location: QUE+1
Function Call: WRITE	Prompt: !?2,"("_LL_")",?9,"Dispense Drug -> ",$P($G(^PSDRUG(LL,0)),"^") Line Location: DIS+6
Function Call: WRITE	Prompt: @IOF Line Location: DIS+7
Function Call: WRITE	Prompt: !,?2,"("_RR_")",?9,"Additive -> ",$P(^PS(52.6,RR,0),"^") Line Location: ADD+1
Function Call: WRITE	Prompt: !,?2,"("_EE_")",?9,"Solution -> ",$P(^PS(52.7,EE,0),"^")," ",$P($G(^(0)),"^",3) Line Location: SOL+1
Function Call: WRITE	Prompt: @IOF Line Location: DHEAD+0
Function Call: WRITE	Prompt: !?5,"ORDERABLE ITEM - DISPENSE DRUG (MATCHED REPORT)",?68,"PAGE: ",PAGE,!,LIN Line Location: DHEAD+0
Function Call: WRITE	Prompt: !!,"("_TT_") "_NME," ",DOSE Line Location: DHEAD+1
Function Call: WRITE	Prompt: !!,"("_TT_") "_NME," ",DOSE," cont." Line Location: DHEAD+2
Function Call: WRITE	Prompt: !,LIN Line Location: NDIS+2
Function Call: WRITE	Prompt: !,"("_EE_") "_$P($G(^PSDRUG(EE,0)),"^")," ",$G(REA) Line Location: NDIS+5
Function Call: WRITE	Prompt: @IOF Line Location: NDIS+6
Function Call: WRITE	Prompt: !,?2,"("_SS_") "_$P($G(^PS(52.6,SS,0)),"^")," -> ",$S(PSDIS:$P($G(^PSDRUG(PSDIS,0)),"^"),1:"(not matched to a Dispense Drug)")," (A)" Line Location: NADD+3
Function Call: WRITE	Prompt: !,?2,"("_ZZ_") "_$P($G(^PS(52.7,ZZ,0)),"^")," ",$P($G(^(0)),"^",3)_" (S)" Line Location: NSOL+2
Function Call: WRITE	Prompt: !,"("_RR_")",?9,AA," ("_$G(^TMP("PSS",$J,AA,RR))_")"," (Not matched to a dispense drug)" Line Location: FINAL+1
Function Call: WRITE	Prompt: @IOF Line Location: FINAL+2
Function Call: WRITE	Prompt: @IOF Line Location: NASH+0
Function Call: WRITE	Prompt: !?5,"ADDITIVES/SOLUTIONS NOT MATCHED TO AN ORDERABLE ITEM",?68,"PAGE: ",PAGE,!,LIN Line Location: NASH+0
Function Call: WRITE	Prompt: @IOF Line Location: NDHEAD+0
Function Call: WRITE	Prompt: !?5,"DISPENSE DRUGS (NOT MATCHED TO ORDERABLE ITEM)",?68,"PAGE: ",PAGE,!,LIN Line Location: NDHEAD+0
Routine Call	DIR Line Location: PSSPOIKA+2 PSSPOIKA+6
Routine Call	%ZIS Line Location: QUE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	DIS+2
^PS(50.7 - [#50.7]	DIS+1, DIS+2, ADD, SOL
^PS(52.6 - [#52.6]	ADD, ADD+1, NADD+1, NADD+2, NADD+3
^PS(52.7 - [#52.7]	SOL, SOL+1, NSOL+1, NSOL+2
^PS(59.7 - [#59.7]	PSSPOIKA+2
^PSDRUG - [#50]	DIS+6, NDIS+2, NDIS+3, NDIS+5, NADD+3
^PSDRUG("ASP"	DIS+1, DIS+5
^PSDRUG("B"	NDIS+2
^TMP("PSS"	NDIS!, NADD+1, NSOL+1, FINAL+1

Label References

Name	Line Occurrences
ADD	DIS+1
DHEAD	DIS, DIS+3, DIS+6, ADD+1, SOL+1
END	PSSPOIKA+6, QUE, DIS+7, FINAL+2
FINAL	NDIS+6
NADD	NDIS+2
NASH	FINAL, FINAL+1
NDHEAD	NDIS+1, NDIS+5, NADD+3, NSOL+2
NSOL	NDIS+2
QUE	QUE+1
SOL	DIS+1

Naked Globals

Name	Field # of Occurrence
^(0	DIS+2, SOL+1, NSOL+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	QUE!*
%ZIS("B"	QUE*
AA	END!, NADD+1, FINAL+1
BB	END!, NSOL+1*
CC	END!, NDIS+2*
>> DA	NDIS+3*
DIR	PSSPOIKA+2!, PSSPOIKA+4!, PSSPOIKA+6!
DIR("A"	PSSPOIKA+2, PSSPOIKA+4, PSSPOIKA+5*
DIR(0	PSSPOIKA+2, PSSPOIKA+4
DOSE	END!, DIS+2*, DIS+4, DHEAD+1, DHEAD+2
DTOUT	PSSPOIKA+6, END!
DUOUT	PSSPOIKA+6, END!
EE	END!, SOL, SOL+1, NDIS+2, NDIS+3, NDIS+5, NADD+1, NSOL+1
GFLAG	END!, DIS, DIS+6, ADD+1, SOL+1, DHEAD+2, DHEAD+3*
IO("Q"	QUE+3!
IOF	DIS+7, DHEAD, NDIS+6, FINAL+2, NASH, NDHEAD
IOP	QUE!
IOSL	DIS+3, DIS+6, ADD+1, SOL+1, NDIS+5, NADD+3, NSOL+2, FINAL+1
IOST	QUE+1
KK	END!
LIN	END!, DIS, DIS+4, DHEAD, NDIS+1, NDIS+2, NASH, NDHEAD
LL	END!, DIS+5*, DIS+6
MM	END!, DIS+1*
NDNODE	END!, NDIS+3*, NDIS+4
NME	END!, DIS+2*, DIS+4, DHEAD+1, DHEAD+2
NN	END!, DIS+1*
PAGE	END!, DIS, DHEAD, NDIS+1, FINAL, NASH, NDHEAD
>> POP	QUE
PSDIS	END!, NADD+2*, NADD+3
PSPOI	END!, ADD, SOL, NADD+1, NSOL+1
PSREP	PSSPOIKA+7*, QUE+3, END!
PSSITE	PSSPOIKA+2*!, PSSPOIKA+4!
REA	END!, NDIS+3, NDIS+4, NDIS+5
RR	END!, ADD, ADD+1, FINAL+1
SS	END!, NADD+1*, NADD+2, NADD+3
TT	END!, DIS+1*, DIS+2, DIS+4, DIS+5, ADD, SOL, DHEAD+1, DHEAD+2
VV	END!
WW	END!
>> X	NDIS+3*, NDIS+4
Y	PSSPOIKA+6, PSSPOIKA+7, END!
ZFG	END!, DIS, DIS+3, DIS+4*, DHEAD+1
ZFLAG	END!
>> ZTDESC	QUE+3*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	QUE+3*
ZTSK	QUE!
ZZ	END!, NSOL+1*, NSOL+2

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSPOIKA

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: