ALPBIND ;OIFO-DALLAS/SED/KC/MW BCMA-BCBU INPT TO HL7 INIT ;07/06/16 7:06am
Source file <ALPBIND.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Barcode Medication Administration | 3 | ALPBIN PSB BCBU INIT SINGLE PT PSB BCBU INIT WRKSTN DFT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OPT | ;Entry point for the option
|
|
| DFT | ||
| ALLWKS | ;If no then set allow the user to select the workstation
|
|
| WRKSTN | ;Now select which workstations to be initialized
|
|
| LP | ;Multiple entries
|
|
| QUE | ;Que the job
|
|
| EN | ;Loop through the inpatient list.
|
|
| EXIT | ;
|
|
| MLOG | ;Need to loop though the Med log file to get all med logs
|
|
| MESS | ;BUILD AND SEND MESSAGE
|
|
| SNDPT | ;Send a Single Patient
|
|
| PAT(ALPDIV2) | ;Process and send patients ;add DIV par specl for DIV init *87
|
|
| UDCLIN(ALPNOW,ALPDIV2) | ; Unit Dose Clinic Orders ;*87
|
|
| IVCLIN(ALPNOW,ALPDIV2) | ; IV Clinic Orders
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | MLOG+5, PAT+6 |
| ^%ZTLOAD | QUE+6 |
| $$S^%ZTLOAD | EN+16, PAT+18, UDCLIN+14, IVCLIN+14 |
| $$INI^ALPBINP | MESS+11 |
| $$MEDL^ALPBINP | MLOG+12 |
| GET^ALPBPARM | DFT+1, EN+14, UDCLIN+11, IVCLIN+11 |
| ^DIR | ALLWKS+5, LP+5, SNDPT+3 |
| EN^PSJBCBU | MESS+2 |
| EN2^PSJBCBU | PAT+8 |
| $$FMTE^XLFDT | EN+2, EN+25 |
| $$NOW^XLFDT | EN+2, EN+20, EN+25 |
| $$GET^XPAR | MLOG+3, PAT+4 |
| SETUP^XQALERT | EN+29 |
| 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) |
|---|---|
| ^DIC(42 - [#42] | EN+8, EN+10 |
| ^DPT("CN" | EN+6, EN+18 |
| ^PS(55 - [#55] | UDCLIN+2, UDCLIN+16, IVCLIN+2, IVCLIN+16 |
| ^PSB(53.79 - [#53.79] | MLOG+2, MLOG+8, MLOG+10, MLOG+11 |
| ^SC - [#44] | UDCLIN+6, IVCLIN+6 |
| ^TMP("PSJ" | EXIT+5! |
| ^TMP("PSJBU" | EXIT+5!, PAT+3!, PAT+9, PAT+11, PAT+12, PAT+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALDFN | EN+17*, EN+18*, EXIT+2!, MLOG+2, MLOG+8, MLOG+10, MESS+2, SNDPT+6*, PAT+8, UDCLIN+15* , UDCLIN+16*, UDCLIN+17*, UDCLIN+18*, IVCLIN+15*, IVCLIN+16*, IVCLIN+17*, IVCLIN+18* |
| ALP | WRKSTN+3*, WRKSTN+4, WRKSTN+10*, WRKSTN+11*, WRKSTN+12, LP+10*, LP+11, LP+12, EXIT+4! |
| ALPALL | EXIT+3! |
| ALPB | LP+9*, LP+10*, LP+11, EXIT+2!, MESS+1!, MESS+2 |
| ALPB( | MESS+4, MESS+5, MESS+6, MESS+7, MESS+8, MESS+10 |
| ALPBANS | WRKSTN+1!, WRKSTN+8, WRKSTN+9, WRKSTN+15! |
| ALPBANS( | WRKSTN+11, LP+7*, LP+10 |
| ALPBI | EXIT+2!, MESS+3*, MESS+4*, MESS+5, MESS+6, MESS+7, MESS+8 |
| ALPBJ | EXIT+2!, PAT+10*, PAT+11*, PAT+12, PAT+13 |
| ALPCN | EN+5*, EN+6*, EN+8, EN+18, EXIT+2!, UDCLIN+1~, UDCLIN+2*, UDCLIN+4, UDCLIN+6, UDCLIN+16 , IVCLIN+1~, IVCLIN+2*, IVCLIN+4, IVCLIN+6, IVCLIN+16 |
| ALPCNI | EN+8*, EN+9, EN+10, EXIT+4! |
| ALPCNT | WRKSTN+10*, WRKSTN+12, WRKSTN+13, WRKSTN+14*, EXIT+1!, EXIT+4! |
| ALPCSTPD | UDCLIN+1~*, UDCLIN+2*, UDCLIN+16, IVCLIN+1~*, IVCLIN+2*, IVCLIN+16 |
| ALPDFNAR | UDCLIN+1~, IVCLIN+1~ |
| ALPDFNAR( | UDCLIN+16*, UDCLIN+18, IVCLIN+16*, IVCLIN+18 |
| ALPDIV | DFT!, EN+10*, EN+14, EXIT+3!, PAT+2~, UDCLIN+6*, UDCLIN+8, UDCLIN+11, IVCLIN+6*, IVCLIN+8 , IVCLIN+11 |
| ALPDIV2 | PAT~, UDCLIN~, UDCLIN+8, UDCLIN+18, IVCLIN~, IVCLIN+8, IVCLIN+18 |
| ALPDTE | EN+25*, EN+27, EXIT+1! |
| ALPDTS | EN+2*, EN+27, EXIT+1! |
| ALPDVN | EXIT+4! |
| ALPHLINI | DFT!, QUE+5, EXIT+3! |
| ALPHLINI( | WRKSTN+13* |
| ALPHLL | DFT!, DFT+1, DFT+2, WRKSTN+5!, WRKSTN+8, QUE+4, EN+1, EXIT+3! |
| ALPHLL("LINKS" | WRKSTN+3, WRKSTN+4, WRKSTN+12*, WRKSTN+13 |
| ALPMDT | EXIT+2!, MLOG+7*, MLOG+8*, MLOG+10 |
| ALPML | EXIT+2!, MLOG+9*, MLOG+10*, MLOG+11, MLOG+12 |
| ALPNOW | UDCLIN~, UDCLIN+1, IVCLIN~, IVCLIN+1 |
| ALPNOWCL | EN+20~*, EN+21, EN+22 |
| ALPOK | EN+4*, EXIT+4! |
| >> ALPORD | MESS+10* |
| ALPORDR | EXIT+2!, MLOG+2, MLOG+8, MLOG+10, MESS+2, MESS+10, PAT+13*, PAT+14, PAT+16 |
| >> ALPRSLT | MLOG+12* |
| ALPSCR | EN+3! |
| ALPSCRN | WRKSTN+1!, WRKSTN+15! |
| ALPSCRN( | WRKSTN+4*, WRKSTN+12 |
| ALPSEND | UDCLIN+1~, UDCLIN+5*, UDCLIN+8*, UDCLIN+13, IVCLIN+1~, IVCLIN+5*, IVCLIN+8*, IVCLIN+13 |
| ALPSLT | EXIT+4! |
| ALPSTOP | EN+4*, EN+6, EN+16*, EN+18, EXIT+4!, PAT+18*, UDCLIN+14*, UDCLIN+18, IVCLIN+14*, IVCLIN+18 |
| ALPTEST | EN+13!, EN+14, EN+15, UDCLIN+10!, UDCLIN+11, UDCLIN+13, IVCLIN+10!, IVCLIN+11, IVCLIN+13 |
| ALPTST | EXIT+4! |
| ALPWKS | ALLWKS+7*, ALLWKS+8, EXIT+4! |
| DIR | DFT!, ALLWKS+1!, LP+1!, EXIT+3!, SNDPT+1! |
| DIR("?" | LP+3* |
| DIR("A" | ALLWKS+3*, ALLWKS+4*, LP+2*, SNDPT+2* |
| DIR("B" | ALLWKS+2* |
| DIR("S" | LP+4* |
| DIR(0 | ALLWKS+2*, LP+2*, SNDPT+2* |
| DIROUT | DFT!, ALLWKS+1!, LP+1!, EXIT+3!, SNDPT+1! |
| DIRUT | DFT!, ALLWKS+1!, ALLWKS+6, WRKSTN+6, LP+1!, LP+6, EXIT+3!, SNDPT+1!, SNDPT+4 |
| DTOUT | DFT!, ALLWKS+1!, LP+1!, EXIT+3!, SNDPT+1! |
| DUOUT | DFT!, ALLWKS+1!, LP+1!, EXIT+3!, SNDPT+1! |
| DUZ | EN+26 |
| MSCTR | EXIT+2!, MESS+10* |
| MSH | EXIT+2!, MESS+5*, MESS+9, MESS+10 |
| ORC | EXIT+2!, MESS+8* |
| PID | EXIT+3!, EXIT+5!, MESS+6* |
| PV1 | EXIT+3!, EXIT+5!, MESS+7* |
| U | WRKSTN+4, LP+7, EN+10, MLOG+11, PAT+13 |
| >> X | MLOG+3*, MLOG+4*, MESS+11*, PAT+4*, PAT+5* |
| XQA | EN+24! |
| XQA( | EN+26* |
| XQAMSG | EN+24!, EN+27* |
| Y | ALLWKS+7, LP+7, EXIT+3!, MLOG+6, MLOG+7, SNDPT+5, SNDPT+6, PAT+7, PAT+8 |
| ZTDESC | QUE+2*, QUE+8! |
| ZTIO | QUE+3*, QUE+8! |
| ZTRTN | QUE+1*, QUE+8! |
| ZTSAVE | EXIT+4! |
| ZTSAVE("ALPHLINI(" | QUE+5* |
| ZTSAVE("ALPHLL(" | QUE+4* |
| ZTSAVE("ALPWKS" | QUE+3* |
| ZTSK | QUE+7, QUE+8! |
