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 |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSOCLADD

Package: Outpatient Pharmacy

Routine: PSOCLADD


Information

PSOCLADD ;BHAM ISC/DMA - Clozapine Registration Pharmacy Auto Update ;18 May 2020 12:29:40

Source Information

Source file <PSOCLADD.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ($$FIND1,FIND)^DIC  (FILE,UPDATE)^DIE  $$GET1^DIQ  
Kernel 1 ($$DT,$$NOW)^XLFDT  
MailMan 1 SENDMSG^XMXAPI  
Registration 1 $$SITE^VASITE  

Entry Points

Name Comments DBIA/ICR reference
TRGR(DFN,PSOCLZNW) ; Register/Re-Register Clozapine Patient
  • ICR #7175
    • Status: Active
    • Usage: Private
    SAVE ; Save new NCCC number and Active status to File 55
    ; If patient has never been added to Pharmacy Patient file, add them now
    ADD2TXT(L) ; add line L to the Message text
    SEND ; Send Message to PSOCLZAU mail group
    OVR5252(B5252,RXIEN) ; File fields into CLOZAPINE PRESCRIPTION OVERRIDES file (#52.52)
    ; Input: B5252 = IEN of current entry from CLOZAPINE PRESCRIPTION OVERRIDES (#52.52)
    ; RXIEN = IEN from PRESCRIPTION file #52 associated with current entry from CLOZAPINE PRESCRIPTRION OVERRIDES (#52.52)
    ; Output: OVERRIDE PROVIDER Field (#8) in CLOZAPINE PRESCRIPTION OVERRIDES (#52.52)
    ; ORDER Field (#9) CLOZAPINE PRESCRIPTION OVERRIDES (#52.52)
    OVERONE(PSI5252,RXIEN,PSOPR,PSORN,PSOVRTM) ; Update previously filed override entry for the same RX

    External References

    Name Field # of Occurrence
    $$FIND1^DIC TRGR+10, TRGR+17
    FIND^DIC TRGR+15, OVR5252+11
    FILE^DIE SAVE+12, OVR5252+21, OVERONE+9
    UPDATE^DIE SAVE+5
    $$GET1^DIQ TRGR+9, TRGR+12, TRGR+18, TRGR+19, OVR5252+12, OVR5252+14, OVERONE+3, OVERONE+11
    $$SITE^VASITE SEND+4
    $$DT^XLFDT SAVE+11
    $$NOW^XLFDT SEND+4
    SENDMSG^XMXAPI SEND+14

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^OR(100 - [#100] GET1^DIQ
    ^DPT - [#2] GET1^DIQ
    ^VA(200 - [#200] GET1^DIQ
    ^PSRX - [#52] FIND^DIC
    ^PS(52.52 - [#52.52] GET1^DIQ
    ^PS(55 - [#55] FIND1^DIC
    ^YSCL(603.01 - [#603.01] FIND1^DIC,  FIND^DIC,  GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] TRGR+3
    ^PS(52.52 - [#52.52] OVR5252+8, OVR5252+9, OVERONE+2
    ^PS(55 - [#55] SAVE+3
    ^PSRX - [#52] OVR5252+7, OVERONE+4
    ^TMP($J TRGR+8!, ADD2TXT+2*, SEND+14, SEND+15!
    ^XTMP("PSJ4D-" SAVE+16!
    ^XTMP("PSO4D-" SAVE+16!

    Label References

    Name Line Occurrences
    ADD2TXT TRGR+12, TRGR+13, TRGR+19, TRGR+20, TRGR+21, SAVE+13, SAVE+14, SAVE+15, SEND+10, SEND+11
    SEND+12
    OVERONE OVR5252+16
    SEND TRGR+14, TRGR+22, SAVE+17

    Naked Globals

    Name Field # of Occurrence
    ^(0 ADD2TXT+2*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % TRGR+5~, SEND+1~
    %DT SEND+1~
    %H SEND+1~
    %Y TRGR+5~
    B5252 OVR5252~, OVR5252+8
    C TRGR+5~, ADD2TXT+2~*
    D TRGR+5~, SEND+1~
    D0 TRGR+5~
    DA TRGR+5~, SEND+1~
    DD SEND+1~
    DFN TRGR~, TRGR+2, TRGR+3, TRGR+9, TRGR+11, TRGR+15, TRGR+18, SAVE+3, SAVE+4, SAVE+5
    SAVE+9, SAVE+10, SAVE+11, SAVE+16
    DFNIEN SAVE+4~
    DFNIEN(1 SAVE+4*
    DI TRGR+5~
    DIC TRGR+5~, TRGR+7~, SEND+1~, OVR5252+5~
    DIE TRGR+5~, SEND+1~
    DIK SEND+1~
    DIR TRGR+7~, OVR5252+5~
    DQ TRGR+5~
    DR TRGR+5~
    DUZ SEND+14
    G SEND+11~*
    L ADD2TXT~, ADD2TXT+1*, ADD2TXT+2
    PS1IEN52 OVERONE+1~, OVERONE+2*, OVERONE+3, OVERONE+7, OVERONE+8, OVERONE+11
    PS1RXIEN OVERONE+1~, OVERONE+3*, OVERONE+4, OVERONE+5
    PSERR OVR5252+6~
    PSFDA OVR5252+5~, OVR5252+21!, OVERONE+1~
    PSFDA( OVR5252+18*, OVR5252+19*, OVR5252+20*, OVERONE+7*, OVERONE+8*
    PSI5252 OVR5252+5~, OVR5252+8*, OVR5252+9, OVR5252+16, OVR5252+18, OVR5252+19, OVR5252+20, OVERONE~, OVERONE+2
    PSO TRGR+5~
    PSO1 TRGR+5~, TRGR+9*
    PSO2 TRGR+5~
    PSO3 TRGR+5~
    PSO4 TRGR+5~
    PSOC TRGR+5~
    PSOCLZNW TRGR~, TRGR+1, TRGR+10, TRGR+12, TRGR+13, TRGR+17, TRGR+19, TRGR+20, TRGR+21, SAVE+9
    SAVE+13, SAVE+15
    PSOCZPTS TRGR+7~
    PSOCZPTS("DILIST" TRGR+16
    PSOERMSG SAVE+2~, SAVE+6, SAVE+13, SAVE+15
    PSOERMSG("DIERR" SAVE+14
    PSOERR TRGR+7~, SAVE+7*
    PSOEX TRGR+10~*, TRGR+11, TRGR+12
    PSOFDA SAVE+5~, SAVE+8~
    PSOFDA(55 SAVE+5*, SAVE+9*, SAVE+10*, SAVE+11*
    PSOLN TRGR+5~
    PSONAME TRGR+5~, TRGR+7~, TRGR+9*, TRGR+13, TRGR+19, TRGR+21, SAVE+13, SAVE+15
    PSONFILE TRGR+17~*, TRGR+18, TRGR+20
    PSONO TRGR+5~
    PSOPR OVR5252+6~, OVR5252+10*, OVR5252+13*, OVR5252+16, OVR5252+17, OVR5252+19, OVERONE~, OVERONE+6, OVERONE+7
    PSOPRCHK OVR5252+6~, OVR5252+12*, OVR5252+13
    PSORN OVR5252+6~, OVR5252+10*, OVR5252+15*, OVR5252+16, OVR5252+17, OVR5252+20, OVERONE~, OVERONE+6, OVERONE+8
    PSORNCHK OVR5252+6~, OVR5252+14*, OVR5252+15
    PSORX OVR5252+6~
    PSORX("DILIST" OVR5252+12, OVR5252+13, OVR5252+14, OVR5252+15
    PSOSSN TRGR+7~, TRGR+9*, TRGR+13, TRGR+19, SAVE+13, SAVE+15
    PSOT TRGR+5~
    PSOTHZP TRGR+7~, TRGR+18*, TRGR+19
    PSOTHZPF TRGR+7~, TRGR+18*
    PSOVRTM OVR5252+5~, OVR5252+16, OVR5252+17, OVR5252+18, OVERONE~, OVERONE+11*
    PSOZST TRGR+7~
    R TRGR+5~
    RET SEND+1~
    RXIEN OVR5252~, OVR5252+7, OVR5252+9, OVR5252+11, OVR5252+16, OVERONE~, OVERONE+2, OVERONE+5
    SSNVAERR TRGR+5~
    TXTLN SAVE+14~*
    U SEND+4
    X SEND+1~, OVR5252+5~
    XMDUN SEND+1~, SEND+4*
    XMDUZ TRGR+5~, SEND+1~, SEND+4*
    XMER SEND+1~
    XMFROM SEND+1~
    XMREC SEND+2~
    XMRG SEND+2~
    XMSUB TRGR+5~, SEND+2~, SEND+4*, SEND+14
    XMTEXT TRGR+5~, SEND+2~
    XMY SEND+2~, SEND+5!, SEND+14
    XMY( SEND+11
    XMY("G.PSOCLOZ" SEND+7*
    XMZ SEND+2~
    XQDATE SEND+2~
    XQSUB SEND+2~
    Y TRGR+5~, OVR5252+5~
    YSPROD SEND+5~
    YSXMZ SEND+5~, SEND+14
    Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All