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

Package: Outpatient Pharmacy

Routine: PSOCLOU


Information

PSOCLOU ; HEC/hrub - clozapine support utilities ;26 DEC 2019 6:26:10

Source Information

Source file <PSOCLOU.m>

Entry Points

Name Comments DBIA/ICR reference
ANCWARN(PSOYS) ; ANC warnings
NOTAUTH ;
AUTHMSG ;
CLOZDISP(PRVDRIEN) ; Boolean function, does PRVDRIEN have (DEA# or VA#) and the YSCL AUTHORIZED key?
CLZPTNFO(PTNFO,CLZDFN) ; clozapine patient info, PTNFO passed by ref.
FINDNEXT() ; Find the next pseudo Clozapine registration number, return -1 if none left
LABRSLT(DFN,PSOYS,CLOZPAT) ; get lab tests
; PSOYS, CLOZPAT both passed by ref.
OVRDRSN(DFN,PSOYS,PSCLZREG,CLOZPAT) ; function, return override reason
OVRDTMBR ; select override team member, returned in PSSPHARM
DISPTM(PSOTMND) ; display team members
CRXTMP(DFN,PSOYS) ; create XTMP entry for 4 day supply tracking
CRXTMPI(DFN,PSOYS) ; create XTMP entry for 4 day supply tracking
OVRDTXT(RSNCODE) ; function, return text for override
HASKEY(USRNUM) ; Boolean function, does USRNUM hold the PSOLOCKCLOZ security key?
XTMPZRO ;set zero node in ^XTMP("PSJ CLOZ")

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Test ANC labs daily until levels stabilize to ANC greater than or equal to 1000.",!
  • Line Location: ANCWARN+1
Function Call: WRITE
  • Prompt: !,"Test ANC labs 3x weekly until levels stabilize to greater than or equal to 1500.",!
  • Line Location: ANCWARN+2
Function Call: WRITE
  • Prompt: !!,"You Are Not Authorized to Override! See Clozapine Manager with PSOLOCKCLOZ key."
  • Line Location: NOTAUTH+1
Function Call: WRITE
  • Prompt: !!,"Permission to dispense clozapine has been authorized by NCCC.",!
  • Line Location: AUTHMSG+1
Function Call: WRITE
  • Prompt: !!,"No active approving members available"_$S(^TMP($J,PSOTMND,0,"duzXcld"):" (other than you).",1:".")
  • Line Location: OVRDTMBR+25
Function Call: WRITE
  • Prompt: !!," Clozapine Team Members "_$G(^TMP($J,PSOTMND,0,"date")),!
  • Line Location: DISPTM+4
Function Call: WRITE
  • Prompt: !,$J(CNT,3)_". "_Y
  • Line Location: DISPTM+7

FileMan Files Accessed Via FileMan Db Call

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