Routine: PSSPOIM1

Package	Total	Call Graph
VA Fileman	4	C^%DTC ^DIC ^DIE ^DIR
Pharmacy Data Management	3	MAIL^PSSCREAT EN2^PSSHL1 (EN,REST)^PSSPOIDT
Kernel	2	^%ZISC ^%ZTLOAD
MailMan	1	^XMD

Package	Total	Caller Graph
Pharmacy Data Management	5	PSSCREAT PSSMATCH PSSPOIKA PSSPOIM2 PSSPOIMN

Entry Points

External References

Name	Field # of Occurrence
C^%DTC	CHECK+1
^%ZISC	DATE+16
^%ZTLOAD	MAIL+2, SUPP+7
^DIC	SYN
^DIE	EN+4, SYN+2, DATE+2, DATE+5, DATE+8, DATE+9, DATE+10
^DIR	CHK+2, MESSZ+2, MAIL+1, MAIL+3
MAIL^PSSCREAT	DATE+11
EN2^PSSHL1	FIN, FIN+1
EN^PSSPOIDT	FIN
REST^PSSPOIDT	EN+6
^XMD	DATE+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Matching ",PSNAME,!," to",!,SPHOLD," ",$P($G(^PS(50.606,+DOSEPTR,0)),"^"),! Line Location: CHK+0
Function Call: WRITE	Prompt: !!,"Matching ",PSNAME,!," to",!,PSMC," ",$P($G(^PS(50.606,+$P(^PS(50.7,PSSP,0),"^",2),0)),"^"),! Line Location: CHK+1
Function Call: WRITE	Prompt: !!,"This option enables you to match Dispense Drugs to an entry in the Pharmacy",!,"Orderable Item file, or create a new Pharmacy Orderable Item entry for a",!,"Dispense Drug.",! Line Location: MESS+0
Function Call: WRITE	Prompt: !!,"This option is for matching IV Additives, IV Solutions, and all Dispense Drugs",!,"marked with an I, O, or U in the Application Packages' Use field to an",!,"Orderable Item." Line Location: MESSZ+0
Function Call: WRITE	Prompt: !,"You will need to keep accessing this option until all drugs are matched.",!,"A check will be done every time this option is exited to see if the matching",!,"process is complete.",!! Line Location: MESSZ+1
Function Call: WRITE	Prompt: !!!,"Checking Drug files, please wait..." Line Location: CHECK+0
Function Call: WRITE	Prompt: !!!,?3,"You are finished matching to the Orderable Item File!",!!,"A clean-up job is being queued now, and when it is finished, you will" Line Location: MAIL+0
Function Call: WRITE	Prompt: !,"receive a mail message informing you of its completion.",! Line Location: MAIL+1
Function Call: WRITE	Prompt: $C(7),$C(7),!!?5,"There are still Drugs not matched, you will need to come back",!?5,"and continue matching Drugs!",! Line Location: MAIL+3
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
Function Call: WRITE	Prompt: !?3,"Now editing Orderable Item:",!?3,$P(^PS(50.7,PSVAR,0),"^")," ",$P($G(^PS(50.606,+$P(^(0),"^",2),0)),"^") Line Location: EN+1
Function Call: WRITE	Prompt: ! Line Location: EN+2
Function Call: WRITE	Prompt: ! Line Location: SYN+2
Function Call: WRITE	Prompt: !!,"This report takes a long time to first build the data to print, then to",!,"actually print the data. To avoid tying up a terminal for a long period of time,",!,"the report must be QUEUED to a printer." Line Location: RMES+0
Function Call: WRITE	Prompt: !!,"This report must be QUEUED to a printer!" Line Location: RMES+1
Function Call: WRITE	Prompt: !!,"Due to the length of this report, and to avoid tying up a terminal for a long",!,"time, this report must be QUEUED to a printer!" Line Location: KMES+0
Routine Call	DIE Line Location: EN+4 SYN+2 DATE+2 DATE+5 DATE+8 DATE+9 DATE+10
Routine Call	DIC Line Location: SYN
Routine Call	DIR Line Location: CHK+2 MESSZ+2 MAIL+1 MAIL+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(50.7 - [#50.7]	Classic Fileman Calls
^PS(52.6 - [#52.6]	Classic Fileman Calls
^PS(52.7 - [#52.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	CHK, CHK+1, EN+1
^PS(50.7 - [#50.7]	CHK+1, EN+1, EN+2, EN+4, SYN, SYN+1!, DATE+1, DATE+2, DATE+5, DATE+6 , DATE+9, DATE+10, SUPP+4, SUPP+5*
^PS(52.6 - [#52.6]	CHECK+6, CHECK+7, DATE+2, DATE+10
^PS(52.7 - [#52.7]	CHECK+8, CHECK+9, DATE+2, DATE+9
^PS(59.7 - [#59.7]	EN+3, DATE+15*
^PSDRUG - [#50]	CHECK+2, CHECK+3, CHECK+4, DATE+7, SUPP+3
^PSDRUG("AOC"	IMMUN+1
^PSDRUG("ASP"	DATE+5, DATE+7, SUPP+2
^PSDRUG("B"	CHECK+2
^TMP("PSSLOOP"	END!, MESSZ*
^TMP($J	END!

Label References

Name	Line Occurrences
FIN	SYN+1
FINS	FIN
SUPP	DATE+4
SYN	IMMUN+1, SYN+2

Naked Globals

Name	Field # of Occurrence
^("I"	SUPP+3
^(0	CHECK+6, CHECK+8, EN+1
^(2	SUPP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AAA	END+1!
AAAAA	END+1!
ANS	END+1!
APLU	END+1!
BBBBB	END+1!
COMM	END+1!
DA	END+1!, EN+3, SYN+2, DATE+2, DATE+5, DATE+8, DATE+9, DATE+10*, DATE+12!, DATE+16!
DA(1	SYN, SYN+2
DIC	END+1!, SYN!*
DIC("A"	SYN*
DIC(0	SYN*
DIE	END+1!, EN+2!, EN+3, EN+4!, SYN+2!, DATE+2!, DATE+5!, DATE+8!, DATE+9!, DATE+10!* , DATE+12!, DATE+16!
DIR	CHK+2!, MESSZ+2!, MAIL+1!, MAIL+3!
DIR("A"	CHK+2, MAIL+1, MAIL+3*
DIR("B"	CHK+2*
DIR(0	CHK+2, MESSZ+2, MAIL+1, MAIL+3
>> DLAYGO	SYN*
DONEFLAG	CHECK+1, CHECK+2, CHECK+5, CHECK+6, CHECK+8, MAIL, MAIL+2, MAIL+3, MAIL+4!
DOSEFORM	END+1!
DOSEFV	END+1!
DOSEPTR	CHK, END+1!
DR	END+1!, EN+3, SYN+2, DATE+2, DATE+5, DATE+8, DATE+9, DATE+10*
DT	CHECK+1, DATE+2, DATE+5, DATE+8, SUPP+5
>> DTOUT	MESSZ+2, SYN+1
>> DUOUT	SYN+1
DUZ	MESSZ, MAIL+2, DATE+14
FFF	END+1!
FFFF	CHECK+2*, CHECK+3, CHECK+4, MAIL+4!
GGG	DATE+12!, DATE+16!
HHH	DATE+12!, DATE+16!
IOF	OTHER
MATCH	END+1!
MFLG	EN+2~
NEWSP	END+1!
NODE	END+1!
NOFLAG	END+1!
OTH	END+1!
POINT	END+1!
PSAFTER	EN+2, EN+4, EN+5, EN+7!
PSAPPL	DATE+7*, DATE+12!, DATE+16!
PSBEFORE	EN+2*, EN+5, EN+7!
PSCNT	END+1!
PSCREATE	END!, DATE+11
PSDFLAG	DATE+7*, DATE+8, DATE+12!, DATE+16!
PSIEN	END+1!
PSINORDE	EN+2, EN+5, EN+6, EN+7!
PSMAN	CHK, CHK+1, CHK+3!, END+1!
PSMC	CHK+1*, END+1!
PSNAME	CHK, CHK+1, END+1!, OTHER
PSND	END+1!
PSNO	CHK, CHK+3, END+1!
PSOOOUT	END+1!
>> PSOTEXT(1	DATE+13*
>> PSOTEXT(2	DATE+13*
PSOTYPE	DATE+1*, DATE+2, DATE+3, DATE+12!, DATE+16!
>> PSOUDUZ	MAIL+2*
PSOUT	CHK+3, END+1!, MESSZ+2
PSSCROSS	SUPP+7, SUPP+9!
PSSITE	DATE+15*!
PSSOMAIL	MAIL+2*, DATE+12, DATE+16!
PSSORDIT	SUPP+7, SUPP+8!
PSSOTH	EN+3*, EN+4!
PSSP	CHK+1, END+1!
PSSSSS	END!
PSVAR	EN~, EN+1, EN+2, EN+3, EN+4, EN+6, IMMUN+1, SYN, SYN+1, SYN+2 , FIN, FIN+1, FINS!
PSVAR1	FIN, FINS!
PSXADATE	END+1!
PSXDATE	END+1!
PSXDDATE	END+1!
PSXSDATE	END+1!
PSZNAME	CHECK+6, CHECK+8, MAIL+4!
PSZXDATE	CHECK+1*, CHECK+4, CHECK+7, CHECK+9, MAIL+4!
PSZZDATE	CHECK+4, CHECK+7, CHECK+9*, MAIL+4!
QQNM	CHECK+2*, MAIL+4!
QQQ	CHECK+6, CHECK+7, CHECK+8, CHECK+9, MAIL+4!
RRRR	DATE+9, DATE+10, DATE+12!, DATE+16!
SLDO	SUPP+1~, SUPP+7*, SUPP+8
SLDP	SUPP+1~, SUPP+7*, SUPP+9
SLIP	SUPP+1~, SUPP+6*, SUPP+7
SPHOLD	CHK, END+1!
SPR	END+1!
SSLOOP	SUPP+1~, SUPP+2*, SUPP+3
SSSAP	SUPP+1~, SUPP+3*, SUPP+4, SUPP+5
SSSIN	SUPP+1~, SUPP+3*, SUPP+4, SUPP+5
SSSQDATE	SUPP+1~
SSSQDATE(	SUPP+5*, SUPP+6
SSSQDATE(0	SUPP+6
SSSQUE	SUPP+1~, SUPP+2, SUPP+4, SUPP+5*, SUPP+6
SSSQUEY	SUPP+1~, SUPP+2, SUPP+4, SUPP+6
SSSUP	SUPP+1~
TMPTR	END+1!
TT	END+1!
USAGE	CHECK+2, CHECK+3*, MAIL+4!
VAGEN	END+1!
WW	DATE+7*, DATE+12!, DATE+16!
X	END+1!, MESSZ+2, CHECK+1
>> X1	CHECK+1*
>> X2	CHECK+1*
>> XMDUZ	DATE+14*
>> XMSUB	DATE+14*
>> XMTEXT	DATE+14*
>> XMY(	DATE+14*
Y	CHK+3, END+1!, SYN+1, SYN+2
>> ZTDESC	MAIL+2, SUPP+7
>> ZTDTH	MAIL+2, SUPP+7
>> ZTIO	MAIL+2, SUPP+7
>> ZTQUEUED	DATE+16
>> ZTREQ	DATE+16*
>> ZTRTN	MAIL+2, SUPP+7
>> ZTSAVE("DUZ"	MAIL+2*
>> ZTSAVE("PSSCROSS"	SUPP+7*
>> ZTSAVE("PSSOMAIL"	MAIL+2*
>> ZTSAVE("PSSORDIT"	SUPP+7*
ZXX	END+1!
ZZ	END+1!
ZZG	CHECK+2, CHECK+4, CHECK+6, CHECK+7, CHECK+8, CHECK+9*, MAIL+4!
>> ZZZ	DATE+1, DATE+2, DATE+5, DATE+6, DATE+7, DATE+8, DATE+9, DATE+10*, SUPP+2, SUPP+4 , SUPP+5, SUPP+7
ZZZZZ	DATE+12!, DATE+16!

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSPOIM1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
IMMUN	;PSS1141 FOR 'IMMUNIZATIONS DOCUMENTATION BY BCMA'
END
RMES
MESS
SUPP	;Mark as supply
FINS
CHK
SYN
EN(PSVAR)	;
OTHER
KMES
DATE	;
MAIL
MESSZ
FIN
CHECK