Routine: PSXCMOP

Package	Total	Call Graph
CMOP	3	(,DISPLAY,DONE,SYN)^PSXCMOP0 (DU,IDENT,PR,PRC,TRAN)^PSXCMOP1 ^PSXREF
National Drug File	1	$$PROD2^PSNAPIS
VA Fileman	1	^DIR

Package	Total	Caller Graph
CMOP	3	PSXCMOP0 PSXCMOP1 PSXX LOOP MARK

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Do you wish to overwrite your local name? " Line Location: QUES2+1
Function Call: WRITE	Prompt: !!,"You cannot write over the GENERIC NAME because you have either",!,"already marked one to overwrite or have already overwritten one",!,"with that VA Print Name. You cannot have duplicate names.",! Line Location: MESS+0
Function Call: WRITE	Prompt: @IOF Line Location: GROUP1+0
Function Call: WRITE	Prompt: !?5,"VA Print Name: ",PSXM,!!,?3,"Local Drug Name",?46,"CMOP?",?55,"VA D.U.",?70,"O.W.?",! Line Location: GROUP1+0
Function Call: WRITE	Prompt: "-" Line Location: GROUP1+1
Function Call: WRITE	Prompt: !,NUM_".",?3,$P(^PSDRUG(NDA,0),"^",1),?46,$P(^TMP($J,"PSXANS",NDA),"^",1),?55,$P(^TMP($J,"PSXANS",NDA),"^",2),?70,$P(^TMP($J,"PSXANS",NDA),"^",3) Line Location: GROUP1+2
Function Call: WRITE	Prompt: !!!,"If you answer ""Yes"" you will go to the next VA Print Name. If you answer ""No""",!,"you will go back through this particular VA Print Name group.",! Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Are you sure everything is correct? " Line Location: ASK+1
Routine Call	DIR Line Location: MARK QUES2+1 ASK+1

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	DOIT, DOIT+1, DOIT1*, BLD1, BLD1+1, GOTIT, GROUP1+2
^PSDRUG("AQ"	DOIT*
^PSDRUG("B"	DOIT1*!, DUP
^TMP($J	MARK, MARK+3, DOIT, DOIT+1, DOIT1, DOIT1+1, IT!, QUES2+1, QUES2+3, DUP+1 , DUP+2, TMP, PICK1, PICK2, GOTIT, GROUP, GROUP1+2, ASK+2!

Name	Field # of Occurrence
DA	DOIT!, DOIT+1!, DUP+1*
DIR	MARK!, QUES2+1!, ASK+1!
DIR("?"	QUES2+1*
DIR(0	MARK, QUES2+1, ASK+1*
>> DTOUT	OUT
IOF	GROUP1
>> NDA	GROUP1+2*
>> NUM	GROUP1, GROUP1+2
>> PSXB	BLD1, BLD1+1, TMP
>> PSXBT	OUT*
>> PSXCMOP	BLD1+2*
>> PSXDA	MARK, MARK+3, QUES2+1, QUES2+3, DUP+2, PICK2*, GOTIT
>> PSXDN	BLD1+1*
>> PSXDP	BLD1+2*, TMP
>> PSXDU	MARK+3, GOTIT*
>> PSXDUP	QUES2, QUES2+3, DUP, DUP+1*, DUP+2
>> PSXEND	PICK1, ASK+2*
>> PSXF	MARK, DOIT, DOIT+1*, PICK2, GOTIT
>> PSXFL	MARK, MARK+1, MARK+2, QUES2+2, QUES2+4, PICK1, PICK2, GOTIT, GROUP1, ASK+3* , OUT*
>> PSXG	QUES2+1*
>> PSXGN	BLD1+1*, BLD1+2
>> PSXLM	DOIT*, DOIT1
>> PSXLOC	DUP, GOTIT*
>> PSXM	MARK, DOIT1, QUES2+3, DUP, PICK1*, PICK2, GOTIT, GROUP1, ASK+2
>> PSXVAP	BLD1+2*, TMP
>> PSXVP	BLD1+1*, BLD1+2
>> PSXZERO	GOTIT*
>> RRF	GROUP1+1*
>> WAS	DOIT, DOIT+1, DOIT1, DOIT1+1, IT, ASK+2*
>> X	MARK, MARK+2, MARK+3, QUES2+1, QUES2+3, QUES2+4, ASK+1, ASK+2, ASK+3
ZX	BLD1+2*!