PSARDCIT ;BIRM/JAM - Return Drug Credit Single Item ListMan driver ;06/06/08
Source file <PSARDCIT.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 |
---|---|---|
EN(PSAPHLOC,PSABATCH,PSAITEM) | ; - ListManager entry point
|
|
HDR | ; - Header
|
|
INIT | ; - Populates the Body section for ListMan
|
|
SETLINE | ; - Sets the line to be displayed in ListMan
|
|
ACTLOG | ; - Gets lines for activity log
|
|
SETTMP | ; Set ^TMP("PSARDCIT",$J, array
|
|
EDT | ; - Single Item Edit
|
|
CAN | ; - Single Item Cancel
|
|
CRE | ; - Single Item Credit Update
|
|
ITMUPD | ; - Single Item File Update
|
|
BATSTA(PSAPHLOC,PSABATCH) | ; - Returns if a batch is editable
; Input: PSAPHLOC - Pharmacy location ; PSABATCH - Batch IEN from ^PSD(58.35, ; Output: 1^Batch Status ; 0^Error message |
|
LK(NODE) | ;- Locks node
|
|
UNLK(NODE) | ;Unlocks node
|
|
EXIT | ;
|
|
HELP | ;
|
Name | Field # of Occurrence |
---|---|
UPDATE^DIE | ITMUPD+9 |
^DIK | CAN+21 |
$$IENS^DILF | ITMUPD+3 |
$$EXTERNAL^DILFD | CRE+15, CRE+23, CRE+35, CRE+38 |
$$GET1^DIQ | SETLINE+10, CAN+5, CAN+13, CAN+14, CAN+15, CRE+11, CRE+21, CRE+42, CRE+44, BATSTA+6 |
GETS^DIQ | SETLINE+4, ACTLOG+4 |
^DIR | CAN+11, CRE+13, CRE+24, CRE+30 |
ITEM^PSARDCU1 | EDT+8 |
LMHDR^PSARDCUT | HDR+1 |
LOGACT^PSARDCUT | CRE+36, CRE+39, CRE+47 |
UPDINV^PSARDCUT | CAN+17 |
EN^VALM | EN+2 |
FULL^VALM1 | EN+3, EDT+2, CAN+2, CRE+3 |
CNTRL^VALM10 | SETLINE+16, SETLINE+18 |
$$FMTE^XLFDT | SETLINE+7, SETLINE+9, ACTLOG+6 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PSD(58.35 - [#58.35] | ACTLOG+3 |
^TMP("PSARDCIT" | INIT+1!, SETLINE+2!, SETTMP+1*, EXIT+1! |
Name | Line Occurrences |
---|---|
$$BATSTA | EDT+3, CAN+3, CRE+4 |
$$LK | EDT+6, CAN+8, CRE+8 |
ACTLOG | SETLINE+19 |
EXIT | EN+4 |
HDR | CRE+48 |
ITMUPD | CRE+48 |
SETLINE | INIT+3, EDT+8, CRE+48 |
SETTMP | SETLINE+6, SETLINE+7, SETLINE+8, SETLINE+9, SETLINE+10, SETLINE+11, SETLINE+12, SETLINE+13, SETLINE+14, SETLINE+15 , SETLINE+16, SETLINE+17, ACTLOG+6, ACTLOG+9, ACTLOG+10 |
UNLK | EDT+8, CAN+12, CAN+21, CRE+14, CRE+27, CRE+31, CRE+48 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTAMT | CRE+2~, CRE+44*, CRE+45 |
BATST | EDT+1~, EDT+3*, EDT+4, CAN+1~, CAN+3*, CAN+4, CRE+1~, CRE+4*, CRE+5, BATSTA+5~ , BATSTA+6*, BATSTA+7, BATSTA+8, BATSTA+9 |
COMM | ACTLOG+1~, ACTLOG+7*, ACTLOG+8, ACTLOG+9, ACTLOG+10 |
CREAMT | CRE+1~, CRE+15*, CRE+21*, CRE+22, CRE+33, CRE+38 |
CRESTA | CRE+2~, CRE+15* |
DA | CAN+1~, CAN+19*, CRE+1~, CRE+16!, CRE+28!, ITMUPD+2*, ITMUPD+3 |
DA(1 | CAN+19*, CAN+20, ITMUPD+2* |
DA(2 | CAN+19*, CAN+20, ITMUPD+2* |
DATA | SETLINE+1~, SETLINE+5!* |
DATA( | SETLINE+6 |
DATA(1 | SETLINE+9 |
DATA(10 | SETLINE+6 |
DATA(11 | SETLINE+10 |
DATA(12 | SETLINE+11 |
DATA(14 | SETLINE+13 |
DATA(15 | SETLINE+12 |
DATA(16 | SETLINE+8 |
DATA(17 | SETLINE+14 |
DATA(2 | SETLINE+7 |
DATA(3 | SETLINE+8 |
DATA(4 | SETLINE+9 |
DATA(5 | SETLINE+10 |
DATA(6 | SETLINE+13 |
DATA(7 | SETLINE+12 |
DATA(8 | SETLINE+11 |
DATA(9 | SETLINE+7 |
DIK | CAN+1~, CAN+20* |
>> DILOCKTM | LK+1 |
DIR | CAN+1~, CRE+1~, CRE+16!, CRE+28! |
DIR("?" | CRE+20* |
DIR("A" | CAN+10*, CRE+10*, CRE+23*, CRE+29* |
DIR("B" | CAN+10*, CRE+12*, CRE+22*, CRE+29* |
DIR(0 | CAN+10*, CRE+10*, CRE+20*, CRE+29* |
DIRUT | CAN+11, CRE+1~, CRE+13, CRE+26, CRE+30 |
DRUG | CAN+1~, CAN+13*, CAN+17 |
DUNTS | CAN+1~, CAN+15*, CAN+17 |
ESTAMT | CRE+2~, CRE+42*, CRE+43 |
FLDD | CRE+2~, CRE+19*, CRE+21, ITMUPD+5 |
FLDS | SETLINE+1~, ACTLOG+1~ |
FLDS( | SETLINE+5, ACTLOG+5 |
I | ACTLOG+1~, ACTLOG+8*, ACTLOG+9 |
>> IOINORM | SETLINE+16, SETLINE+18 |
>> IOUON | SETLINE+16, SETLINE+18 |
LINE | SETLINE+1~, SETLINE+6*, SETLINE+7*, SETLINE+8*, SETLINE+9*, SETLINE+10*, SETLINE+11*, SETLINE+12*, SETLINE+13*, SETLINE+14* , SETLINE+15*, SETLINE+16*, SETLINE+17*, ACTLOG+1~, ACTLOG+6*, ACTLOG+9*, ACTLOG+10*, SETTMP+1 |
LOG | ACTLOG+1~, ACTLOG+2*, ACTLOG+3*, ACTLOG+4, ACTLOG+5 |
MSG | BATSTA+5~, BATSTA+7, BATSTA+8* |
NODE | LK~, LK+1, UNLK~, UNLK+1 |
OISTA | CRE+1~, CRE+11*, CRE+12, CRE+33, CRE+34, CRE+35 |
PSABATCH | EN~, HDR+1, SETLINE+4, SETLINE+5, ACTLOG+3, ACTLOG+4, ACTLOG+5, EDT+3, EDT+5, EDT+8 , CAN+3, CAN+5, CAN+7, CAN+13, CAN+14, CAN+15, CAN+17, CAN+19, CRE+4, CRE+7 , CRE+11, CRE+21, CRE+36, CRE+39, CRE+42, CRE+44, CRE+47, ITMUPD+2, BATSTA~, BATSTA+6 |
PSACOM | CRE+2~, CRE+35*, CRE+36, CRE+38*, CRE+39, CRE+41*, CRE+43*, CRE+45*, CRE+46*, CRE+47 |
PSAIAMT | CRE+1~, CRE+15*, CRE+25*, CRE+33, CRE+38, ITMUPD+5 |
PSAIENS | ITMUPD+1~, ITMUPD+3*, ITMUPD+4, ITMUPD+5, ITMUPD+7, ITMUPD+8 |
PSAISTA | CRE+1~, CRE+15*, CRE+18, CRE+19, CRE+23, CRE+33, CRE+34, CRE+35, CRE+37, CRE+38 , CRE+40, ITMUPD+4, ITMUPD+5, ITMUPD+6 |
PSAITEM | EN~, SETLINE+4, SETLINE+5, ACTLOG+3, ACTLOG+4, ACTLOG+5, EDT+5, EDT+8, CAN+7, CAN+13 , CAN+14, CAN+15, CAN+17, CAN+19, CRE+7, CRE+11, CRE+21, CRE+36, CRE+39, CRE+42 , CRE+44, CRE+47, ITMUPD+2 |
PSALCK | EDT+1~, EDT+6*, CAN+1~, CAN+8*, CRE+1~, CRE+8* |
PSALOG | ACTLOG+1~, ACTLOG+5* |
PSALOG( | ACTLOG+6 |
PSALOG(1 | ACTLOG+6 |
PSALOG(2 | ACTLOG+6 |
PSALOG(3 | ACTLOG+7 |
PSANODE | EDT+1~, EDT+5*, EDT+6, EDT+8, CAN+1~, CAN+7*, CAN+8, CAN+12, CAN+21, CRE+1~ , CRE+7*, CRE+8, CRE+14, CRE+27, CRE+31, CRE+48 |
PSAPHLOC | EN~, HDR+1, SETLINE+4, SETLINE+5, ACTLOG+3, ACTLOG+4, ACTLOG+5, EDT+3, EDT+5, EDT+8 , CAN+3, CAN+5, CAN+7, CAN+13, CAN+14, CAN+15, CAN+17, CAN+19, CRE+4, CRE+7 , CRE+11, CRE+21, CRE+36, CRE+39, CRE+42, CRE+44, CRE+47, ITMUPD+2, BATSTA~, BATSTA+6 |
PSARY | ITMUPD+1~ |
PSARY( | ITMUPD+4*, ITMUPD+5*, ITMUPD+7*, ITMUPD+8* |
SEQ | SETLINE+1~, SETLINE+3*, SETLINE+16, SETLINE+18, SETLINE+20, SETTMP+1* |
UPINV | CAN+1~, CAN+14*, CAN+17 |
>> VALMBCK | EDT+4*, EDT+7*, EDT+9*, CAN+4*, CAN+6*, CAN+9*, CAN+12*, CAN+22*, CRE+5*, CRE+9* , CRE+14*, CRE+27*, CRE+31*, CRE+33*, CRE+49* |
>> VALMCNT | INIT+2*, SETLINE+20* |
>> VALMSG | INIT+4*, EDT+4*, EDT+7*, CAN+4*, CAN+6*, CAN+9*, CAN+12*, CAN+22*, CRE+6*, CRE+9* , CRE+14*, CRE+27*, CRE+31* |
X | CAN+1~, CRE+1~, CRE+16!, CRE+28! |
Y | CAN+1~, CAN+11, CRE+1~, CRE+15, CRE+16!, CRE+25, CRE+28!, CRE+30 |