Routine: PSSPOIM2

Package	Total	Call Graph
VA FileMan	5	C^%DTC ^DIC FILE^DICN ^DIE ^DIR
Pharmacy Data Management	4	INACT^PSSADDIT EN^PSSPOIDT (,CHECK,END,MESSZ)^PSSPOIM1 (,DIR)^PSSPOIM3
National Drug File	1	($$PSJDF,$$VAGN)^PSNAPIS

Entry Points

Name	Comments	DBIA/ICR reference
BEG	;
CHECK
START
TMP
DISP
DISPO
MCH
MCHA
MCHAN
LOOK
COM
OTHER
WOOPS

External References

Name	Field # of Occurrence
C^%DTC	BEG+2
^DIC	MCHA+1, LOOK+1
FILE^DICN	MCHAN+10
^DIE	MCH+3, MCHAN+6, MCHAN+10, LOOK+1
^DIR	PSSPOIM2+4, START+4, DISP+1, DISPO, MCH, MCHA, MCHA+3, MCHAN+3, LOOK+2
$$PSJDF^PSNAPIS	START+1, TMP+1
$$VAGN^PSNAPIS	START+1
INACT^PSSADDIT	START+5
EN^PSSPOIDT	START+6
^PSSPOIM1	MCH+2, MCHAN+6, MCHAN+10, LOOK+1
CHECK^PSSPOIM1	CHECK
END^PSSPOIM1	CHECK+1
MESSZ^PSSPOIM1	PSSPOIM2+5
^PSSPOIM3	PSSPOIM2+6
DIR^PSSPOIM3	START+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,$S($P($G(^(80)),"^",2)<2:"Orderable Item Auto-Create has not been completed!",1:"Manual matching process complete!"),!! Line Location: PSSPOIM2+3
Function Call: WRITE	Prompt: !!?3,"NOW MATCHING DISPENSE DRUGS!",! Line Location: BEG+1
Function Call: WRITE	Prompt: !!!?5,"Dispense Drug -> ",PSNAME Line Location: START+0
Function Call: WRITE	Prompt: ! Line Location: START+4
Function Call: WRITE	Prompt: !!?3,"Now editing Orderable Item:",!?3,$P($G(^PS(50.7,PSPOI,0)),"^")_" "_$P($G(^PS(50.606,+$P($G(^(0)),"^",2),0)),"^") Line Location: START+5
Function Call: WRITE	Prompt: !,TT," ",$P($G(^PS(50.7,SPT,0)),"^")_" "_$P($G(^PS(50.606,+$P($G(^(0)),"^",2),0)),"^") Line Location: DISP+0
Function Call: WRITE	Prompt: @IOF Line Location: DISP+1
Function Call: WRITE	Prompt: !,?3,"Dispense Drug -> ",PSNAME,! Line Location: DISP+1
Function Call: WRITE	Prompt: ! Line Location: DISPO+0
Function Call: WRITE	Prompt: !!,?5,"INVALID NUMBER" Line Location: DISPO+1
Function Call: WRITE	Prompt: !?3,"Dose Form -> ",DOSEFORM,!! Line Location: MCHA+0
Function Call: WRITE	Prompt: !!?3,"Dose Form -> ",$G(Y(0,0)) Line Location: MCHA+2
Function Call: WRITE	Prompt: ! Line Location: MCHA+3
Function Call: WRITE	Prompt: !! Line Location: MCHAN+0
Function Call: WRITE	Prompt: !,"VA Generic Name -> ",VAGEN,! Line Location: MCHAN+0
Function Call: WRITE	Prompt: !,?3,"Dose Form -> ",DOSEFORM,!,?3,"Dispense Drug -> ",PSNAME,! Line Location: MCHAN+1
Function Call: WRITE	Prompt: $C(7),!!?5,"??" Line Location: MCHAN+4
Function Call: WRITE	Prompt: !!!?3,"Enter ?? for Pharmacy Orderable Item List!" Line Location: LOOK+0
Function Call: WRITE	Prompt: ! Line Location: LOOK+1
Function Call: WRITE	Prompt: ! Line Location: LOOK+2
Function Call: WRITE	Prompt: @IOF Line Location: OTHER+0
Function Call: WRITE	Prompt: !,"There are other Dispense Drugs with the same VA Generic Name and same Dose",!,"Form already matched to orderable items. Choose a number to match, or enter",!,"'^' to enter a new one.",!!?6,"Disp. drug -> ",PSNAME,! Line Location: OTHER+0
Routine Call	DIC Line Location: MCHA+1 LOOK+1
Routine Call	DIE Line Location: MCH+3 MCHAN+6 MCHAN+10 LOOK+1
Routine Call	DIR Line Location: PSSPOIM2+4 START+4 DISP+1 DISPO MCH MCHA MCHA+3 MCHAN+3 LOOK+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^PS(50.606 - [#50.606]	Classic Fileman Calls
^PS(50.7 - [#50.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	START+5, DISP, MCHA+4
^PS(50.7 - [#50.7]	START+5, TMP, DISP, MCHAN+5
^PS(59.7 - [#59.7]	PSSPOIM2+3
^PSDRUG - [#50]	BEG+3, BEG+4, BEG+5, START+1, TMP, TMP+2, TMP+3
^PSDRUG("AND"	TMP
^PSDRUG("B"	BEG+3
^TMP("PSSLOOP"	PSSPOIM2+2, WOOPS
^TMP($J	TMP!, TMP+2, TMP+3*, DISP, DISPO+1, DISPO+2, MCH, MCH+1, MCH+2, MCH+3

Label References

Name	Line Occurrences
CHECK	PSSPOIM2+5, PSSPOIM2+6
COM	MCH+3, MCHAN+6, MCHAN+10, LOOK+1
DISP	MCH+1
DISPO	DISPO+1
LOOK	MCHA, MCHA+4, LOOK+1
MCH	START+4
MCHAN	MCHAN+4, MCHAN+8, MCHAN+10, LOOK+2
OTHER	MCH+1
START	BEG+3, START+7
TMP	START+3
WOOPS	PSSPOIM2+2

Naked Globals

Name	Field # of Occurrence
^(0	BEG+3, START+5, DISP
^(80	PSSPOIM2+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AAA	BEG+2, BEG+3
>> APLU	BEG+3, BEG+4*
>> COMM	MCHAN+5*, MCHAN+6
>> DA	START+1, TMP+1, MCH+3, MCHAN+6, MCHAN+10, LOOK+1
DD	MCHAN+10!
DIC	MCHA+1!, MCHAN+10!, LOOK+1!*
DIC("A"	MCHA+1*
DIC("DR"	MCHAN+10*
DIC("S"	LOOK+1*!
DIC(0	MCHA+1, MCHAN+10, LOOK+1*
DIE	MCH+3!, MCHAN+6!, MCHAN+10, LOOK+1
DIR	PSSPOIM2+4!, START+4!, DISP+1!, DISPO!, MCH!, MCHA!, MCHA+3!, MCHAN+2!, LOOK+2!
DIR("A"	PSSPOIM2+4, START+4, DISPO, MCHA, MCHA+3, MCHAN+2, LOOK+2*
DIR("B"	START+4, MCHA, MCHA+3, MCHAN+2, LOOK+2*
DIR(0	PSSPOIM2+4, START+4, DISP+1, DISPO, MCH, MCHA, MCHA+3, MCHAN+2, LOOK+2*
DO	MCHAN+10!
>> DOSA	TMP+1*
DOSEFORM	START!, START+2, MCHA, MCHA+1, MCHA+2, MCHA+3, MCHA+4, MCHAN+1
DOSEFV	START!, START+1*, TMP+1
>> DOSEPTR	START+1, START+2, MCHA+2*, MCHA+4, MCHAN+5, MCHAN+10
>> DR	MCH+3, MCHAN+6, MCHAN+10, LOOK+1
DT	BEG+2
>> DTOUT	START+4, DISPO, MCH, MCHA, MCHA+1, MCHA+4, MCHAN+3
>> DUOUT	MCHA+1, MCHA+4, MCHAN+3
>> FFF	TMP+2*
IOF	DISP+1, OTHER
IOSL	DISP
>> K	START+1, TMP+1
>> MATCH	DISP, DISPO+2, MCH+2, MCH+3
NEWFLAG	START+5*, START+6!
NEWSP	START!, MCHAN+10, LOOK+1, COM
>> NODE	START+1*, TMP
>> NOFLAG	TMP+2*, TMP+3
>> OTH	TMP*, TMP+1
POINT	START!, TMP
>> PSCNT	TMP, TMP+3
>> PSCREATE	PSSPOIM2+6*
>> PSIEN	BEG+3*, BEG+4, BEG+5, START+1, MCH+3, MCHAN+6, MCHAN+10, LOOK+1
>> PSMAN	MCHAN+10*
>> PSNAME	BEG+3*, START, DISP+1, MCHAN+1, OTHER
>> PSNO	MCH+2, MCHAN+5*, MCHAN+6, MCHAN+8, MCHAN+10, LOOK+1
>> PSOOOUT	PSSPOIM2+6
>> PSOUT	PSSPOIM2+5, BEG+2, BEG+3, START+4, START+7, DISP, DISPO, DISPO+3, MCH, MCH+2 , MCHA, MCHA+1, MCHA+4, MCHAN+3, MCHAN+5, MCHAN+6, MCHAN+7, MCHAN+10, LOOK+1, LOOK+3*
PSPOI	START+3!, START+4, START+5, START+6!, MCH+3, MCHAN+6, COM*
PSSDIR	START+5, START+6!
PSSITE	PSSPOIM2+3*!
>> PSSP	MCH+2, MCHAN+6, LOOK+1*
>> PSXDATE	BEG+2*, BEG+5
>> PSXDDATE	BEG+5*
RESTART	START!, START+4*, START+7
SPHOLD	START!, MCHAN+5*, MCHAN+10
>> SPT	DISP*
>> STOP	MCHAN+5, MCHAN+6, MCHAN+8, MCHAN+9
>> TMPTR	TMP+2*
>> TT	DISP*
>> VAGEN	START+1*, MCHAN, MCHAN+2
>> X	BEG+2, START+1, START+2, TMP+1, MCHAN+4, MCHAN+5, MCHAN+10
>> X1	BEG+2*
>> X2	BEG+2*
>> Y	START+4, DISP, DISP+1, DISPO, DISPO+1, DISPO+2, MCH, MCHA, MCHA+1, MCHA+2 , MCHA+4, MCHAN+3, MCHAN+5, MCHAN+10, LOOK+1, LOOK+2
>> Y(0	MCHA+2
>> ZXX	BEG+3, BEG+5*
>> ZZ	TMP*, TMP+2, TMP+3

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSPOIM2

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: