PSOCLADD ;BHAM ISC/DMA - Clozapine Registration Pharmacy Auto Update ;18 May 2020 12:29:40
Source file <PSOCLADD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TRGR(DFN,PSOCLZNW) | ; Register/Re-Register Clozapine Patient
|
|
| 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
|
| 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 |
