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

Package: Mental Health

Routine: YSCLTST2


Information

YSCLTST2 ;DALOI/LB/RLM-TRANSMIT RX AND lAB DATA FOR CLOZAPINE ; 11/28/18 3:34am

Source Information

Source file <YSCLTST2.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
VA FileMan 7 ^%DT  C^%DTC  (FIND,LIST)^DIC  FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  
Mental Health 4 ABORT^YSCLTEST  END1^YSCLTST3  CL1^YSCLTST4  (REX,REXMIT)^YSCLTST5  
Kernel 2 $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Lab Service 1 RR^LR7OR1  
MailMan 1 ^XMD  
Outpatient Pharmacy 1 $$GETREGYS^PSOCLUTL  
Pharmacy Data Management 1 PSS^PSS781  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Mental Health 10 YSCL RETRANSMIT DATA  YSCL TEST LINK  YSCLHLAB  YSCLSRV2  YSCLTEST  YSCLTST1  YSCLTST3  YSCLTST4  
YSCLTST5  YSCLTST6  
Inpatient Medications 3 PSGNE3  PSGOE41  PSGOE91  
Order Entry Results Reporting 2 ORALWORD  ORKLR  
Outpatient Pharmacy 2 PSOCLO1  PSOCLOU  

Entry Points

Name Comments DBIA/ICR reference
TRANSMIT ; send remote and local, kill and quit
END ;
REXMIT ; retransmit lab and RX data
; must be a tuesday
DATE
FLSET ;Set up file 603.02
EN(DRG) ;
CL1(DFN,DAYS) ;The routine was split due to size
  • ICR #4556
    • Status: Active
    • Usage: Controlled Subscription
    CL(DFN,PSORCLOZ) ; patient must be in both file #55 and #603.01 to get lab results
  • ICR #4556
    • Status: Active
    • Usage: Controlled Subscription
    ALTANC ;
    KILL ;
    OVERRIDE(DFN) ;Check for an over-ride. SEE RQ12.11
  • ICR #4556
    • Status: Active
    • Usage: Controlled Subscription
    ZEOR ;YSCLTST2
    GET55(DFN,CLOZ55) ; JCH - PSO*7*612 - Get Clozapine "SAND" node from file 55 via PDM API

    External References

    Name Field # of Occurrence
    ^%DT TRANSMIT+1, DATE+1
    C^%DTC CL+16
    $$S^%ZTLOAD TRANSMIT+2
    FIND^DIC OVERRIDE+5
    LIST^DIC EN+3, CL+4, CL+17
    FILE^DICN FLSET+11
    ^DIE TRANSMIT+22
    $$GET1^DIQ TRANSMIT+3, TRANSMIT+4, TRANSMIT+5, EN+2, EN+8, CL+10, CL+11, CL+12, CL+14, CL+19
    , CL+20, CL+21, CL+32, CL+41, CL+42, CL+46, ALTANC+2, ALTANC+10, ALTANC+11, ALTANC+15
    , OVERRIDE+8
    ^DIR REXMIT+3, FLSET+4, FLSET+7
    RR^LR7OR1 CL+24
    $$GETREGYS^PSOCLUTL CL+7
    PSS^PSS781 GET55+3
    $$SITE^VASITE TRANSMIT+1
    $$FMTE^XLFDT OVERRIDE+10
    $$NOW^XLFDT TRANSMIT+22
    ^XMD TRANSMIT+15, TRANSMIT+21
    ABORT^YSCLTEST TRANSMIT+2
    END1^YSCLTST3 END+1
    CL1^YSCLTST4 CL1+1
    REX^YSCLTST5 REXMIT+5
    REXMIT^YSCLTST5 DATE+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF,"This option specifies the blood tests associated with the Clozapine"
    • Line Location: FLSET+1
    Function Call: WRITE
    • Prompt: !,"reporting software. Two tests must be defined. The first is the White"
    • Line Location: FLSET+2
    Function Call: WRITE
    • Prompt: !,"Blood Count. The second is the Granulocyte (or Neutrophil) percentage."
    • Line Location: FLSET+3
    Function Call: WRITE
    • Prompt: !!
    • Line Location: FLSET+4
    Function Call: WRITE
    • Prompt: !!
    • Line Location: FLSET+7
    Function Call: WRITE
    • Prompt: !,"National Override expired at midnight on "_YSCXDATE
    • Line Location: OVERRIDE+10
    Routine Call
    • DIC
    • Line Location:
      • OVERRIDE+5
    Routine Call
    • DIC
    • Line Location:
      • EN+3
      • CL+4
      • CL+17
    Routine Call
    • DIE
    • Line Location:
      • TRANSMIT+22
    Routine Call
    • DIR
    • Line Location:
      • REXMIT+3
      • FLSET+4
      • FLSET+7

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] GET1^DIQ
    50.02 GET1^DIQ,  LIST^DIC
    ^PS(55 - [#55] GET1^DIQ
    ^LAB(60 - [#60] GET1^DIQ
    ^YSCL(603.01 - [#603.01] FIND^DIC,  GET1^DIQ,  LIST^DIC
    ^YSCL(603.02 - [#603.02] Classic Fileman Calls
    ^YSCL(603.03 - [#603.03] Classic Fileman Calls,  GET1^DIQ
    603.41 GET1^DIQ,  LIST^DIC
    ^XTV(8989.3 - [#8989.3] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^LAB(60 - [#60] CL+50, ALTANC+19
    ^TMP("LRRR" CL+2!, CL+25, CL+26, CL+27, CL+28
    ^TMP("YSCL" TRANSMIT+17*, TRANSMIT+21*
    ^TMP($J GET55+4
    ^YSCL(603.01 - [#603.01] CL+8

    Label References

    Name Line Occurrences
    ALTANC CL+33
    DATE DATE+1
    END TRANSMIT+2, DATE+1, DATE+5
    GET55 OVERRIDE+4
    KILL CL+51, ALTANC+21

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %DT TRANSMIT+1*, DATE*, DATE+1!
    %DT("A" DATE*
    %DT(0 DATE*
    >> ANQRE OVERRIDE+9*
    ARRAY CL+4~, CL+17!, OVERRIDE+1~
    ARRAY("DILIST" CL+5, CL+18, CL+23
    CLOZ55 GET55~, GET55+2!
    CLOZ55( GET55+4*
    CNT EN+4*, EN+5!, EN+6!
    >> DA TRANSMIT+22*
    DAYS CL1~
    DD FLSET+11!
    DFN CL1~, CL~, CL+3, CL+4, CL+7, CL+8, CL+12, CL+24, CL+25, CL+26
    , CL+27, CL+28, OVERRIDE~, OVERRIDE+4, OVERRIDE+5, GET55~, GET55+1, GET55+3, GET55+4
    >> DIC FLSET+11*
    >> DIC("DR" FLSET+11*
    >> DIE TRANSMIT+22*
    DIR REXMIT+3!, FLSET+4!, FLSET+7!, FLSET+13!
    DIR("A" REXMIT+2*, FLSET+4*, FLSET+7*
    DIR(0 REXMIT+2*, FLSET+4*, FLSET+7*
    >> DIROUT FLSET+5, FLSET+8
    >> DIRUT FLSET+5, FLSET+8
    DO FLSET+11!
    >> DR TRANSMIT+22*
    DRG EN~, EN+2, EN+8
    DT TRANSMIT+15, TRANSMIT+20, DATE, CL+16, CL+24, OVERRIDE+9, OVERRIDE+10, OVERRIDE+11
    >> DTOUT FLSET+5, FLSET+8
    >> DUOUT FLSET+5, FLSET+8
    FDA KILL+2!
    I EN+4*, EN+6*, EN+7, EN+9!, CL+18*, CL+23*
    IOF FLSET+1
    LAB EN+1!
    LAB( EN+8*
    LAB("BAD TEST " , EN+5*
    LAB("NOT" EN+2*
    LABT EN+7*, EN+8, EN+9!
    ORYSIEN CL+14~*
    >> PSGCFLG OVERRIDE+10
    PSOCZPTS OVERRIDE+3~
    PSOCZPTS("DILIST" OVERRIDE+6
    PSOERR OVERRIDE+3~
    PSORCLOZ CL~, CL+14
    RESULTS CL+2~, KILL+2!
    RESULTS( CL+29*, CL+32, CL+41, CL+42, CL+43, CL+45*, CL+46, CL+47, CL+49*, CL+50
    ALTANC+2, ALTANC+10, ALTANC+11, ALTANC+12, ALTANC+14*, ALTANC+15, ALTANC+16, ALTANC+18*, ALTANC+19
    RESULTS1 CL+28*, CL+29, KILL+2!
    X TRANSMIT+1*, DATE+1, FLSET+11*, FLSET+13!, CL+16, OVERRIDE+3~, OVERRIDE+10*
    X1 CL+16*, KILL+3!
    X2 CL+16*, KILL+3!
    >> XMDUZ TRANSMIT+15*
    >> XMSUB TRANSMIT+15*, TRANSMIT+20*
    >> XMTEXT TRANSMIT+15*, TRANSMIT+21*
    XMY TRANSMIT+8!, TRANSMIT+16!
    XMY( TRANSMIT+10*, TRANSMIT+13*
    XMY("G.CLOZAP INE DEBUG" , TRANSMIT+14*, TRANSMIT+19*, INE DEBUG@FO-DALLAS.DOMAIN.EXT" , TRANSMIT+11*, TRANSMIT+19*, INE ROLL-UP@DOMAIN.EXT" , TRANSMIT+18*
    XMY("G.PSOCLOZ" TRANSMIT+18*
    XMY("G.RUCLRXLAB@FO-DALLAS.DOMAIN.EXT" TRANSMIT+11*
    XMZ TRANSMIT+1!, TRANSMIT+17, TRANSMIT+21!
    Y TRANSMIT+1, REXMIT+3!, DATE+1, FLSET+5, FLSET+6, FLSET+8, FLSET+9, FLSET+13!, OVERRIDE+3~
    Y15 KILL+2!
    YSARRAY EN+3~
    YSARRAY("DILIST" EN+4, EN+6, EN+7
    YSCLA CL+18*, CL+19, CL+20, CL+21, CL+31*, CL+32, CL+39*, CL+40, CL+41, CL+42
    , CL+43, CL+47, ALTANC+1*, ALTANC+2, ALTANC+8*, ALTANC+9, ALTANC+10, ALTANC+11, ALTANC+12, ALTANC+16
    KILL+2!
    YSCLA1 CL+32*, ALTANC+2*, KILL+2!
    YSCLFRQ CL+2~, CL+7*, CL+10*, CL+11, CL+12, CL+52, CL+53, CL+54, CL+55, CL+56
    , CL+58, ALTANC+22, ALTANC+23, ALTANC+24, ALTANC+25
    YSCLGRN FLSET+9*, FLSET+10, FLSET+11, FLSET+13!
    YSCLIEN CL+2~, CL+7*, CL+8*, CL+10, CL+14, OVERRIDE+1~, OVERRIDE+6*, OVERRIDE+8
    >> YSCLLN TRANSMIT+7, TRANSMIT+21
    YSCLMTCH CL+39*, CL+41*, CL+42*, CL+44, CL+46*, CL+48, CL+50*, ALTANC+8*, ALTANC+10*, ALTANC+11*
    ALTANC+13, ALTANC+15*, ALTANC+17, ALTANC+19*, KILL+2!
    YSCLMULT CL+36*, CL+37, CL+40*, CL+41, CL+50, ALTANC+5*, ALTANC+6, ALTANC+9*, ALTANC+10, ALTANC+19
    KILL+2!
    >> YSCLNOW TRANSMIT+1*, TRANSMIT+15, TRANSMIT+20
    YSCLOVRD OVERRIDE+1~, OVERRIDE+8*, OVERRIDE+9, OVERRIDE+10, OVERRIDE+11
    YSCLPSN OVERRIDE+3~, OVERRIDE+4*, OVERRIDE+6
    YSCLPSN( OVERRIDE+4
    YSCLRANC CL+2~, ALTANC+4*, ALTANC+5, ALTANC+6, ALTANC+10, ALTANC+11, ALTANC+12, ALTANC+14, ALTANC+15, ALTANC+16
    ALTANC+18, ALTANC+19
    YSCLRANC( CL+41*, CL+42*, CL+46*, CL+50*, CL+52, CL+53, CL+54, CL+55, CL+56, CL+58
    ALTANC+6*, ALTANC+10*, ALTANC+11*, ALTANC+15*, ALTANC+19*, ALTANC+22, ALTANC+23, ALTANC+24, ALTANC+25
    YSCLRWBC CL+2~, CL+35*, CL+36, CL+37, CL+41, CL+42, CL+43, CL+45, CL+46, CL+47
    , CL+49, CL+50, CL+52, CL+53, CL+54, CL+55, CL+56, CL+58, ALTANC+4*, ALTANC+20
    ALTANC+22, ALTANC+23, ALTANC+24, ALTANC+25
    YSCLRWBC( CL+37*, CL+42, CL+46, CL+52, CL+53, CL+54, CL+55, CL+56, CL+58, ALTANC+20*
    ALTANC+23, ALTANC+24, ALTANC+25
    YSCLSB1 CL+25*, CL+26, CL+27, CL+28, KILL+2!
    YSCLSD CL+16*, CL+24, KILL+2!
    YSCLSGS CL+44*, CL+45*, CL+46, CL+48*, CL+49*, CL+50, ALTANC+13*, ALTANC+14*, ALTANC+15, ALTANC+17*
    ALTANC+18*, ALTANC+19, KILL+2!
    >> YSCLSITE TRANSMIT+1*, TRANSMIT+15, TRANSMIT+20
    YSCLTA CL+27*, CL+28, KILL+2!
    >> YSCLTDT CL+26*, CL+27, CL+28, CL+29
    YSCLTFR CL+19~, CL+21*, CL+22
    YSCLTL CL+23*, CL+24, CL+29, KILL+3!
    YSCLTLS KILL+3!
    YSCLTLS( CL+22*, CL+39, CL+40, ALTANC+8, ALTANC+9
    YSCLTLS("A" ALTANC+1, ALTANC+2
    YSCLTLS("B" CL+44, ALTANC+13
    YSCLTLS("T" CL+48, ALTANC+17
    YSCLTLS("W" CL+31, CL+32
    YSCLTNM CL+19~*, CL+22
    >> YSCLTPT CL+39*, CL+40, CL+41, CL+42, CL+43, CL+46, CL+47, CL+50, ALTANC+8*, ALTANC+9
    ALTANC+10, ALTANC+11, ALTANC+12, ALTANC+15, ALTANC+16, ALTANC+19
    YSCLTTP CL+19~, CL+20*, CL+22
    YSCLWBC FLSET+6*, FLSET+10, FLSET+11, FLSET+13!
    YSCLXANC CL+2~
    YSCLXANC( ALTANC+1*
    YSCLXWBC CL+2~, CL+34
    YSCLXWBC( CL+31*
    YSCLYANC CL+2~, ALTANC+3
    YSCLYANC( ALTANC+2*, ALTANC+5, ALTANC+6
    YSCLYANC(0 ALTANC+4
    YSCLYWBC CL+2~, CL+33, CL+34
    YSCLYWBC( CL+32*, CL+36, CL+37
    YSCLYWBC(0 CL+35
    >> YSCXDATE OVERRIDE+10*
    >> YSDBGST TRANSMIT+5*, TRANSMIT+13
    >> YSDEBUG TRANSMIT+3*, TRANSMIT+10, TRANSMIT+13, TRANSMIT+15, TRANSMIT+18, TRANSMIT+20
    >> YSDRG EN+3
    >> YSLN EN+7*, EN+8
    >> YSPROD TRANSMIT+3*, TRANSMIT+9, TRANSMIT+18, TRANSMIT+19
    >> YSPRODST TRANSMIT+4*, TRANSMIT+10
    >> YSSTOP TRANSMIT+2*
    ZTDESC DATE+3*, FLSET+13!
    >> ZTDTH DATE+4*
    >> ZTIO DATE+4*
    >> ZTRTN DATE+4*
    >> ZTSAVE("YSCLED" DATE+4*
    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