Routine: PSSMARK

Package	Total	Call Graph
VA Fileman	5	(,NOW)^%DTC ^DIC ^DIE $$GET1^DIQ ^DIR
Pharmacy Data Management	3	DRG^PSSDGUPD DRG^PSSHUIDG ^PSSREF
National Drug File	1	$$PROD2^PSNAPIS

Package	Total	Caller Graph
Pharmacy Data Management	2	PSSDEE PSSXX MARK

Entry Points

Name	Comments	DBIA/ICR reference
OLD1
UNMARK
TEXT
SYN
DONE
DISPLAY
OLD
QUEST
PICK
BLD1
CHECK
OUT
IDENT
GOTIT
QUES2
DUP
BLD	;
XREF
QUESTA
QDM
PICK1
PICK2
MARK
OLDNM
BLD5
SYN1

External References

Name	Field # of Occurrence
^%DTC	BLD+3
NOW^%DTC	OLD
^DIC	PICK1
^DIE	QUESTA, QDM
$$GET1^DIQ	GOTIT+4, GOTIT+5
^DIR	MARK, UNMARK, QUES2
$$PROD2^PSNAPIS	BLD1, IDENT
DRG^PSSDGUPD	GOTIT+5
DRG^PSSHUIDG	GOTIT+2
^PSSREF	MARK+5, UNMARK+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option allows you to choose entries from your drug file and helps you",!,"review your NDF matches and mark individual entries to send to CMOP.",! Line Location: TEXT+0
Function Call: WRITE	Prompt: !,"If you mark the entry to transmit to CMOP, it will replace your Dispense Unit",!,"with the VA Dispense Unit. In addition, you may overwrite the local drug name",!,"with the VA Print Name and the entry will remain uneditable.",! Line Location: TEXT+1
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+0
Function Call: WRITE	Prompt: !!?3,"Local Drug Generic Name: ",PSXLOC Line Location: DISPLAY+0
Function Call: WRITE	Prompt: !!?3,"Local Drug Generic Name: ",PSXLOC Line Location: DISPLAY+0
Function Call: WRITE	Prompt: !!,"VA Print Name: ",PSXVAP,?59,"VA Dispense Unit: ",PSXDP,!,"VA Drug Class: ",$P(^PS(50.605,$P(PSXDN,"^",6),0),"^",1),?50,"CMOP ID: ",PSXID Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !!,"Do you wish to mark this drug to transmit to CMOP? " Line Location: MARK+0
Function Call: WRITE	Prompt: !!,"Do you wish to UNmark this drug to transmit to CMOP? " Line Location: UNMARK+0
Function Call: WRITE	Prompt: !!,"Do you wish to overwrite your local name? " Line Location: QUES2+0
Function Call: WRITE	Prompt: !,"You cannot write over the GENERIC NAME because one already has that",!,"VA Print Name. You cannot have duplicate names.",! Line Location: DUP+0
Function Call: WRITE	Prompt: !,PSSEXP(PSSXX) Line Location: PICK2+0
Function Call: WRITE	Prompt: ! Line Location: PICK2+1
Function Call: WRITE	Prompt: !!,"Your old Dispense Unit ",$P(PSXODE,"^",8)," does not match the new one ",PSXDP,".",!,"You may wish to edit the Price Per Order Unit and/or The Dispense",!,"Units Per Order Unit.",! Line Location: QUEST+0
Routine Call	DIE Line Location: QUESTA QDM
Routine Call	DIC Line Location: PICK1
Routine Call	DIR Line Location: MARK UNMARK QUES2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(51.5 - [#51.5]	DISPLAY+1
^PS(50.605 - [#50.605]	DISPLAY+3
^PS(59 - [#59]	GOTIT+3
^PSDRUG - [#50]	DISPLAY+1, CHECK, MARK+4, UNMARK+1, QUES2+1, BLD+1, BLD+3, BLD+5, BLD5, BLD5+1 , BLD5+2, BLD1, GOTIT, IDENT, OLD, OLD+1, OLD1, SYN, SYN1
^PSDRUG("AQ"	CHECK, CHECK+1, MARK+4*, UNMARK+1!
^PSDRUG("AQ1"	IDENT*
^PSDRUG("B"	QUES2+1, DUP, XREF!*
^PSDRUG("C"	SYN*
^PSNTRAN - [#50.612]	XREF*
^PSNTRAN("END"	XREF*

Label References

Name	Line Occurrences
BLD	PICK1+2
CHECK	DISPLAY+3
DISPLAY	GOTIT
DUP	QUES2+1
IDENT	MARK+5
MARK	CHECK+1
OLD	OLDNM
OLD1	OLDNM
OLDNM	QUES2+1
OUT	MARK, UNMARK, QUES2
PICK1	PICK
QDM	MARK+6
QUES2	MARK+6
QUEST	MARK+6
QUESTA	QUEST
SYN	QUES2
SYN1	SYN
TEXT	PICK
UNMARK	CHECK
XREF	QUES2+1

Naked Globals

Name	Field # of Occurrence
^(0	BLD5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	MARK+4, MARK+6!, UNMARK+1!, IDENT, QUESTA, QDM*
DIC	PICK1*!
DIC(0	PICK1*
>> DIE	QUESTA, QDM
>> DIE("NO^"	QUESTA*!
DIR	MARK!, UNMARK!, QUES2!
DIR("?"	QUES2*
DIR(0	MARK, UNMARK, QUES2*
DIRUT	MARK!, UNMARK!, QUES2!
DMFU	GOTIT+1~, GOTIT+4*, GOTIT+5
DNSNAM	GOTIT+1~, GOTIT+5*
DNSPORT	GOTIT+1~, GOTIT+5*
>> DR	QUESTA, QDM
DT	BLD+3
>> DTOUT	OUT
DVER	GOTIT+1~, GOTIT+4*, GOTIT+5
IOF	DISPLAY
>> K	IDENT*
NONCE	DONE!, OLDNM, OLD, OLD1
PSSEXP	DONE!, PICK1+1!, PICK2+1!
PSSEXP(	PICK2
PSSEXP(0	BLD1+2, PICK1+2*, PICK2, PICK2+1
PSSEXP(1	BLD+4*
PSSEXP(2	BLD+5*
PSSEXP(3	BLD5*
PSSEXP(4	BLD5+1*
PSSEXP(5	BLD5+2*
PSSEXP(6	BLD1+1*
>> PSSHUIDG	GOTIT+2
>> PSSXX	BLD1, BLD1+1, BLD1+2, PICK2, GOTIT
PSXBT	DONE!, CHECK+1, MARK, UNMARK+1, PICK1+2*, GOTIT+2
PSXCMOP	DONE!
PSXDN	DONE!, DISPLAY+3, BLD1*
PSXDP	DONE!, DISPLAY+3, BLD1+2*, QUEST
PSXF	DONE!, MARK, MARK+6, UNMARK, UNMARK+1, QUES2+1, PICK1+2, GOTIT+2
PSXFL	PICK, DONE!, PICK1, OUT*
PSXG	DONE!, QUES2, QUES2+1
PSXGN	DONE!, BLD1*
PSXID	DONE!, DISPLAY+3, GOTIT*
PSXIDENT	DONE!, IDENT*
PSXLAST	DONE!, OLD*
PSXLOC	DONE!, DISPLAY, DUP, XREF, PICK1+2*, OLD+1, OLD1
PSXMM	PICK*, DONE!
PSXNDF	DONE!, IDENT*
PSXNEXT	DONE!, OLD*, OLD1
PSXNOW	DONE!, SYN*, SYN1
PSXODE	DONE!, DISPLAY+1*, DISPLAY+2, QUEST
PSXOU	DONE!, DISPLAY+1*
PSXUM	DONE!, DISPLAY+1, CHECK, CHECK+1, MARK+4, UNMARK+1, QUES2+1, XREF, BLD+1, BLD+3 , BLD+5, BLD5, BLD5+1, BLD5+2, BLD1, PICK1+2*, GOTIT, GOTIT+2, GOTIT+5, IDENT , QUESTA, OLD, OLD+1, OLD1, SYN, SYN1, QDM
PSXVAP	DONE!, DISPLAY+3, QUES2+1, DUP, XREF, BLD1+2*, SYN
PSXVAPN	DONE!, IDENT*
PSXVP	DONE!, BLD1*
PSXZERO	DONE!, GOTIT*
RTC	DONE!, OLD*
U	PICK*
X	DONE!, MARK!, MARK+2, UNMARK!, UNMARK+1, QUES2!, QUES2+1, BLD+2~, BLD+4, IDENT* , OLD+1, OLD1
X1	BLD+2~, BLD+3*
X2	BLD+2~, BLD+3*
XX	GOTIT+1~, GOTIT+3, GOTIT+4, GOTIT+5
Y	DONE!, MARK!, UNMARK!, QUES2!, PICK1, PICK1+2

Customize PDF page

Package: Pharmacy Data Management

Routine: PSSMARK

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

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: