PSJCLOZ ; DAL/RJS - INPATIENT CLOZAPINE ORDER CHECK ;12 June 2019 11:36:51
Source file <PSJCLOZ.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CLOZ(DFN,DRUG) | ;
; DFN is patient IEN, DRUG is drug file (#50) IEN |
|
PROVCHK(PROV) | ;
|
|
BEFQUIT | ;
|
|
OVERRIDE | ;
|
|
PSJFILE(DFN) | ;
|
|
PSJFILE1 | ;
|
|
ALERT | ; send an alert to the TWO approving team members
|
|
READ | ;
|
|
TDD | ; TOTAL DAILY DOSE INPUT
|
|
ORD | ;
|
|
END | ;
|
|
CMPLX | ;COMPLEX THEN ORDER LOGIC
|
|
CMPLX2 | ;SECOND COMPLEX THEN ORDER LOGIC
|
|
CMPLX3 | ;SECOND COMPLEX THEN ORDER LOGIC
|
|
CLOZPAT | ;VERIFY PATIENT IS A CLOZAPINE PATIENT
|
|
ANDTHEN | ;COMPLEX AND/THEN ORDER
|
|
DISPCMP(PSGORD,PSSD) | ;COMPLEX ORDER CHECK
|
|
EXTDT | ;VERIFY EXTERNAL DATE
|
|
MSG1 | ;
|
|
MSG2 | ;
|
|
MSG3 | ;
|
|
MSG4 | ;
|
|
MSG5 | ;
|
|
MSG6 | ; MSG 6 added for new critically low ANC levels clozapine override requirements
|
|
MSG9 | ;
|
|
MSG10 | ;
|
|
COMPLEX | ; Display Complex Order stop date warning message <<RJS
|
|
COMPLEX1 | ; Display Complex Order stop date warning message <<RJS
|
|
LASTCHLD(DFN,ON) | ; Last child of Complex order or not
|
|
ISCLOZ(PSGORD,ORPSOI,DFN,PSGORDNM,PSGDRG) | ; Define a clozapine order and associated drug
; PSGORD - Pending Order number (file 53.1) ; ORPSOI - ID containing Pharmacy Orderable Item number (file 50.7) ; DFN - Patient ID (file 2) ; PSGORDNM - Pharmacy order number (file 55) ; PSGDRG - Drug Code ; OROI - Orderable Item number (file 101.43) |
|
CLOZPSOI(ORPSOI) | ; Define a clozapine order based on Pharmacy Orderable item
|
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 |
|
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 |
---|---|
100.002 | LIST^DIC |
100.045 | FIND1^DIC, GET1^DIQ |
^ORD(101.41 - [#101.41] | FIND1^DIC |
101.416 | FIND1^DIC, GET1^DIQ |
^DPT - [#2] | GET1^DIQ |
200.051 | FIND1^DIC |
^PSDRUG - [#50] | FIND^DIC, GET1^DIQ |
^PS(53.1 - [#53.1] | GET1^DIQ |
53.11 | GET1^DIQ |
^PS(53.8 - [#53.8] | Classic Fileman Calls |
^PS(55 - [#55] | GET1^DIQ |
55.01 | GET1^DIQ |
55.06 | GET1^DIQ |
55.07 | GET1^DIQ |
^YSCL(603.01 - [#603.01] | FIND1^DIC, GET1^DIQ |