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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSJCLOZ

Package: Inpatient Medications

Routine: PSJCLOZ


Information

PSJCLOZ ; DAL/RJS - INPATIENT CLOZAPINE ORDER CHECK ;12 June 2019 11:36:51

Source Information

Source file <PSJCLOZ.m>

Entry Points

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)
  • ICR #7176
    • Status: Active
    • Usage: Controlled Subscription
    CLOZPSOI(ORPSOI) ; Define a clozapine order based on Pharmacy Orderable item

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: OVERRIDE+4
    Function Call: WRITE
    • Prompt: !!,"OVERRIDE ALERTS HAVE BEEN SENT TO THE APPROVING TEAM MEMBERS",!!
    • Line Location: ALERT+9
    Function Call: WRITE
    • Prompt: !!,"Permission to dispense clozapine has been denied. The results of the latest",!
    • Line Location: MSG1+1
    Function Call: WRITE
    • Prompt: "Lab Test drawn in the past 7 days show ANC results but No Matching WBC.",!
    • Line Location: MSG1+2
    Function Call: WRITE
    • Prompt: "If you wish to dispense outside the FDA and VA protocol ANC limits,",!
    • Line Location: MSG1+3
    Function Call: WRITE
    • Prompt: "document your request to Request for Override of Pharmacy Lockout ",!
    • Line Location: MSG1+4
    Function Call: WRITE
    • Prompt: "(from VHA Handbook 1160.02) Director of the",!
    • Line Location: MSG1+5
    Function Call: WRITE
    • Prompt: "VA National Clozapine Coordinating Center",!
    • Line Location: MSG1+6
    Function Call: WRITE
    • Prompt: "(Phone: 214-857-0068 Fax: 214-857-0339) for a one-time override permission.",!
    • Line Location: MSG1+7
    Function Call: WRITE
    • Prompt: !,"No order entered!"
    • Line Location: MSG1+8
    Function Call: WRITE
    • Prompt: !!,"Permission to dispense clozapine has been denied. The results of the latest",!
    • Line Location: MSG2+1
    Function Call: WRITE
    • Prompt: "Lab Test drawn in the past 7 days show No ANC results. If you wish to dispense",!
    • Line Location: MSG2+2
    Function Call: WRITE
    • Prompt: "outside the FDA and VA protocol ANC limits, document your request to Request",!
    • Line Location: MSG2+3
    Function Call: WRITE
    • Prompt: "for Override of Pharmacy Lockout (from VHA Handbook 1160.02) Director of the",!
    • Line Location: MSG2+4
    Function Call: WRITE
    • Prompt: "VA National Clozapine Coordinating Center",!
    • Line Location: MSG2+5
    Function Call: WRITE
    • Prompt: "(Phone: 214-857-0068 Fax: 214-857-0339) for a one-time override permission.",!
    • Line Location: MSG2+6
    Function Call: WRITE
    • Prompt: !,"No order entered!"
    • Line Location: MSG2+7
    Function Call: WRITE
    • Prompt: !,"A CBC/Differential including ANC Must Be Ordered and Monitored on a",!
    • Line Location: MSG3+1
    Function Call: WRITE
    • Prompt: "Daily basis until the ANC above 1000/mm3 with no signs of infection.",!
    • Line Location: MSG3+2
    Function Call: WRITE
    • Prompt: "If ANC is between 1000-1499, therapy can be continued but physician must order",!
    • Line Location: MSG3+3
    Function Call: WRITE
    • Prompt: "lab test three times weekly."
    • Line Location: MSG3+4
    Function Call: WRITE
    • Prompt: !,"Permission to dispense clozapine has been denied. If the results of the latest"
    • Line Location: MSG4+1
    Function Call: WRITE
    • Prompt: !,"Lab Test drawn in the past 7 days show ANC below 1000/mm3 and you wish to"
    • Line Location: MSG4+2
    Function Call: WRITE
    • Prompt: !,"dispense outside the FDA and VA protocol ANC limits, document your request to"
    • Line Location: MSG4+3
    Function Call: WRITE
    • Prompt: !,"Request for Override of Pharmacy Lockout (from VHA Handbook 1160.02)"
    • Line Location: MSG4+4
    Function Call: WRITE
    • Prompt: !,"Director of the VA National Clozapine Coordinating Center"
    • Line Location: MSG4+5
    Function Call: WRITE
    • Prompt: !,"(Phone: 214-857-0068 Fax: 214-857-0339) for a one-time override permission.",!
    • Line Location: MSG4+6
    Function Call: WRITE
    • Prompt: !!,"Permission to dispense clozapine has been denied. Please contact the"
    • Line Location: MSG5+1
    Function Call: WRITE
    • Prompt: !,"Director of the VA National Clozapine Coordinating Center"
    • Line Location: MSG5+2
    Function Call: WRITE
    • Prompt: !!,"Request for Override of Pharmacy Lockout (from VHA Handbook 1160.02)"
    • Line Location: MSG5+3
    Function Call: WRITE
    • Prompt: !,"(Phone: 214-857-0068 Fax: 214-857-0339).",!
    • Line Location: MSG5+4
    Function Call: WRITE
    • Prompt: !!,"This clozapine drug may not be dispensed to the patient at this time based on the available lab tests related to the clozapine treatment program."
    • Line Location: MSG6+1
    Function Call: WRITE
    • Prompt: !!,"Please contact the NCCC to request an override in order to proceed with dispensing this drug. "
    • Line Location: MSG6+2
    Function Call: WRITE
    • Prompt: !!,"Request for Override of Pharmacy Lockout (from VHA Handbook 1160.02)"
    • Line Location: MSG6+3
    Function Call: WRITE
    • Prompt: !!,"The matching ANC counts which caused the lockout are of lab test results performed on "
    • Line Location: MSG6+4
    Function Call: WRITE
    • Prompt: $P(Y,"@")
    • Line Location: MSG6+5
    Function Call: WRITE
    • Prompt: !!,?5,"ANC: "_$P(PSOYS,"^",4),!
    • Line Location: MSG6+6
    Function Call: WRITE
    • Prompt: !,"*** Permission to dispense clozapine has been denied based on the available"
    • Line Location: MSG9+1
    Function Call: WRITE
    • Prompt: !," lab tests related to the clozapine treatment program. ***"
    • Line Location: MSG9+2
    Function Call: WRITE
    • Prompt: !!,"For a National Override to dispense at the patient's normal frequency,"
    • Line Location: MSG9+3
    Function Call: WRITE
    • Prompt: !,"please contact the VA National Clozapine Coordinating Center to request"
    • Line Location: MSG9+4
    Function Call: WRITE
    • Prompt: !,"an Override of Pharmacy Lockout (from VHA Handbook 1160.02)"
    • Line Location: MSG9+5
    Function Call: WRITE
    • Prompt: !,"(Phone: 214-857-0068 Fax: 214-857-0339)."
    • Line Location: MSG9+6
    Function Call: WRITE
    • Prompt: !,"A Special Conditions Local Override can be approved for"
    • Line Location: MSG9+7
    Function Call: WRITE
    • Prompt: !,"(1) weather-related conditions, (2) mail order delays of clozapine, or"
    • Line Location: MSG9+8
    Function Call: WRITE
    • Prompt: !,"(3) inpatient going on leave. With Provider's documentation of approval,"
    • Line Location: MSG9+9
    Function Call: WRITE
    • Prompt: !,"you may dispense a one-time supply not to exceed 4 days.",!
    • Line Location: MSG9+10
    Function Call: WRITE
    • Prompt: !,"*** Permission to dispense clozapine has been denied based on the available"
    • Line Location: MSG10+1
    Function Call: WRITE
    • Prompt: !," lab tests related to the clozapine treatment program. ***"
    • Line Location: MSG10+2
    Function Call: WRITE
    • Prompt: !!,"For a National Override to dispense at the patient's normal frequency,"
    • Line Location: MSG10+3
    Function Call: WRITE
    • Prompt: !,"please contact the VA National Clozapine Coordinating Center to request an"
    • Line Location: MSG10+4
    Function Call: WRITE
    • Prompt: !,"Override of Pharmacy Lockout (from VHA Handbook 1160.02) (Phone: 214-857-0068"
    • Line Location: MSG10+5
    Function Call: WRITE
    • Prompt: !,"Fax: 214-857-0339)."
    • Line Location: MSG10+6
    Function Call: WRITE
    • Prompt: !,"A Special Conditions Local Override for Inpatients can be approved for an"
    • Line Location: MSG10+7
    Function Call: WRITE
    • Prompt: !,"IP Override Order with Outside Lab Results. With Provider's documentation of"
    • Line Location: MSG10+8
    Function Call: WRITE
    • Prompt: !,"approval, you may dispense a one-time IP supply not to exceed 4 days."
    • Line Location: MSG10+9
    Function Call: WRITE
    • Prompt: !,"The ANC from another facility must be recorded in the Progress note/comments"
    • Line Location: MSG10+10
    Function Call: WRITE
    • Prompt: !,"in pharmacy"
    • Line Location: MSG10+11
    Function Call: WRITE
    • Prompt: !!,?25,"* WARNING *",!!,?10,"This order contains a requested duration."
    • Line Location: COMPLEX+7
    Function Call: WRITE
    • Prompt: !,?8,"Please review the system calculated stop date",!,?5,"to confirm that it is within the allowable duration"
    • Line Location: COMPLEX+8
    Function Call: WRITE
    • Prompt: !,?13,"of the order based on the patient's",!,?11,"authorized clozapine dispense frequency.",!
    • Line Location: COMPLEX+9
    Function Call: WRITE
    • Prompt: !,?10,"Order stop date should not exceed ",PSGFDT,!,!,?1,"Review the entire profile to determine appropriate action(s).",!
    • Line Location: COMPLEX+10

    FileMan Files Accessed Via FileMan Db Call

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