PSDPAT2 ;B'ham ISC/JPW - Print Patient/Drug Report (summary) ; 1 Feb 94
Source file <PSDPAT2.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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
;prints data for dispensing
|
||
DONE | ||
HDR | ;lists header information
|
|
SET | ;sets data
|
|
SET1 | ;sets ^TMP("PSDPAT"
|
|
SET2 | ;SETS ^TMP("PSDPAT"
|
|
CHKNOD7 | ; COLLECTS TRANSFER DATA
|
|
NODE7 | ; SETS TRANSFERS BETWEEN NAOU'S
|
|
CHKRET | ; SETS RETURNED ITEM INFORMATION
|
|
CHKDEST | ; SETS DESTROYED ITEM INFORMATION
|
|
PSDPAT | ;sets ^TMP("PSDPAT"
|
|
PSDPATL | ;sets ^TMP("PSDPATL"
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | PSDPAT2+2 |
^PSD(58.8 - [#58.8] | CHKNOD7+3, NODE7+4 |
^PSD(58.81 - [#58.81] | SET+2, SET+3, SET+5, SET+8, SET1+1, SET1+2, SET2+2, SET2+3, SET2+5, CHKNOD7+1 , CHKNOD7+2, NODE7+4, NODE7+7, NODE7+8, CHKRET+1, CHKRET+2, CHKRET+3, CHKDEST+2, CHKDEST+3 |
^PSDRUG - [#50] | SET+16, SET2+2 |
^TMP("PSDPAT" | SET2+4, PSDPAT+2* |
^TMP("PSDPAT1" | SET1+22, SET2+14, NODE7+13, NODE7+22 |
^TMP("PSDPATL" | PSDPAT2+4, PRINT+2, PRINT+3, PSDPATL+2*, PSDPATL+3*, PSDPATL+4* |
^VA(200 - [#200] | SET+14, SET+15, CHKNOD7+5, CHKNOD7+6, NODE7+7, CHKRET+2, CHKRET+3, CHKDEST+2, CHKDEST+3 |
Name | Line Occurrences |
---|---|
CHKDEST | SET1+3, NODE7+2 |
CHKNOD7 | SET1+4, SET2+7, NODE7+16 |
CHKRET | SET1+2, NODE7+1 |
HDR | PSDPAT2+4, PRINT+1, PRINT+2 |
NODE7 | SET2+5 |
PSDPAT | SET1+12, SET1+20, SET2+13, NODE7+12, NODE7+14, NODE7+21, CHKRET+12, CHKDEST+9 |
PSDPATL | SET1+12, SET1+15, SET1+20, SET1+21, SET1+24, SET2+13, NODE7+12, NODE7+14, NODE7+21, NODE7+23 , CHKRET+12, CHKRET+16, CHKDEST+10, CHKDEST+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | PSDPAT2+2 |
DA | HDR+1! |
>> DFN | SET+9* |
DIR | HDR+1! |
DIR(0 | HDR+1* |
IOF | DONE, HDR+2 |
IOSL | PRINT+2 |
IOST | DONE, HDR+1 |
>> LN | PSDPAT2+3*, HDR+3 |
>> LOOP | PRINT+2*, PRINT+3 |
>> NAOUN | HDR+2 |
>> PG | PSDPAT2+3*, HDR+1, HDR+2* |
PSD | SET+2*, SET1+2, SET1+6, SET1+8, SET1+14, SET1+18, SET1+20~*, SET2+3*, SET2+9, NODE7+1 , NODE7+2, NODE7+5, NODE7+11, NODE7+17, CHKRET+1~*, CHKRET+7, CHKRET+9, CHKRET+15, CHKDEST+1~*, CHKDEST+5 , CHKDEST+7, PSDPAT+2 |
PSD0 | SET+2*, SET+4, SET+11, SET+12, SET+13, SET1+10, SET1+25!, SET2+2*, SET2+3, SET2+12 , SET2+15!, CHKNOD7+4, CHKNOD7+5, NODE7+9, CHKRET+10, CHKDEST+8 |
PSD3 | SET+8*, SET1+2, SET1+3, SET1+12, SET1+25!, SET2+15!, NODE7+1, NODE7+2, CHKRET+4, CHKDEST+1 , CHKDEST+4 |
PSD7 | SET1+25!, SET2+5*, SET2+15!, CHKNOD7+1*, CHKNOD7+3, CHKNOD7+4, CHKNOD7+6, NODE7+4, NODE7+7, NODE7+8 , NODE7+15 |
>> PSD9 | SET+3*, SET+9, SET+12, SET+15 |
>> PSDA | SET+2, SET+3, SET+5, SET+8, SET+11, SET1+1, SET1+2, SET1+22, SET2+2, SET2+3 , SET2+5, SET2+6, SET2+14, NODE7+13, NODE7+15, NODE7+22, CHKRET+1, CHKRET+2, CHKRET+3, CHKDEST+2 , CHKDEST+3 |
PSDATA | SET1+9!, SET1+11*, SET1+15*, SET1+18*, SET1+21*, SET1+24*, SET1+25!, SET2+11!, SET2+12*, SET2+15! , NODE7+9!*, NODE7+10*, NODE7+19!, NODE7+20*, NODE7+23*, CHKRET+5!, CHKRET+10*, CHKRET+16*, CHKRET+17!, CHKDEST+4! , CHKDEST+8*, CHKDEST+10*, CHKDEST+11*, CHKDEST+12!, PSDPAT+1, PSDPAT+2, PSDPATL+1 |
>> PSDATE | HDR+2 |
>> PSDBAL | SET1+11, SET1+18 |
>> PSDCNT | SET1+12*, SET1+20*, SET2+12*, NODE7+10*, NODE7+21*, CHKRET+11*, CHKDEST+9*, PSDPAT+2 |
>> PSDDQT | SET+8*, CHKRET+1*, CHKRET+4*, CHKDEST+4*, CHKDEST+8, CHKDEST+10, CHKDEST+11 |
>> PSDDRE | SET+8*, CHKRET+1*, CHKRET+4*, CHKDEST+4*, CHKDEST+8 |
>> PSDDRG1 | SET+4*, SET1+11, NODE7+10, CHKRET+10, CHKDEST+8 |
>> PSDDT | SET+8*, SET1+11, CHKRET+4* |
>> PSDED | SET1+6, SET1+16, SET1+18, SET1+23, SET2+9, NODE7+5, NODE7+17, CHKRET+7, CHKRET+9, CHKDEST+5 |
PSDEND | SET1+6~*, SET1+7, SET1+13, SET1+17, SET1+21, SET1+22*, SET1+23~*, SET1+24, SET2+9*, SET2+10 , SET2+14*, NODE7+5*, NODE7+6, NODE7+13*, NODE7+14, NODE7+17*, NODE7+18, NODE7+22*, NODE7+23, CHKRET+7~* , CHKRET+8, CHKRET+14, CHKDEST+5~*, CHKDEST+6, CHKDEST+11 |
PSDNR1 | SET+12*, SET+13, SET+14*, SET1+11, SET1+18, SET1+25!, SET2+15!, NODE7+9, CHKRET+1~, CHKRET+2* , CHKRET+10, CHKDEST+1~, CHKDEST+2*, CHKDEST+8 |
PSDNR1(1 | SET+13*, SET1+11, NODE7+9 |
PSDNR2 | SET+15*, SET1+11, SET1+25!, SET2+15!, NODE7+9, CHKRET+1~, CHKRET+3*, CHKRET+10, CHKDEST+1~, CHKDEST+3* , CHKDEST+8 |
>> PSDOUT | PSDPAT2+3*, PRINT+1, PRINT+2, HDR+1* |
PSDPAT | SET+10*, SET+11*, SET2+1~, SET2+3*, SET2+12*, PSDPAT+2 |
PSDQTY | SET+2*, SET+6*, SET1+5*, SET1+11, SET1+19*, SET1+23*, SET1+25!, SET2+15!, NODE7+4, NODE7+9 , NODE7+21*, CHKRET+1~*, CHKRET+6*, CHKDEST+1~, CHKDEST+10*, CHKDEST+11*, PSDPATL+3 |
PSDREA | SET+1~, SET+2*, SET+6*, SET1+10~*, SET1+11 |
>> PSDRET | SET+8*, SET1+11, CHKRET+4*, CHKRET+10, CHKRET+13* |
>> PSDRG( | SET+7*, PSDPATL+3, PSDPATL+4 |
>> PSDRN | SET+16*, SET2+2*, SET2+4, PSDPAT+2, PSDPATL+2, PSDPATL+3, PSDPATL+4 |
>> PSDRQT | SET+8*, SET1+5*, SET1+11, NODE7+9, CHKRET+4*, CHKRET+6, CHKRET+10, CHKRET+13*, CHKRET+17*, PSDPATL+3 |
>> PSDRRE | SET+8*, SET1+11, NODE7+9, CHKRET+4*, CHKRET+10, CHKRET+13*, CHKRET+17* |
>> PSDRUG | SET+7, SET+16, SET1+22, SET2+2, SET2+14, NODE7+13, NODE7+22, PSDPATL+3, PSDPATL+4 |
>> PSDSD | SET1+2, SET1+8, SET1+14, SET1+18, SET2+9, NODE7+1, NODE7+2, NODE7+5, NODE7+11, NODE7+17 , CHKRET+15, CHKDEST+7 |
>> PSDSOQT | SET+3*, SET+7, SET1+11, NODE7+10, CHKRET+1*, PSDPATL+3 |
>> PSDSTAT | SET1+18, SET2+12, CHKNOD7+2*, NODE7+3*, NODE7+20 |
>> PSDT2N | SET1+18, SET2+12, CHKNOD7+3*, NODE7+4*, NODE7+10, NODE7+20 |
>> PSDTFDT | SET1+16, SET1+18, SET1+20, SET1+23, SET2+12, CHKNOD7+3*, NODE7+3*, NODE7+20 |
>> PSDTFN | SET2+12, CHKNOD7+4*, CHKNOD7+5*, NODE7+3*, NODE7+7*, NODE7+10, NODE7+20 |
>> PSDTFN(1 | CHKNOD7+5* |
>> PSDTPRV | SET1+18, SET2+12, CHKNOD7+3*, NODE7+3*, NODE7+20 |
PSDTR | SET+11*, SET1+25!, SET2+6*, SET2+15!, CHKNOD7+1, CHKNOD7+2, NODE7+15* |
PSDTRDT | SET2+1~, SET2+3*, SET2+4 |
PSDTRQT | SET1+16, SET1+18, SET1+19, SET1+23, SET1+25!, SET2+8, SET2+12, SET2+15!, CHKNOD7+3*, NODE7+3* , NODE7+4*, NODE7+8*, NODE7+10, NODE7+20, NODE7+21 |
>> PSDTTDT | SET1+18, SET2+12, CHKNOD7+3*, NODE7+3*, NODE7+20 |
>> PSDTTNR | SET1+18, SET2+12, CHKNOD7+6*, NODE7+3*, NODE7+20 |
>> PSDTTON | CHKNOD7+3*, NODE7+4* |
>> PSDTYP | SET+5, SET+6*, SET+7, SET+10, SET+11*, SET1+1*, SET1+4, SET1+5, SET1+11, SET1+18 , SET2+5, NODE7+9, NODE7+20, PSDPATL+3 |
>> PSDWQT | SET+3*, SET+7, SET1+11, NODE7+9, CHKRET+1*, PSDPATL+3 |
>> RPDT | PSDPAT2+2* |
>> SUM | DONE |
U | SET+2, SET+3, SET+4, SET+7, SET+8, SET+9, SET+11, SET+12, SET+13, SET+14 , SET+15, SET+16, SET1+2, SET1+3, SET1+10, SET1+11, SET1+12, SET1+18, SET2+2, SET2+3 , SET2+12, CHKNOD7+2, CHKNOD7+3, CHKNOD7+4, CHKNOD7+5, CHKNOD7+6, NODE7+1, NODE7+2, NODE7+4, NODE7+7 , NODE7+8, NODE7+9, NODE7+10, NODE7+15, NODE7+20, CHKRET+1, CHKRET+2, CHKRET+3, CHKRET+4, CHKRET+10 , CHKDEST+1, CHKDEST+2, CHKDEST+3, CHKDEST+4, CHKDEST+8, PSDPATL+3, PSDPATL+4 |
>> VADM(1 | SET+10 |
>> VAERR | SET+10 |
>> Y | PSDPAT2+2*, HDR+1 |