Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 DT^DICRW  $$GET1^DIQ  ^DIR  
Kernel 1 ($$DT,$$FMADD,$$FMTE,$$NOW)^XLFDT  
Mental Health 1 ($$CL,$$OVERRIDE)^YSCLTST2  
Outpatient Pharmacy 1 (CRXTMP,CRXTMPI)^PSOCLUTL  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSO457P  PSO574P  PSOCLO1  

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")

External References

Name Field # of Occurrence
DT^DICRW FINDNEXT+1
$$GET1^DIQ CLOZDISP+5, CLOZDISP+6, CLZPTNFO+4, CLZPTNFO+5, CLZPTNFO+6, CLZPTNFO+7, CLZPTNFO+8, CLZPTNFO+16, CLZPTNFO+26, CLZPTNFO+27
, CLZPTNFO+28, CLZPTNFO+29, OVRDRSN+5, OVRDTMBR+11, OVRDTMBR+12, OVRDTMBR+13
^DIR OVRDTMBR+26, OVRDTMBR+34, OVRDTMBR+39, DISPTM+10
CRXTMP^PSOCLUTL CRXTMP+1
CRXTMPI^PSOCLUTL CRXTMPI+1
$$SITE^VASITE FINDNEXT+4
$$DT^XLFDT XTMPZRO+2
$$FMADD^XLFDT XTMPZRO+2
$$FMTE^XLFDT OVRDTMBR+6
$$NOW^XLFDT OVRDTMBR+6
$$CL^YSCLTST2 CLZPTNFO+18, LABRSLT+3
$$OVERRIDE^YSCLTST2 OVRDRSN+7

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
Routine Call
  • DIR
  • Line Location:
    • OVRDTMBR+26
    • OVRDTMBR+34
    • OVRDTMBR+39
    • DISPTM+10

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(55 - [#55] FINDNEXT+9, FINDNEXT+22
^TMP($J OVRDTMBR+5!, OVRDTMBR+6*, OVRDTMBR+7*, OVRDTMBR+10*, OVRDTMBR+14*, OVRDTMBR+16, OVRDTMBR+19*, OVRDTMBR+20*, OVRDTMBR+22*, OVRDTMBR+25
, OVRDTMBR+27!, OVRDTMBR+31, OVRDTMBR+33, OVRDTMBR+38, OVRDTMBR+40, OVRDTMBR+42!, DISPTM+2, DISPTM+4, DISPTM+6, DISPTM+8
^XTMP("PSJ CLOZ" FINDNEXT+4, FINDNEXT+7, FINDNEXT+11, FINDNEXT+22, FINDNEXT+28, XTMPZRO+3*
^XUSEC("PSOLOCKCLOZ" OVRDTMBR+9, HASKEY+2
^XUSEC("YSCL AUTHORIZED" CLOZDISP+7
^YSCL(603.01 - [#603.01] CLZPTNFO+25, FINDNEXT+8, FINDNEXT+22

Label References

Name Line Occurrences
DISPTM OVRDTMBR+30
LABRSLT OVRDRSN+4
XTMPZRO FINDNEXT+3

Naked Globals

Name Field # of Occurrence
^( DISPTM+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ANQX OVRDTMBR+1*, OVRDTMBR+24*, OVRDTMBR+35*, OVRDTMBR+39*
C CLZPTNFO+3~, CLZPTNFO+24*, CLZPTNFO+25*, CLZPTNFO+31
CLOZPAT LABRSLT~, LABRSLT+7*, OVRDRSN~, OVRDRSN+4
CLZDFN CLZPTNFO~, CLZPTNFO+2, CLZPTNFO+4, CLZPTNFO+5, CLZPTNFO+6, CLZPTNFO+7, CLZPTNFO+8, CLZPTNFO+16, CLZPTNFO+18, CLZPTNFO+25
CNT OVRDTMBR+3~, OVRDTMBR+16*, OVRDTMBR+19*, OVRDTMBR+20, OVRDTMBR+22, OVRDTMBR+23, DISPTM+3~, DISPTM+5*, DISPTM+6*, DISPTM+7
, DISPTM+8
DFN LABRSLT~, LABRSLT+3, OVRDRSN~, OVRDRSN+4, OVRDRSN+5, OVRDRSN+7, CRXTMP~, CRXTMP+1, CRXTMPI~, CRXTMPI+1
>> DILOCKTM FINDNEXT+11
DIR OVRDTMBR+3~, OVRDTMBR+31!, OVRDTMBR+37!, DISPTM+3~, DISPTM+9!
DIR("?" OVRDTMBR+33*
DIR("A" OVRDTMBR+26*, OVRDTMBR+32*, OVRDTMBR+34*, OVRDTMBR+37*, OVRDTMBR+38*, DISPTM+9*
DIR("B" OVRDTMBR+37*
DIR(0 OVRDTMBR+26*, OVRDTMBR+32*, OVRDTMBR+37*, DISPTM+9*
DT XTMPZRO+3
>> DTOUT OVRDTMBR+35, OVRDTMBR+39
DUOUT OVRDTMBR+35, OVRDTMBR+39, DISPTM+3~, DISPTM+9!, DISPTM+10
DUZ OVRDTMBR+10, HASKEY+1
IEN CLZPTNFO+3~, CLZPTNFO+24*, CLZPTNFO+25*, CLZPTNFO+26, CLZPTNFO+27, CLZPTNFO+28, CLZPTNFO+29, OVRDTMBR+3~, OVRDTMBR+9*, OVRDTMBR+10
, OVRDTMBR+11, OVRDTMBR+12, OVRDTMBR+13, OVRDTMBR+14, OVRDTMBR+18*, OVRDTMBR+20
LPXIT OVRDTMBR+3~, OVRDTMBR+29*, OVRDTMBR+35*, OVRDTMBR+39*, OVRDTMBR+40*, DISPTM+3~, DISPTM+5*, DISPTM+6, DISPTM+10*
MMBRNO OVRDTMBR+31~, OVRDTMBR+36*, OVRDTMBR+38, OVRDTMBR+40
N FINDNEXT+2~, FINDNEXT+6*, FINDNEXT+7*, FINDNEXT+8*, FINDNEXT+9*, FINDNEXT+11*, FINDNEXT+19*, FINDNEXT+20
NMBR CLOZDISP+3~*, CLOZDISP+5*, CLOZDISP+6*, CLOZDISP+7
NUM FINDNEXT+2~, FINDNEXT+15*, FINDNEXT+16*, FINDNEXT+19, FINDNEXT+23*, FINDNEXT+26*
OVRDRSN OVRDRSN+2~*, OVRDRSN+7*, OVRDRSN+9, OVRDRSN+12*, OVRDRSN+14, OVRDRSN+16*, OVRDRSN+18, OVRDRSN+19*, OVRDRSN+21
PRFIX FINDNEXT+2~, FINDNEXT+5*, FINDNEXT+6, FINDNEXT+10*, FINDNEXT+20, FINDNEXT+24*, FINDNEXT+25
PRVDRIEN CLOZDISP~, CLOZDISP+2, CLOZDISP+5, CLOZDISP+6, CLOZDISP+7
PSCLZREG OVRDRSN~, OVRDRSN+5*, OVRDRSN+9, OVRDRSN+14, OVRDRSN+18
PSCLZREG("status55" OVRDRSN+5*, OVRDRSN+9, OVRDRSN+14, OVRDRSN+18
PSOTMND OVRDTMBR+3~, OVRDTMBR+4*, OVRDTMBR+5, OVRDTMBR+6, OVRDTMBR+7, OVRDTMBR+10, OVRDTMBR+14, OVRDTMBR+16, OVRDTMBR+17, OVRDTMBR+19
, OVRDTMBR+20, OVRDTMBR+22, OVRDTMBR+25, OVRDTMBR+27, OVRDTMBR+30, OVRDTMBR+31, OVRDTMBR+33, OVRDTMBR+38, OVRDTMBR+40, OVRDTMBR+42
, DISPTM~, DISPTM+1, DISPTM+2, DISPTM+4, DISPTM+6, DISPTM+8
PSOYS ANCWARN~, LABRSLT~, LABRSLT+3*, LABRSLT+4, LABRSLT+5, LABRSLT+6, LABRSLT+7, OVRDRSN~, OVRDRSN+4, CRXTMP~
, CRXTMP+1, CRXTMPI~, CRXTMPI+1
PSOYS("rANC" ANCWARN+1, ANCWARN+2, LABRSLT+3*, LABRSLT+6*, OVRDRSN+10, OVRDRSN+16, OVRDRSN+19
PSOYS("rWBC" LABRSLT+3*, LABRSLT+5*, OVRDRSN+11
>> PSSPHARM OVRDTMBR+2*, OVRDTMBR+40*
PTNFO CLZPTNFO~, CLZPTNFO+3!
PTNFO( CLZPTNFO+26*, CLZPTNFO+27*, CLZPTNFO+28*, CLZPTNFO+29*, CLZPTNFO+31*
PTNFO("lab" CLZPTNFO+18*, CLZPTNFO+20*, CLZPTNFO+21*, CLZPTNFO+22*
PTNFO("labNm" CLZPTNFO+18*, CLZPTNFO+21*, CLZPTNFO+22*
PTNFO("pharmStat" CLZPTNFO+13*, CLZPTNFO+14*
PTNFO("ysRslt" CLZPTNFO+20*
PTNFO(2 CLZPTNFO+16*
PTNFO(55 CLZPTNFO+4*, CLZPTNFO+5*, CLZPTNFO+6*, CLZPTNFO+7*, CLZPTNFO+8*, CLZPTNFO+10
R OVRDTMBR+3~, OVRDTMBR+31*, OVRDTMBR+32, DISPTM+3~, DISPTM+5*, DISPTM+7*, DISPTM+10*
RGRSLT FINDNEXT+2~, FINDNEXT+17*, FINDNEXT+18, FINDNEXT+22*, FINDNEXT+25*, FINDNEXT+29
RGZRO FINDNEXT+2~, FINDNEXT+4*, FINDNEXT+15
RSLT CLOZDISP+3~*, CLOZDISP+7*, CLOZDISP+8
RSNCODE OVRDTXT~, OVRDTXT+1, OVRDTXT+2, OVRDTXT+3, OVRDTXT+4, OVRDTXT+5, OVRDTXT+6, OVRDTXT+7, OVRDTXT+8, OVRDTXT+9
, OVRDTXT+10, OVRDTXT+11
STNUM FINDNEXT+2~, FINDNEXT+4*, FINDNEXT+6, FINDNEXT+20
U CLZPTNFO+20, CLZPTNFO+21, CLZPTNFO+22, FINDNEXT+4, LABRSLT+5, LABRSLT+6, LABRSLT+7, XTMPZRO+3
USRNUM HASKEY~, HASKEY+1*, HASKEY+2
V OVRDTMBR+3~, OVRDTMBR+16*, OVRDTMBR+17*, OVRDTMBR+18
X CLOZDISP+3~, CLZPTNFO+3~, CLZPTNFO+18*, CLZPTNFO+19, CLZPTNFO+20, CLZPTNFO+21, CLZPTNFO+22, LABRSLT+2~, LABRSLT+5*, LABRSLT+6*
, LABRSLT+7*, OVRDTMBR+3~, OVRDTMBR+12*, OVRDTMBR+13*, OVRDTMBR+14
>> XQY0 CLZPTNFO+12, CLZPTNFO+13, CLZPTNFO+14
Y FINDNEXT+2~, FINDNEXT+4*, FINDNEXT+5, FINDNEXT+6*, FINDNEXT+7, FINDNEXT+8, FINDNEXT+9, FINDNEXT+11*, FINDNEXT+12, FINDNEXT+20*
, FINDNEXT+22, FINDNEXT+24*, OVRDTMBR+3~, OVRDTMBR+18*, OVRDTMBR+19, OVRDTMBR+35, OVRDTMBR+36, OVRDTMBR+40, DISPTM+6*, DISPTM+7
, XTMPZRO+1~, XTMPZRO+2*, XTMPZRO+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All