Routine: PSXCMOP

Information

PSXCMOP ;BIR/WRT-review NDF (LOOP) matches for CMOP ;[ 07/20/98 1:45 PM ]

Source file <PSXCMOP.m>

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