Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSXCMOP

Package: CMOP

Routine: PSXCMOP


Information

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

Source Information

Source file <PSXCMOP.m>

Entry Points

Name Comments DBIA/ICR reference
START
MARK
DOIT
DOIT1
IT
QUES2
DUP
MESS
BLD1
TMP
PICK1
PICK2
GOTIT
GROUP
GROUP1
ASK
OUT

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls