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 |