PSOCLUTL ;BHAM ISC/DMA - utilities for clozapine reporting system ; 12/22/92
Source file <PSOCLUTL.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 4 | YMD^%DTC ^DIC ^DIE ^DIR |
MailMan | 1 | ^XMD |
Outpatient Pharmacy | 1 | EN^PSOHLUP |
Package | Total | Caller Graph |
---|---|---|
Outpatient Pharmacy | 2 | PSOL EDIT PSOL REGISTER PATIENT |
Name | Comments | DBIA/ICR reference |
---|---|---|
AGAIN | ; re-enter patient - new number, status and provider
|
|
END | ||
PHY1 | ;
|
|
FACILITY | ;Enter facility DEA number to set up clozapine system
|
|
OVER | ;allow registration of patients and clozapine numbers not yet authorized by the NCCC.
|
|
NUMBER | ||
PHY | ||
SAVE | ||
REG | ; register patient
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: READ |
|
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 |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DILOCKTM" | SAVE |
^DD(55 | AGAIN+8 |
^DPT - [#2] | REG+1, NUMBER+1, AGAIN+1, AGAIN+4 |
^PS(55 - [#55] | REG+2, REG+4, NUMBER+1, SAVE, SAVE+1, AGAIN+2, AGAIN+4, AGAIN+7, PHY1+1 |
^TMP("PSO" | END! |
^TMP($J | END! |
^VA(200 - [#200] | PHY+1, PHY1+2, OVER+3 |
^YSCL(603.01 | REG+3, NUMBER+2, AGAIN+3, AGAIN+5 |
Name | Line Occurrences |
---|---|
AGAIN | AGAIN+2, AGAIN+3 |
END | REG+1, NUMBER, NUMBER+1, NUMBER+2, NUMBER+4, PHY, PHY+4, SAVE, AGAIN+1, AGAIN+4 , AGAIN+5, PHY1+1 |
OVER | REG+3, NUMBER+2, AGAIN+3, AGAIN+5 |
PHY | PHY+1 |
PHY1 | PHY1+2 |
REG | REG+3, REG+4, NUMBER, NUMBER+1 |
SAVE | PHY1+3 |
Name | Field # of Occurrence |
---|---|
^( | NUMBER+1, AGAIN+4 |
^("SAND" | REG+4 |
^(0 | NUMBER+1, AGAIN+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | REG+3, NUMBER+2, END!, AGAIN+3, AGAIN+5, OVER+2*, OVER+4 |
>> %H | OVER+4* |
%Y | END! |
C | END! |
D | END! |
D0 | END! |
DA | SAVE*, SAVE+1, END!, AGAIN+1*, AGAIN+2, AGAIN+7, PHY1+1 |
DFN | END! |
DI | END! |
DIC | REG+1*!, PHY*!, END!, AGAIN+1*! |
DIC("A" | REG+1*, PHY*, AGAIN+1* |
DIC("S" | PHY* |
DIC(0 | REG+1*, PHY*, AGAIN+1* |
DIE | SAVE*, END! |
DIR | NUMBER!, NUMBER+3!, PHY+2!, PHY+4!, OVER+1!, OVER+6! |
DIR("?" | NUMBER+3* |
DIR("A" | NUMBER+3*, PHY+3*, OVER+1* |
DIR("B" | PHY+4*, OVER+1* |
DIR(0 | NUMBER*, NUMBER+3*, PHY+4*, AGAIN+4*, PHY1+1*, OVER+1* |
DIRUT | NUMBER, NUMBER+4, PHY+2!, AGAIN+4, PHY1+1, OVER+6! |
DLAYGO | REG+1*! |
DQ | END! |
DR | SAVE*, END! |
DT | SAVE |
DTOUT | PHY+2! |
DUOUT | PHY+2!, OVER+6! |
DUZ | OVER+3 |
DUZ(2 | OVER+3, OVER+4 |
>> JADOVER | REG+3*, NUMBER+2, AGAIN+3*, AGAIN+5 |
PSO | END! |
PSO1 | REG+1*, REG+2, REG+3, REG+4, NUMBER+1, SAVE, END!, AGAIN+1*, AGAIN+3, AGAIN+4 |
PSO2 | NUMBER*, NUMBER+1, NUMBER+2, PHY+3, SAVE, END!, AGAIN+4*, AGAIN+5, OVER+3 |
PSO3 | NUMBER+3*, PHY+3, SAVE, END!, AGAIN+7*, AGAIN+8 |
PSO4 | REG+4*, PHY+2*, SAVE, END!, PHY1+1*, PHY1+2 |
PSOC | END! |
PSOLN | END! |
PSONAME | REG+1*, REG+3, REG+4, PHY+3, SAVE, END!, AGAIN+1*, AGAIN+2, AGAIN+3, OVER+3 |
PSONO | END! |
PSOT | END! |
R | END! |
VAERR | END! |
X | NUMBER+4*!, PHY*!, OVER+4 |
XMDUN | OVER+4*, OVER+5! |
XMDUZ | END!, OVER+4*, OVER+5! |
XMER | OVER+5! |
XMREC | OVER+5! |
XMSUB | END!, OVER+4*, OVER+5! |
XMTEXT | END!, OVER+4*, OVER+5! |
XMY | OVER+5! |
XMY("G.CLOZAP | INE ROLL-UP@FORUM.VA.GOV" , OVER+4* |
XMZ | OVER+5! |
XRG | OVER+5! |
Y | REG+1, NUMBER, NUMBER+3, PHY, PHY+1, PHY+2, PHY+4, END!, AGAIN+1, AGAIN+4 , PHY1+1, OVER+2 |
YSCLDATA | OVER+5! |
YSCLDATA(1 | OVER+3* |