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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: YSCLSRV3

Package: Mental Health

Routine: YSCLSRV3


Information

YSCLSRV3 ;DALOI/RLM-Clozapine data server ;24 APR 1990

Source Information

Source file <YSCLSRV3.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 C^%DTC  $$FIND1^DIC  UPDATE^DIE  ^DIK  $$GET1^DIQ  
Kernel 3 $$FMTE^XLFDT  $$DEA^XUSER  OWNSKEY^XUSRB  
Mental Health 1 EXIT^YSCLSERV  

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: 1

Package Total Caller Graph
Mental Health 1 YSCLSERV  

Entry Points

Name Comments DBIA/ICR reference
ACTIVE ;
DEMOG ;
LOCK ;Lock out ability to dispense Clozapine
AUTH ;List authorized Clozapine providers
ZEOR ;YSCLSRV3

External References

Name Field # of Occurrence
C^%DTC YSCLSRV3+15
$$FIND1^DIC AUTH+45
UPDATE^DIE AUTH+41
^DIK AUTH+47
$$GET1^DIQ ACTIVE+1
$$FMTE^XLFDT YSCLSRV3+20
$$DEA^XUSER AUTH+19, AUTH+31, AUTH+33
OWNSKEY^XUSRB AUTH+36
EXIT^YSCLSERV YSCLSRV3+22, DEMOG+6, LOCK+4, AUTH+1, AUTH+49

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ^TMP($J,"YSCLDATA",YSCLLN)="Clinician SSN ("_YSCLSSN_") - DEA ("_YSCLDEA_") mismatch at "_YSCLST,YSCLLN=YSCLLN+1
  • Line Location: AUTH+35
Routine Call
  • DIC
  • Line Location:
    • AUTH+45
Routine Call
  • DIE
  • Line Location:
    • AUTH+41

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
200.051 FIND1^DIC
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UPPERCASE" AUTH+26
^DPT - [#2] YSCLSRV3+17, YSCLSRV3+20
^PS(55 - [#55] YSCLSRV3+17, YSCLSRV3+18, DEMOG+2, DEMOG+3*
^PSDRUG - [#50] YSCLSRV3+18
^PSRX - [#52] YSCLSRV3+18
^TMP("DIERR" AUTH+25!
^TMP($J YSCLSRV3+10*, YSCLSRV3+11*, YSCLSRV3+12*, YSCLSRV3+13*, YSCLSRV3+14*, YSCLSRV3+20*, DEMOG+4*, DEMOG+5*, LOCK+2*, LOCK+3*
, AUTH+2*, AUTH+6*, AUTH+7*, AUTH+8*, AUTH+9*, AUTH+10*, AUTH+13*, AUTH+14*, AUTH+15*, AUTH+16*
, AUTH+17*, AUTH+20*, AUTH+24*, AUTH+28*, AUTH+30*, AUTH+32*, AUTH+34*, AUTH+35, AUTH+37*, AUTH+38*
, AUTH+42*, AUTH+43*, AUTH+46*, AUTH+48*
^VA(200 - [#200] AUTH+5, AUTH+6, AUTH+12, AUTH+13, AUTH+19, AUTH+20, AUTH+30, AUTH+31
^XUSEC("PSOLOCKCLOZ" AUTH+4
^XUSEC("PSZ CLOZAPINE" AUTH+11
^XUSEC("YSCL AUTHORIZED" AUTH+18
^YSCL(603.01 - [#603.01] DEMOG+1
^YSCL(603.03 - [#603.03] LOCK+2*, LOCK+3*

Label References

Name Line Occurrences
ACTIVE YSCLSRV3+18

Naked Globals

Name Field # of Occurrence
^( YSCLSRV3+18
^("CLOZ" YSCLSRV3+18
^("SAND" YSCLSRV3+17
^(0 YSCLSRV3+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA AUTH+45*, AUTH+46
>> DA(1 AUTH+47*
>> DFN YSCLSRV3+16*, YSCLSRV3+17*, YSCLSRV3+18
>> DIK AUTH+47*
DT YSCLSRV3+15
DUZ AUTH+39, AUTH+44
DUZ(0 AUTH+39*, AUTH+44*
>> RET AUTH+36
>> RET(0 AUTH+37, AUTH+38, AUTH+39, AUTH+44
>> X YSCLSRV3+15, LOCK+1*, LOCK+2, LOCK+3, AUTH+26*, AUTH+27
>> X1 YSCLSRV3+15*
>> X2 YSCLSRV3+15*
>> XMER LOCK+1, AUTH+26
>> XMREC LOCK+1, AUTH+26
>> XMRG LOCK+1, AUTH+26
>> Y AUTH+26
>> YSACT YSCLSRV3+18, ACTIVE+1*
>> YSCL YSCLSRV3+17*, YSCLSRV3+18*
>> YSCL1 YSCLSRV3+18*, ACTIVE+1
>> YSCL28 YSCLSRV3+15*, YSCLSRV3+20
YSCLA YSCLSRV3+17!, DEMOG+1*, DEMOG+2, DEMOG+3, AUTH+4*, AUTH+5, AUTH+6, AUTH+11*, AUTH+12, AUTH+13
, AUTH+18*, AUTH+19, AUTH+20
>> YSCLAA AUTH+31*
>> YSCLB DEMOG+3*, DEMOG+4
>> YSCLC DEMOG+2*, DEMOG+5
>> YSCLDEA AUTH+19*, AUTH+20, AUTH+27*, AUTH+31, AUTH+32, AUTH+34, AUTH+35
>> YSCLDEA1 AUTH+27*, AUTH+33*, AUTH+34, AUTH+35
>> YSCLDUZ AUTH+27*, AUTH+31*, AUTH+32, AUTH+33, AUTH+36, AUTH+40, AUTH+45, AUTH+47
>> YSCLDUZ(0 AUTH+39*, AUTH+44*
>> YSCLERR AUTH+42, AUTH+43
>> YSCLFDA( AUTH+41*
>> YSCLFDA(200 AUTH+40*
>> YSCLIEN AUTH+27*
>> YSCLLAB YSCLSRV3+18*
>> YSCLLD YSCLSRV3+17*
>> YSCLLN YSCLSRV3+16*, YSCLSRV3+20, YSCLSRV3+21*, AUTH+3*, AUTH+6*, AUTH+7*, AUTH+8*, AUTH+9*, AUTH+10*, AUTH+13*
, AUTH+14*, AUTH+15*, AUTH+16*, AUTH+17*, AUTH+20*, AUTH+24*, AUTH+28*, AUTH+30*, AUTH+32*, AUTH+34*
, AUTH+35, AUTH+37*, AUTH+38*, AUTH+42*, AUTH+43*, AUTH+46*, AUTH+48*
>> YSCLLNT LOCK+2*, LOCK+3*
>> YSCLRX YSCLSRV3+18*, YSCLSRV3+20
>> YSCLSAND YSCLSRV3+17*, YSCLSRV3+20
>> YSCLSSN AUTH+19*, AUTH+20, AUTH+27*, AUTH+30, AUTH+31, AUTH+32, AUTH+35, AUTH+37, AUTH+38, AUTH+42
, AUTH+43, AUTH+46, AUTH+48
>> YSCLST DEMOG+4, DEMOG+5, LOCK+2, LOCK+3, AUTH+24, AUTH+28, AUTH+30, AUTH+32, AUTH+34, AUTH+35
, AUTH+37, AUTH+38, AUTH+42, AUTH+43, AUTH+46, AUTH+48
>> YSCLSTN DEMOG+4, DEMOG+5
>> YSCLSUB AUTH+1
>> YSCLX YSCLSRV3+17*
>> YSCLYN AUTH+19*, AUTH+20, AUTH+27*, AUTH+28, AUTH+29*, AUTH+37, AUTH+38, AUTH+39, AUTH+43, AUTH+44
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 |  Naked Globals |  Local Variables  | All