Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 5

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  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
CMOP 3 PSXCMOP0  PSXCMOP1  PSXX LOOP MARK  

Entry Points

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

External References

Name Field # of Occurrence
^DIR MARK, QUES2+1, ASK+1
$$PROD2^PSNAPIS BLD1+2
^PSXCMOP0 START
DISPLAY^PSXCMOP0 GOTIT
DONE^PSXCMOP0 MARK+2, QUES2+4, ASK+3
SYN^PSXCMOP0 DOIT1+1
DU^PSXCMOP1 MARK+3
IDENT^PSXCMOP1 DOIT
PR^PSXCMOP1 DOIT
PRC^PSXCMOP1 GROUP1+2
TRAN^PSXCMOP1 DOIT1
^PSXREF DOIT, DOIT+1

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
Routine Call
  • DIR
  • Line Location:
    • MARK
    • QUES2+1
    • ASK+1

Global Variables Directly Accessed

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!

Label References

Name Line Occurrences
ASK GROUP1+3
DOIT ASK+2
DOIT1 DOIT
DUP QUES2+3
GOTIT PICK2
GROUP MARK, PICK2
GROUP1 GROUP
IT DOIT+2
MESS DUP+2
OUT MARK, QUES2+1, ASK+1
PICK1 ASK+1
PICK2 PICK1
QUES2 MARK+3
TMP BLD1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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*!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All