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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSXSITE

Package: CMOP

Routine: PSXSITE


Information

PSXSITE ;BIR/WPB,BAB-Activate Outpatient Sites for CMOP ;09 SEP 1998 6:52 AM

Source Information

Source file <PSXSITE.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 7 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  $$GET1^DIQ  EN^DIQ1  ^DIR  
CMOP 2 GRP^PSXNOTE  (DEACT,SET,SYS,SYSTEM)^PSXSYS  
MailMan 2 XMZ^XMA2  ENT1^XMD  
Kernel 1 $$KSP^XUPARAM  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
CMOP 4 PSXACT  PSXDODAC  PSXR ACTIVATE  PSXSYS  

Entry Points

Name Comments DBIA/ICR reference
EN1
EN2
EXIT
ACT
AC
NOTE
MM
MESS
FILEB
FILE
FF
FC
LOCK
F
FILEA
LOCK1

External References

Name Field # of Occurrence
NOW^%DTC NOTE+6, FILEA+3
^DIC ACT+1
FILE^DICN FILEB+4, FF, FC, F
^DIE EN1+9, EXIT+4, LOCK, FILEA+1, LOCK1
$$GET1^DIQ NOTE+3, NOTE+4, MM+1
EN^DIQ1 NOTE
^DIR AC
GRP^PSXNOTE MESS+9
DEACT^PSXSYS EN2+1
SET^PSXSYS EN1+1
SYS^PSXSYS ACT+6
SYSTEM^PSXSYS EN2+2
XMZ^XMA2 MM, MESS+1
ENT1^XMD MM+6, MESS+9
$$KSP^XUPARAM NOTE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You are not authorized to use this option!"
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: !!,"The Station number is missing in the Institution file.",!,"The Station number is required for CMOP transmissions.",!,"Please contact your IRM and have this problem corrected, then try again.",!
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,"There is a transmission in progress, try later."
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !,"There is a transmission in progress, try later."
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !,"Sorry, someone else has the CMOP System file!"
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: !,"A request to activate a system has been sent and action is pending."
  • Line Location: EN2+0
Function Call: WRITE
  • Prompt: !,"Someone else has the CMOP System file in use, quitting"
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ACT+0
Function Call: WRITE
  • Prompt: !,"Enter the name of the system to activate."
  • Line Location: ACT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ACT+4
Function Call: WRITE
  • Prompt: !,"The "_SYSTEM_" is already activated."
  • Line Location: ACT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: AC+0
Function Call: WRITE
  • Prompt: !!,"Request to activate sent to "_SYSTEM_"."
  • Line Location: AC+3
Function Call: WRITE
  • Prompt: !!,"The Station number is missing in the Institution file.",!,"The Station number is required for CMOP transmissions.",!,"Please contact your IRM and have this problem corrected, then try again."
  • Line Location: NOTE+1
Function Call: WRITE
  • Prompt: !!,"There is no mail domain to send the request to."
  • Line Location: NOTE+5
Routine Call
  • DIC
  • Line Location:
    • ACT+1
Routine Call
  • DIE
  • Line Location:
    • EN1+9
    • EXIT+4
    • LOCK
    • FILEA+1
    • LOCK1
Routine Call
  • DIR
  • Line Location:
    • AC

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DIC(4.2 - [#4.2] GET1^DIQ
^PSX(552 - [#552] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" NOTE+6
^DIC(4.2 - [#4.2] FILE
^PSX(550 - [#550] EN1+3, EN1+4, EN1+8, EN1+9, EN2, EN2+1, EN2+2, EXIT+2, EXIT+5, ACT+5
, NOTE+3, FILEB+1*
^PSX(552 - [#552] FILE+1, FF+2*, LOCK, LOCK+1*, FILEA, FILEA+1, FILEA+2, LOCK1
^XMB(3.9 - [#3.9] MM+1*, MM+2*, MM+3*, MESS+2*, MESS+3*, MESS+4*, MESS+5*, MESS+6*, MESS+7*
^XUSEC("PSXCMOPMGR" EN1

Label References

Name Line Occurrences
ACT ACT+2, ACT+5
EN2 EN1+1
EXIT EN2, EN2+1, ACT+1, ACT+4, AC
FILEA FILEA+1
LOCK LOCK
MESS MESS+1
MM MM
NOTE AC+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOTE+6!, LOCK1!
AA EXIT+6!
>> ACTFLAG LOCK+4, FILEA+1, FILEA+4
>> AGENCY FILE+4
CDOM EXIT+6!
DA EN1+6!, EN1+7*, EN1+8, EN1+9, EN1+10!, EXIT+1*, EXIT+2, EXIT+3!, EXIT+4*, EXIT+5!
, ACT+3*, NOTE*!, FILEB+2*, FILEB+4!, LOCK*!, LOCK+3*, F!, FILEA+1*!, LOCK1*!
DA(1 FILEB+2*, FC*, LOCK+3*, LOCK1*
DD FILEB+2!, FILE+2!, LOCK+2!
DIC ACT+1*!, ACT+4!, NOTE*!, FILEB+2*, FILEB+4!, FILE+4*, FF!, FC*!, LOCK+3*, F!
DIC("A" ACT+1*
DIC("DR" FILEB+3*, FILEB+4!, FILE+4*, FF!, FC*!, LOCK+4*, F!
DIC(0 ACT+1*, FILEB+2*, FILE+4*, FC*, LOCK+3*
DIE EN1+6!, EN1+7*, EN1+10!, EXIT+3!, EXIT+4*, EXIT+5!, LOCK*!, FILEA+1*!, LOCK1*!
>> DIQ NOTE*
>> DIQ(0 NOTE*!
DIR EXIT+6!, AC!
DIR("A" AC*
DIR("B" AC*
DIR(0 AC*
DIROUT EXIT+6!
DIRUT EXIT+6!, AC!
DO FILEB+2!, FILE+2!, LOCK+2!
DOMAIN NOTE+3*, NOTE+5, MM+4, FILEB+5!
DR EN1+6!, EN1+7*, EN1+10!, EXIT+3!, EXIT+4*, EXIT+5!, NOTE*!, LOCK*, FILEA+1*!, LOCK1*
DT MM+3, MESS+7
DTOUT EXIT+6!, ACT+1!, AC!
DUOUT EXIT+6!, ACT+1!, AC!
DUZ EN1, NOTE+4, MM+1, FILEB+3, LOCK+4, LOCK1
FDOM EXIT+6!, FILE*
LCNT NOTE+7*, MM+3, MESS*, MESS+7, FILEB+5!
NAME NOTE+4*, MM+3, MESS+5, FILEB+5!
NM NOTE+4*, FILEB+5!
PDTTM EXIT+6!
PP EXIT+6!
PSXMDM EXIT+6!
PSXSYS EN1+1, EN1+2, EN1+3, EN1+7, EXIT, EXIT+1, EXIT+4, EXIT+6!
PSXUTIL NOTE+2!
PSXUTIL(4 NOTE
PURG EXIT+6!
>> RDOM FILE
>> RDTTM FC, LOCK+3, LOCK+4
REC FILE+1*, FILE+4, FC+1, LOCK, LOCK+1, LOCK+3, F!, FILEA*, FILEA+1, FILEA+2
, LOCK1!
RECA FF+1*, FF+2, FC!
>> REQT FC, LOCK+4
RTIME NOTE+6*, MESS+6, FILEB+5!
S1 AC+2!, NOTE*
S2 AC+2!
S3 AC+2!
SITE NOTE*, MM+1, FILEB+5!
>> SITENUM FILE+1, FILE+4, FILEA
SS EXIT+6!, ACT!, ACT+3*, ACT+5, NOTE+3, MM+1, FILEB+1, FILEB+2
ST NOTE*, NOTE+1, MM+1, FILEB+5!
STAT EXIT+6!, FILEB*, FILEB+3, FILEA+4*, LOCK1!
SUBREC FILEA+2*, LOCK1!
SY EXIT+6!
SYSFLAG EN2+2*, EXIT+6!, ACT+6*, NOTE+7, MM+1, MESS, MESS+2, FILEB
SYSSTAT EXIT+6!
SYSTEM EXIT+6!, ACT!, ACT+3*, ACT+5, AC, AC+3, MESS+4
TIME NOTE+6*, MM+1, FILEB+2, FILEB+5!
TT EXIT+6!, ACT+5*
U ACT+3, NOTE+3, MM+3, MESS+7
X ACT+2, ACT+3, ACT+4, FILEB+2*, FILEB+4!, FILE+4*, FF!, FC*, LOCK+3*, F!
XMDUN MM+3*, MESS+7*, FILEB+5!
XMDUZ NOTE+7*, MM+4*, MESS*, MESS+8*, FILEB+5!
XMIT EXIT+6!
XMSUB NOTE+7*, MESS*, FILEB+5!
XMY MM+4!, MESS+8!, FILEB+5!
XMY("S.PSXX C MOP SERVER@" , MM+4*
XMZ MM, MM+1, MM+2, MM+3, MESS+1, MESS+2, MESS+3, MESS+4, MESS+5, MESS+6
, MESS+7, FILEB+5!
XSS FILEA+2*, LOCK1!
XX EXIT+6!, NOTE+3*
Y EXIT+6!, ACT!, ACT+1, ACT+3!, ACT+4!, AC, NOTE+6*!, FF+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All