PSOCLO1 ;BHAM ISC/SAB, HEC/hrubovcak - Clozapine Rx lockout logic ;24 Feb 2020 14:00:01
Source file <PSOCLO1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
OV1 | ;
|
|
CHECK | ;
|
|
OVRD | ;
|
|
GDOSE | ; ask daily dose
|
|
DOSE | ;
|
|
EXIT | ;
|
|
OVPRMPT | ; ask user to override
|
|
PKEYCHK | ; does user have PSOLOCKCLOZ key
|
|
MH | ;
|
|
DSP | ; subroutine: NCC remediation PSO*7.0*457
|
|
DIR | ;
|
|
END | ;
|
|
QU | ; no med prescribed
|
|
NOREG | ; Register a new/discontinued non-registered cloz patient
|
|
CONT | ||
QUIT | ;
|
|
OVRD2 | ;
|
|
OVRREA | ; Override reason when order is NCCC Approved
|
|
CHK4REG(PSCLDFN) | ; See if patient already has a clozapine registration number
|
|
CHK4DFN(PSCLRGNO) | ; See if this Clozapine registration is assigned
|
|
CHK4EXP(PSCLRGNO,PSCLDFN) | ; Check for registration expiration
; returns zero if expired, 1 if not |
|
CRXTMP(DFN,PSOYS) | ; create XTMP entry for 4 day supply tracking
|
|
CRXTMPI(DFN,PSOYS) | ; create XTMP entry for 4 day supply tracking
|
|
HASKEY(USRNUM) | ; Boolean function, does USRNUM hold the PSOLOCKCLOZ security key?
|
|
EXPDT(PSORXARY,CLOZPT) | ; PSORXARY,CLOZPAT passed by ref., determine expiration date (for Clozapine only)
; PSORXARY can be a new Rx (PSONEW) or an edited Rx (PSORXED and PSODIR) |
|
QTYCHK(PSORXARY,NUMDAYS) | ; check/adjust quantity, PSORXARY passed by ref., NUMDAYS is # of days
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^PSRX - [#52] | GET1^DIQ |
52.0113 | GET1^DIQ |
^PS(55 - [#55] | GET1^DIQ |
^YSCL(603.01 - [#603.01] | Classic Fileman Calls |
^XTV(8989.3 - [#8989.3] | GET1^DIQ |