Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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
    Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call