©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ALPBIN ;OIFO-DALLAS/SED/KC/MW BCMA-BCBU INPT TO HL7 INIT ;5/2/2002
Source file <ALPBIN.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | (,$$S)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT SETUP^XQALERT |
| Barcode Medication Administration | 2 | PAT^ALPBIND GET^ALPBPARM |
| VA Fileman | 1 | ^DIR |
| Package | Total | Caller Graph |
|---|---|---|
| Barcode Medication Administration | 1 | PSB BCBU INIT WRKSTN DIV |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OPT | ;Entry point for the option
|
|
| ALL | ;Ask if the user want to send to all divisions
|
|
| EN | ;Loop through the inpatient list.
|
|
| ALLWKS | ;If no then set allow the user to select the workstation
|
|
| EXIT | ;
|
|
| WRKSTN | ;Now select which workstations for the division to be initialized
|
|
| LP | ;Multiple entries
|
|
| QUE | ;Que the job
|
|
| DIV |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(42 - [#42] | EN+7, EN+9 |
| ^DPT("CN" | EN+5, EN+14 |
| Name | Line Occurrences |
|---|---|
| ALLWKS | WRKSTN+8 |
| DIV | ALL+9, DIV+8, ALLWKS+6 |
| EXIT | ALL+6, EN+23 |
| LP | WRKSTN+6 |
| QUE | ALL+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALDFN | EXIT+1!, EN+13*, EN+14* |
| ALP | EXIT+3!, WRKSTN+3*, WRKSTN+4, WRKSTN+10*, WRKSTN+11*, WRKSTN+12, LP+10*, LP+11, LP+12 |
| ALPALL | ALL+1!, ALL+7*, ALL+9, EXIT+2! |
| ALPB | EXIT+1!, LP+9*, LP+10*, LP+11 |
| ALPBANS | WRKSTN+1!, WRKSTN+8, WRKSTN+9, WRKSTN+14! |
| ALPBANS( | WRKSTN+11, LP+7*, LP+10 |
| ALPBDVN | ALL+1! |
| ALPBI | EXIT+1! |
| ALPBJ | EXIT+1! |
| ALPCN | EXIT+1!, EN+4*, EN+5*, EN+7, EN+14 |
| ALPCNI | EXIT+3!, EN+7*, EN+8, EN+9 |
| ALPCNT | EXIT+3!, WRKSTN+10*, WRKSTN+12, WRKSTN+13*, EN+22! |
| ALPDIV | ALL+1!, EXIT+2!, DIV!, DIV+5*, DIV+6*, DIV+7, EN+2*, EN+10 |
| ALPDTE | EN+17*, EN+19, EN+22! |
| ALPDTS | EN+1*, EN+19, EN+22! |
| ALPDVN | EXIT+3!, DIV+6*, DIV+8, ALLWKS+4 |
| ALPHLL | EXIT+2!, DIV!, DIV+7, DIV+8, WRKSTN+5!, WRKSTN+8, QUE+5 |
| ALPHLL("LINKS" | WRKSTN+3, WRKSTN+4, WRKSTN+12* |
| ALPMDT | EXIT+1! |
| ALPML | EXIT+1! |
| ALPOK | EXIT+3!, EN+3* |
| ALPORDR | EXIT+1! |
| ALPSCRN | WRKSTN+1!, WRKSTN+14! |
| ALPSCRN( | WRKSTN+4*, WRKSTN+12 |
| ALPSTOP | EXIT+3!, EN+3*, EN+5, EN+11*, EN+12, EN+14 |
| ALPTST | EXIT+3!, EN+9*, EN+10 |
| ALPWKS | ALL+1!, ALLWKS+7*, ALLWKS+8 |
| DIR | ALL+1!, EXIT+2!, DIV!, ALLWKS+1!, LP+1! |
| DIR("?" | LP+3* |
| DIR("A" | ALL+3*, ALL+4*, DIV+2*, DIV+3*, ALLWKS+3*, ALLWKS+4*, LP+2* |
| DIR("B" | ALL+2*, ALLWKS+2* |
| DIR("S" | LP+4* |
| DIR(0 | ALL+2*, DIV+1*, ALLWKS+2*, LP+2* |
| DIROUT | ALL+1!, EXIT+2!, DIV!, ALLWKS+1!, LP+1! |
| DIRUT | ALL+1!, ALL+6, EXIT+2!, DIV!, DIV+5, ALLWKS+1!, ALLWKS+6, WRKSTN+6, LP+1!, LP+6 |
| DTOUT | ALL+1!, EXIT+2!, DIV!, ALLWKS+1!, LP+1! |
| DUOUT | ALL+1!, EXIT+2!, DIV!, ALLWKS+1!, LP+1! |
| DUZ | EN+18 |
| MSCTR | EXIT+1! |
| MSH | EXIT+1! |
| ORC | EXIT+1! |
| PID | EXIT+2! |
| PV1 | EXIT+2! |
| U | DIV+6, WRKSTN+4, LP+7, EN+9 |
| XQA | EN+16! |
| XQA( | EN+18* |
| XQAMSG | EN+16!, EN+19* |
| Y | ALL+7, EXIT+2!, DIV+5, DIV+6, ALLWKS+7, LP+7 |
| ZTDESC | QUE+3*, QUE+8! |
| ZTIO | QUE+4*, QUE+8! |
| ZTRTN | QUE+2*, QUE+8! |
| ZTSAVE | EXIT+3! |
| ZTSAVE("ALPDIV" | QUE+4* |
| ZTSAVE("ALPHLL(" | QUE+5* |
| ZTSAVE("ALPWKS" | QUE+4* |
| ZTSK | QUE+7, QUE+8! |