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: PSOCLUTL

Package: Outpatient Pharmacy

Routine: PSOCLUTL


Information

PSOCLUTL ;BHAM ISC/DMA - utilities for clozapine reporting system ;4 Oct 2019 12:29:40

Source Information

Source file <PSOCLUTL.m>

Entry Points

Name Comments DBIA/ICR reference
REG ; Register Clozapine Patient
NUMBER ;
NUMBER1 ;
PHY ;
SAVE ;
END ;
END1 ;
FACILITY ;Enter facility DEA number to set up clozapine system
AGAIN ; re-enter patient - new number, status and provider
PHY1 ;
OVER ;allow registration of patients and clozapine numbers not yet authorized by the NCCC.
CLOZPAT ;VERIFY PATIENT IS A CLOZAPINE PATIENT
PROVCHK(PROV) ;
MSG1 ;
MSG2 ;
MSG3 ;
MSG4 ;
MSG5 ;
MSG6 ; ; ** START NCC REMEDIATION ** 457 AND PSJ 327/RTW MSG 6 added for new critically low ANC levels clozapine override requirements
MSG9 ;
MSG10 ;
CRXTMP(DFN,PSOYS) ; track OP 4 day supply
CRXTMPI(DFN,PSOYS) ; track IP 4 day supply
CLKEYWRN() ; uniform message to users - PSO*7*457
GETREGYS(PSODFN)
  • ICR #7314
    • Status: Active
    • Usage: Private
    QTYCHK(PSORXARY,NUMDAYS) ; check/adjust quantity, PSORXARY passed by ref., NUMDAYS is # of days

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,PSONAME_" has not been authorized for Clozapine"
    • Line Location: REG+12
    Function Call: WRITE
    • Prompt: !,"by the NCCC (National Clozapine Coordinating Center)."
    • Line Location: REG+13
    Function Call: WRITE
    • Prompt: !,"This option is only available for known NCCC-registered patients."
    • Line Location: REG+14
    Function Call: WRITE
    • Prompt: !,"To dispense clozapine under a temporary registration for an authorized emergency"
    • Line Location: REG+15
    Function Call: WRITE
    • Prompt: !,"override situation, use the VistA Patient Prescription Processing option."
    • Line Location: REG+16
    Function Call: WRITE
    • Prompt: !,"Contact the NCCC during regular business hours for registration.",!
    • Line Location: REG+17
    Function Call: WRITE
    • Prompt: !!,PSONAME_" is already registered with number "_PSO4,!!,"Use the edit option to change registration data, or",!,"contact your supervisor",!
    • Line Location: REG+21
    Function Call: WRITE
    • Prompt: !,"Not registered",!
    • Line Location: NUMBER+3
    Function Call: WRITE
    • Prompt: !,PSO2," is already assigned to ",$$GET1^DIQ(2,PSOEX,.01)
    • Line Location: NUMBER+5
    Function Call: WRITE
    • Prompt: !,"Please contact your supervisor"
    • Line Location: NUMBER+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: NUMBER+6
    Function Call: WRITE
    • Prompt: !!,"The NCCC in Dallas has not authorized "_PSO2_" to be used",!
    • Line Location: NUMBER+7
    Function Call: WRITE
    • Prompt: "at this facility. Contact the NCCC in Dallas for authorization."
    • Line Location: NUMBER+8
    Function Call: WRITE
    • Prompt: !!,"Not registered",!!
    • Line Location: PHY+4
    Function Call: WRITE
    • Prompt: !!,$C(7),"Patient "_PSONAME_" is being edited by another user! Try Later."
    • Line Location: SAVE+2
    Function Call: WRITE
    • Prompt: !!,"Patient Not Registered"
    • Line Location: END1+1
    Function Call: WRITE
    • Prompt: !,PSONAME_" is not registered. Use the register option."
    • Line Location: AGAIN+2
    Function Call: WRITE
    • Prompt: !,PSO2," already assigned to ",$$GET1^DIQ(2,PSOEX,.01)
    • Line Location: AGAIN+11
    Function Call: WRITE
    • Prompt: !,"CLOZAPINE STATUS: "_$$GET1^DIQ(55,PSO1,54)
    • Line Location: AGAIN+13
    Function Call: WRITE
    • Prompt: !!,"Only providers with DEA numbers entered in the New Person",!,"file can register patients in this program.",!!
    • Line Location: PHY1+3
    Function Call: WRITE
    • Prompt: !!?5,"No changes made.",$C(7),!
    • Line Location: PHY1+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: OVER+1
    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GET1^DIQ
    ^VA(200 - [#200] Classic Fileman Calls
    200.051 FIND1^DIC
    ^PS(55 - [#55] FIND1^DIC,  GET1^DIQ
    ^YSCL(603.01 - [#603.01] FIND1^DIC,  FIND^DIC,  GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call