Routine: PSXCMOP0

Information

PSXCMOP0 ; BIR/WRT-DISPLAY & Review NDF (LOOP) matches for CMOP ;[ 04/08/97 2:06 PM ]

Source file <PSXCMOP0.m>

Package	Total	Call Graph
CMOP	2	(MARK,PICK1)^PSXCMOP (COMPLETE,NO1)^PSXCMOP1

Package	Total	Caller Graph
CMOP	1	PSXCMOP

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" Line Location: TEXT+1
Function Call: WRITE	Prompt: !,"with the VA Print Name and the entry will remain uneditable.",! Line Location: TEXT+2
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+0
Function Call: WRITE	Prompt: !,?3,"VA Print Name: ",PSXM,?55,"VA Dispense Unit: ",PSXDU Line Location: DISPLAY+0
Function Call: WRITE	Prompt: !!!,?5,"Local Drug Generic Name: ",PSXLOC,!?15,"VA Drug Class: ",$P(^PS(50.605,$P(PSXD,"^",6),0),"^",1) Line Location: DISPLAY+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(51.5 - [#51.5]	DISPLAY+2
^PS(50.605 - [#50.605]	DISPLAY+1
^PSDRUG - [#50]	DISPLAY+1, DISPLAY+2, SYN, SYN1
^PSDRUG("C"	SYN*
^TMP($J	BEGIN!, DONE!

Name	Field # of Occurrence
DA	DONE!
IOF	DISPLAY
NDA	DONE!
NUM	DONE!
ONCE	DONE+1!
PRICE	DONE!
PSXB	DONE!
PSXBT	DONE!, PICK, TEXT+2*
PSXCMOP	DONE!
PSXD	DONE!, DISPLAY+1*
PSXDA	DONE!, DISPLAY+1, DISPLAY+2
PSXDN	DONE!
PSXDP	DONE!
PSXDU	DONE!, DISPLAY
PSXDUP	DONE!
PSXEND	PSXCMOP0+2, BEGIN, DONE+1!
PSXF	PSXCMOP0+2, BEGIN, DONE!, PICK
PSXFL	PSXCMOP0+2*, BEGIN, DONE!, PICK, DISPLAY, DISPLAY+4
PSXG	DONE!
PSXGN	DONE!
PSXIDENT	DONE+1!
PSXLAST	DONE+1!
PSXLM	DONE!
PSXLOC	DONE!, DISPLAY+1
PSXM	DONE!, DISPLAY, SYN
PSXMM	DONE!, PICK*
PSXNDF	DONE+1!
PSXNEXT	DONE+1!
PSXNO	DONE!, DISPLAY+4
PSXNOW	DONE!, SYN*, SYN1
PSXODE	DONE!, DISPLAY+2*, DISPLAY+3
PSXOU	DONE!, DISPLAY+2*
PSXVAP	DONE!
PSXVAPN	DONE+1!
PSXVP	DONE!
PSXZERO	DONE!
RRF	DONE!
RTC	DONE+1!
WAS	DONE!, SYN, SYN1
X	DONE!
Y	DONE!