Routine: PSSPOIMN

Package	Total	Call Graph
VA FileMan	6	DD^%DT ^DIC FILE^DICN ^DIE $$GET1^DIQ ^DIR
Pharmacy Data Management	5	$$CKDUPSOL^PSSDDUT2 DRG^PSSDGUPD DRG^PSSHUIDG (,EN,END,MESS,OTHER)^PSSPOIM1 EN2^PSSUTIL
National Drug File	1	($$PSJDF,$$VAGN)^PSNAPIS

Package	Total	Caller Graph
Pharmacy Data Management	2	PSS MAINTAIN ORDERABLE ITEMS PSSDEE1

Entry Points

Name	Comments	DBIA/ICR reference
BEG
MAS
END
REM
TMP
DISP
DISPO
MCH	;
MCHA
MCHAN
LOOK	;
COM
SET	;
SETX	;
MORE	;Show Additives and Solutions
MOREZ	;
MOREH	;
MODT	;
CKDUPVOL(OIIEN,DRUGIEN)	; Checks OI to see if it will have duplicate IV Solution Volumes ; Input: OIIEN - PHARMACY ORDERABLE ITEM File (#50.7) IEN ; DRUGIEN - DRUG File (#50) IEN

External References

Name	Field # of Occurrence
DD^%DT	MAS+7, MODT+1
^DIC	BEG+4, MCHA+1, LOOK+4
FILE^DICN	MCHAN+16
^DIE	REM+8, MCH+8, MCHAN+10, MCHAN+16, LOOK+10
$$GET1^DIQ	END+3, END+4, CKDUPVOL+7, CKDUPVOL+9, CKDUPVOL+10, CKDUPVOL+11
^DIR	PSSPOIMN+8, MAS+8, DISP+1, DISPO, MCHA, MCHA+2, MCHAN+3, LOOK+11, MORE+9, MOREZ+1 , MOREH+1
$$PSJDF^PSNAPIS	MAS+1, TMP+1
$$VAGN^PSNAPIS	MAS+1
$$CKDUPSOL^PSSDDUT2	CKDUPVOL+10
DRG^PSSDGUPD	END+4
DRG^PSSHUIDG	END
^PSSPOIM1	REM+5, MCH+5, MCHAN+7, MCHAN+15, LOOK+7
EN^PSSPOIM1	COM
END^PSSPOIM1	END+5
MESS^PSSPOIM1	PSSPOIMN+9
OTHER^PSSPOIM1	REM+1, MCH+1
EN2^PSSUTIL	SETX+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"Orderable Item Auto-Create has not been completed yet!",! Line Location: PSSPOIMN+8
Function Call: WRITE	Prompt: !! Line Location: BEG+2
Function Call: WRITE	Prompt: !,$C(7),"Another person is editing this one." Line Location: BEG+4
Function Call: WRITE	Prompt: !!,PSNAME," is already matched to",!!,?5,$P($G(^PS(50.7,POINT,0)),"^")_" "_$P($G(^PS(50.606,+$P($G(^(0)),"^",2),0)),"^"),! Line Location: MAS+4
Function Call: WRITE	Prompt: !,"This Orderable Item has an Inactive Date. *** "_Y,!,"To modify the Orderable Item, use the 'Edit Orderable Item' option." Line Location: MAS+7
Function Call: WRITE	Prompt: ! Line Location: MAS+8
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,"Dosage Form -> ",DOSEFORM,!! Line Location: MCHA+0
Function Call: WRITE	Prompt: !!?3,"Dose Form -> ",$G(Y(0,0)) Line Location: MCHA+1
Function Call: WRITE	Prompt: ! Line Location: MCHA+2
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,"Dosage 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+2
Function Call: WRITE	Prompt: ! Line Location: LOOK+11
Function Call: WRITE	Prompt: !,"Match Complete!",! Line Location: COM+0
Function Call: WRITE	Prompt: !!!,"There are "_$S('$G(PSSMORS):"IV Additives",'$G(PSSMORA):"IV Solutions",1:"IV Additives and IV Solutions")_" tied to this Dispense Drug." Line Location: MORE+7
Function Call: WRITE	Prompt: !,"By rematching the Dispense Drug to a new Pharmacy Orderable Item, all of these",!,$S('$G(PSSMORS):"IV Additives",'$G(PSSMORA):"IV Solutions",1:"IV Additives and IV Solutions")_" will also be rematched to the new Orderable Item.",! Line Location: MORE+8
Function Call: WRITE	Prompt: ! Line Location: MORE+9
Function Call: WRITE	Prompt: @IOF Line Location: MORE+10
Function Call: WRITE	Prompt: !,$S('$G(PSSMORA):"IV Solutions",'$G(PSSMORS):"IV Additives",1:"IV Additives/Solutions"),!,"------------" Line Location: MORE+11
Function Call: WRITE	Prompt: "----------" Line Location: MORE+11
Function Call: WRITE	Prompt: ! Line Location: MORE+17
Function Call: WRITE	Prompt: ! Line Location: MOREZ+1
Function Call: WRITE	Prompt: @IOF Line Location: MOREH+2
Function Call: WRITE	Prompt: ?50,$G(Y) Line Location: MODT+1
Routine Call	DIC Line Location: BEG+4 MCHA+1 LOOK+4
Routine Call	DIE Line Location: REM+8 MCH+8 MCHAN+10 MCHAN+16 LOOK+10
Routine Call	DIR Line Location: PSSPOIMN+8 MAS+8 DISP+1 DISPO MCHA MCHA+2 MCHAN+3 LOOK+11 MORE+9 MOREZ+1 MOREH+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls, GET1^DIQ
^PS(50.606 - [#50.606]	Classic Fileman Calls
^PS(50.7 - [#50.7]	Classic Fileman Calls, GET1^DIQ
^PS(52.7 - [#52.7]	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	MAS+4, DISP, MCHA+3
^PS(50.7 - [#50.7]	MAS+4, MAS+7, TMP, DISP, MCHAN+6, SET+1, SETX+1
^PS(52.6 - [#52.6]	MORE+4, MORE+13, MORE+15, MORE+16
^PS(52.7 - [#52.7]	MORE+5, MORE+19, MORE+21, MORE+22, CKDUPVOL+5
^PS(59 - [#59]	END+2
^PS(59.7 - [#59.7]	PSSPOIMN+8
^PSDRUG - [#50]	BEG, BEG+4, MAS+1, MAS+4, END, TMP, TMP+2, TMP+3, SETX+1!
^PSDRUG("AND"	TMP
^TMP($J	REM+1, REM+4, TMP!, TMP+2, TMP+3*, DISP, DISPO+1, DISPO+2, MCH+1, MCH+4

Label References

Name	Line Occurrences
$$CKDUPVOL	REM+7, MCH+7, MCHAN+9, LOOK+9
BEG	MAS+8, MAS+11
COM	REM+8, MCH+8, MCHAN+10, MCHAN+16, LOOK+10
DISP	REM+1, MCH+1
DISPO	DISPO+1
END	BEG+4, MAS+8
LOOK	MCHA, MCHA+3, LOOK+7
MCH	MAS+10
MCHA	REM+9
MCHAN	MCHAN+4, MCHAN+12, MCHAN+16, LOOK+11
MODT	MORE+16, MORE+22
MORE	MAS+8
MOREH	MORE+14, MORE+20
MOREZ	MORE+12
REM	MAS+8
SET	MAS+8
SETX	MAS+8
TMP	MAS+3, REM

Naked Globals

Name	Field # of Occurrence
^(0	MAS+4, DISP, MORE+21
^(2	MAS+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> COMM	MCHAN+6*, MCHAN+7, MCHAN+9, MCHAN+10
>> DA	MAS+1, REM+8, TMP+1, MCH+8, MCHAN+10, MCHAN+16, LOOK+10*
DD	MCHAN+16!
DIC	BEG+2!, MCHA+1!, MCHAN+16!, LOOK+3!
DIC("A"	BEG+2, MCHA+1
DIC("DR"	MCHAN+16*
DIC("S"	BEG+1!, BEG+4!, LOOK+4*
DIC(0	BEG+2, MCHA+1, MCHAN+16, LOOK+3
DIE	REM+8!, MCH+8!, MCHAN+10!, MCHAN+16, LOOK+10*
>> DILOCKTM	BEG+4
DIR	PSSPOIMN+8!, MAS+8!, DISP+1!, DISPO!, MCHA!, MCHA+2!, MCHAN+2!, LOOK+11!, MORE+9!, MOREZ+1! , MOREH+1!
DIR("A"	PSSPOIMN+8, MAS+8, DISPO, MCHA, MCHA+2, MCHAN+2, LOOK+11, MORE+9, MOREZ+1, MOREH+1
DIR("B"	MAS+8, MCHA, MCHA+2, MCHAN+2, LOOK+11*
DIR(0	PSSPOIMN+8, MAS+8, DISP+1, DISPO, MCHA, MCHA+2, MCHAN+2, LOOK+11, MORE+9, MOREZ+1 , MOREH+1*
DMFU	END+1~, END+3*, END+4
DNSNAM	END+1~, END+4*
DNSPORT	END+1~, END+4*
DO	MCHAN+16!
>> DOSA	TMP+1*
DOSEFORM	BEG+1!, MAS~, MAS+2, MCHA, MCHA+1, MCHA+2, MCHA+3, MCHAN+1
DOSEFV	BEG+1!, MAS~, MAS+1*, TMP+1
>> DOSEPTR	MAS+1, MAS+2, MCHA+1*, MCHA+3, MCHAN+6, MCHAN+16
>> DR	REM+8, MCH+8, MCHAN+10, MCHAN+16, LOOK+10*
DRUGIEN	CKDUPVOL~, CKDUPVOL+5, CKDUPVOL+11
DT	CKDUPVOL+9
>> DTOUT	BEG+4, DISPO, MCHA, MCHA+1, MCHA+3, MCHAN+3
>> DUOUT	BEG+4, MCHA+1, MCHA+3, MCHAN+3
DUPVOL	CKDUPVOL+4~, CKDUPVOL+5, CKDUPVOL+17, CKDUPVOL+18
DVER	END+1~, END+3*, END+4
>> FFF	TMP+2*
IOF	DISP+1, MORE+10, MOREH+2
IOSL	DISP, MORE+14, MORE+20
IVSOL	CKDUPVOL+4~, CKDUPVOL+5, CKDUPVOL+7, CKDUPVOL+9, CKDUPVOL+10
>> K	MAS+1, TMP+1
>> MATCH	REM+4, REM+5, REM+7, REM+8, DISP, DISPO+2, MCH+4, MCH+5, MCH+7, MCH+8
NEWSP	BEG+1!, MAS~, MCHAN+16, LOOK+7, LOOK+9, LOOK+10
>> NODE	MAS+1*, TMP
>> NOFLAG	TMP+2*, TMP+3
OIIEN	CKDUPVOL~, CKDUPVOL+10, CKDUPVOL+11
>> OTH	TMP*, TMP+1
POINT	BEG+1!, MAS~, MAS+4*, MAS+6, MAS+7, MAS+8, TMP, SET+1
>> PSCNT	TMP, TMP+3
>> PSIEN	BEG, BEG+4*, MAS+1, MAS+4, END, END+4, REM+7, REM+8, MCH+7, MCH+8 , MCHAN+9, MCHAN+10, MCHAN+16, LOOK+9, LOOK+10, SETX+1, MORE+1, MORE+4, MORE+5, MORE+13 , MORE+19
PSITEM	BEG+1!, MAS~, MAS+4, REM+8, MCH+8, MCHAN+10, MCHAN+16, LOOK+10, COM, SETX+1
>> PSMAN	MCHAN+14*
PSMASTER	BEG+1!, MAS, MAS+8, MAS+11
>> PSNAME	BEG+4*, MAS+4, DISP+1, MCHAN+1
>> PSNO	REM+5, MCH+5, MCHAN+5*, MCHAN+7, MCHAN+12, MCHAN+16, LOOK+7
>> PSOUT	BEG+2, MAS, REM+2, REM+5, DISP, DISPO, DISPO+3, MCH+2, MCH+5, MCHAN+6 , MCHAN+7, MCHAN+9, MCHAN+11, MCHAN+16, LOOK+7
PSSCROSS	BEG+1!
PSSDONE	PSSPOIMN+7~, REM+3, REM+4, REM+8, MCH+3, MCH+4, MCH+8, LOOK+1~, LOOK+5, LOOK+6 , LOOK+10
PSSDXL	SET+1*, SETX+1, SETX+2!
PSSDXLF	MAS+9!, SET+1*, SETX+1, SETX+2!
>> PSSHUIDG	END
PSSIAD	MAS+6~, MAS+7*
PSSITE	PSSPOIMN+8*!, PSSPOIMN+9!
PSSMODT	MORE+2~, MORE+16, MORE+22, MODT+1
PSSMORA	MORE+2~, MORE+3, MORE+4, MORE+6, MORE+7, MORE+8, MORE+9, MORE+11, MORE+12
PSSMORS	MORE+2~, MORE+3, MORE+5, MORE+6, MORE+7, MORE+8, MORE+9, MORE+11, MORE+18
PSSMZ	MORE+2~, MORE+13, MORE+15, MORE+16, MORE+19, MORE+21, MORE+22
PSSMZOUT	MORE+2~, MORE+3, MORE+12, MORE+13, MORE+14, MORE+19, MORE+20, MOREZ+1, MOREH+1
PSSNOOI	LOOK+11, LOOK+12!
>> PSSP	REM+5, MCH+5, MCHAN+7, LOOK+7
PSSQUIT	CKDUPVOL+4~
PSTOP	BEG+1!, MAS~
PSVAR1	BEG+1!, MAS~, MCHAN+16*
SPHOLD	BEG+1!, MAS~, MCHAN+5*, MCHAN+6, MCHAN+16
>> SPT	DISP*
>> STOP	MCHAN+5, MCHAN+6, MCHAN+7, MCHAN+10*, MCHAN+12, MCHAN+13
>> TMPTR	TMP+2*
>> TT	DISP*
>> VAGEN	MAS+1*, MCHAN, MCHAN+2
>> X	MAS+1, MAS+2, TMP+1, MCHAN+4, MCHAN+5, MCHAN+16
XX	END+1~, END+2, END+3, END+4
Y	BEG+4, MAS+7, MAS+8, DISP, DISP+1, DISPO, DISPO+1, DISPO+2, MCHA, MCHA+1 , MCHA+3, MCHAN+3, MCHAN+5, MCHAN+16, LOOK+6, LOOK+7, LOOK+11, MORE+9, MOREH+1, MODT+1!
Y(0	MCHA+1
>> ZZ	TMP*, TMP+2, TMP+3

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSPOIMN

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: