Select the objects that you wish to see in the downloaded PDF
InfoPSOCLUTL ;BHAM ISC/DMA - utilities for clozapine reporting system ;4 Oct 2019 12:29:40
Source file <PSOCLUTL.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Outpatient Pharmacy | 9 | PSOCLO1 PSOCLOU PSODIR PSOL EDIT PSOL REGISTER PATIENT PSOORFI2 PSOORNE2 PSORENW4 PSOSIGMX |
Inpatient Medications | 1 | PSJCLOZ |
Mental Health | 1 | YSCLTST2 |
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) |
|
|
QTYCHK(PSORXARY,NUMDAYS) | ; check/adjust quantity, PSORXARY passed by ref., NUMDAYS is # of days
|
Name | Field # of Occurrence |
---|---|
^DIC | REG+3, PHY+3, AGAIN+1 |
$$FIND1^DIC | NUMBER+1, NUMBER+4, NUMBER+6, AGAIN+10, AGAIN+12, CLOZPAT+5, PROVCHK+7, GETREGYS+4 |
FIND^DIC | REG+7, AGAIN+6 |
^DIE | SAVE+3 |
$$GET1^DIQ | REG+4, REG+5, REG+21, NUMBER+1, NUMBER+5, SAVE+1, AGAIN+1, AGAIN+2, AGAIN+11, AGAIN+13 , AGAIN+14, PHY1+7, CLOZPAT+1, CLOZPAT+3, CLOZPAT+6, GETREGYS+3 |
^DIR | REG+18, NUMBER+3, PHY+19, AGAIN+9, PHY1+1, OVER+1 |
EN^PSOHLUP | REG+5 |
$$QTSCH^PSOSIG | QTYCHK+5 |
DEM^VADPT | PHY+9 |
$$FMADD^XLFDT | CRXTMP+1, CRXTMPI+1 |
$$DEA^XUSER | PHY1+5, PROVCHK+5 |
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 |
|
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine 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 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | MSG6+5 |
^PS(55 - [#55] | SAVE+2, SAVE+3 |
^TMP("PSO" | END+2! |
^TMP($J | END+2! |
^XTMP("PSJ CLOZ" | SAVE+4* |
^XTMP("PSJ4D-" | SAVE+6!, CRXTMPI+1*, CRXTMPI+2* |
^XTMP("PSO4D-" | SAVE+6!, CRXTMP+1*, CRXTMP+2* |
Name | Line Occurrences |
---|---|
AGAIN | AGAIN+2, AGAIN+7 |
END | REG+3, NUMBER+3, NUMBER+5, PHY+3, PHY+19, SAVE+2, AGAIN+1, AGAIN+9, AGAIN+11, AGAIN+12 , PHY1+1, PHY1+7 |
END1 | PHY+3, PHY+19, SAVE+2 |
NUMBER | NUMBER+6 |
OVER | NUMBER+8, AGAIN+7, AGAIN+12 |
PHY | PHY+6 |
PHY1 | PHY1+5 |
PROVCHK | PHY+6 |
REG | REG+21, NUMBER+3, NUMBER+5, PHY+3 |
SAVE | PHY1+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | NUMBER+6, END+1!, AGAIN+7, AGAIN+12, OVER+1!, OVER+2* |
%Y | END+1! |
ANQX | REG+5~, PHY+5*, PHY+6, PHY+19*, SAVE+2*, END1+1, PROVCHK+1*, PROVCHK+5*, PROVCHK+7*, MSG1+9* , MSG2+8*, MSG4+7*, MSG6+5* |
C | END+1! |
CLOZNUM | CLOZPAT+3~*, CLOZPAT+4, CLOZPAT+5 |
CLOZPAT | CLOZPAT+1!, CLOZPAT+4*, CLOZPAT+6*, CLOZPAT+7* |
CLOZST | CLOZPAT+1!*, CLOZPAT+2 |
CLOZUID | CLOZPAT+3~, CLOZPAT+5*, CLOZPAT+6 |
D | END+1! |
D0 | END+1! |
DA | SAVE+1*, SAVE+2, SAVE+3, END+1!, AGAIN+1*, AGAIN+2 |
DFN | PHY+9~*, CLOZPAT+1, CLOZPAT+3, CRXTMP~, CRXTMP+1, CRXTMP+2, CRXTMPI~, CRXTMPI+1, CRXTMPI+2 |
DI | END+1! |
DIC | REG+1~, REG+3*!, PHY+1~, PHY+2*, PHY+3!, END+1!, AGAIN+1*! |
DIC("A" | REG+3*, PHY+2*, AGAIN+1* |
DIC("S" | PHY+2* |
DIC(0 | REG+3*, PHY+2*, AGAIN+1* |
DIE | SAVE+1*, END+1! |
>> DILOCKTM | SAVE+2 |
DIR | REG+1~, REG+11~, NUMBER+3!, PHY+1~, PHY+19!, OVER+1!, OVER+3! |
DIR("A" | REG+18*, PHY+13*, PHY+14*, PHY+16*, PHY+17*, PHY+18*, OVER+1* |
DIR("B" | NUMBER+2*, PHY+19*, OVER+1* |
DIR(0 | REG+18*, NUMBER+1*, PHY+19*, AGAIN+9*, PHY1+1*, OVER+1* |
DIRUT | NUMBER+3, AGAIN+9, PHY1+1, OVER+3! |
DLAYGO | REG+3*! |
DQ | END+1! |
DR | SAVE+1*, END+1! |
DT | SAVE+1, CRXTMP+1, CRXTMPI+1 |
DUOUT | PHY+19, OVER+3! |
J | QTYCHK+2~, QTYCHK+3*, QTYCHK+4, QTYCHK+7 |
>> JADOVER | NUMBER+6, AGAIN+7*, AGAIN+12 |
>> LSTFOUR | PHY+11*, PHY+13, PHY+18 |
NMIN | QTYCHK+2~, QTYCHK+5*, QTYCHK+6 |
NUMDAYS | QTYCHK~, QTYCHK+1, QTYCHK+7 |
PROV | PROVCHK~, PROVCHK+1, PROVCHK+5, PROVCHK+7 |
>> PSCLOZ | PHY+3, PHY+4, PHY+6, PHY+12, PHY+15, END+2 |
PSJQUIT | PROVCHK+1~*, PROVCHK+5*, PROVCHK+7* |
PSO | END+1! |
PSO1 | REG+4*, REG+5, REG+7, REG+21, NUMBER+1, NUMBER+5, PHY+9, SAVE+1, SAVE+6, END+1! , AGAIN+1*, AGAIN+6, AGAIN+11, AGAIN+13, AGAIN+14, PHY1+7 |
PSO2 | NUMBER+3*, NUMBER+4, NUMBER+5, NUMBER+6, NUMBER+7, PHY+13, PHY+18, SAVE+1, SAVE+4, SAVE+6 , END+1!, AGAIN+9*, AGAIN+10, AGAIN+11, AGAIN+12, PHY1+7 |
PSO3 | NUMBER1+1*, PHY+14, SAVE+1, END+1!, AGAIN+14* |
PSO4 | REG+21*, PHY+7*, SAVE+1, END+1!, PHY1+1*, PHY1+5, PHY1+7 |
PSOC | END+1! |
PSOCLODT | GETREGYS+2~ |
PSOCLZN | GETREGYS+2~, GETREGYS+3*, GETREGYS+4 |
PSOCZPTS | REG+1~, AGAIN+5~ |
PSOCZPTS("DILIST" | REG+10, AGAIN+7 |
PSODFN | GETREGYS~, GETREGYS+3 |
PSOERR | REG+1~, AGAIN+5~ |
PSOEX | NUMBER+4~*, NUMBER+5, AGAIN+10~*, AGAIN+11 |
PSOLN | END+1! |
PSONAME | REG+4*, REG+12, REG+21, PHY+13, PHY+18, SAVE+2, END+1!, AGAIN+1*, AGAIN+2, AGAIN+7 |
PSONO | END+1! |
PSORXARY | QTYCHK~ |
PSORXARY("DOS | E ORDERED" , QTYCHK+7 |
PSORXARY("QTY" | QTYCHK+9* |
PSORXARY("RX0" | QTYCHK+9* |
PSORXARY("SCHEDULE" | QTYCHK+3, QTYCHK+4 |
PSOT | END+1! |
PSOYS | MSG6+5, MSG6+6, CRXTMP~, CRXTMP+2, CRXTMPI~, CRXTMPI+2 |
PSOYSIEN | GETREGYS+2~, GETREGYS+4*, GETREGYS+5 |
QTY | QTYCHK+2~, QTYCHK+3*, QTYCHK+7*, QTYCHK+9 |
R | END+1! |
SCHED | QTYCHK+2~, QTYCHK+4*, QTYCHK+5 |
>> SSN | PHY+10*, PHY+11 |
SSNVAERR | END+1! |
TMSDLY | QTYCHK+2~, QTYCHK+6*, QTYCHK+7 |
U | SAVE+4, CRXTMP+1, CRXTMPI+1, QTYCHK+9 |
VADM | PHY+9~ |
VADM(2 | PHY+10 |
X | REG+11~ |
XMDUZ | END+1! |
XMSUB | END+1! |
XMTEXT | END+1! |
Y | REG+3, REG+4, REG+11~, NUMBER+1*, NUMBER+2, NUMBER+3, PHY+3, PHY+6, PHY+7, PHY+19 , END+1!, AGAIN+1, AGAIN+9, PHY1+1, OVER+2, MSG6+5* |