Call Graph
PSJPAD70 ;BIR/JCH - HL7 UTILITY FOR PADE INBOUND POCKET ACTIVITY ;01/06/16 1:34 PM
Source file <PSJPAD70.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 |
|---|---|---|
| DWO(PSJOMS) | ; Send Dispensed Without Order (DWO) Alert
|
|
| ACTDWO(PSJOMS) | ||
| GETGRPS(PSJOMS,GROUPS) | ||
| DWOSEND(PSJOMS,GROUPS) | ;This routine will generate a mailman message when an order is dispensed without an order, and a DWO mail group is defined
|
|
| UNLOAD(PSJPSYS,PADIEN,DRWIEN,DRGIEN,DRGDEV,PCKIEN) | ; Unload (delete) a drug from pocket and drawer for device DEV and system SYS
; INPUT ; PSJPSYS - Inventory System entry from file 58.601 ; PADIEN - Dispensing Device (#1) field (subfile 58.6011) from file 58.601 ; DRWIEN - Drawer (#2) field (subfile 58.60112) from dispensing device subfile (#58.60111) in file 58.601 ; DRGIEN - Drug (Drawer) (#1) field (subfile 58.601121) from drawer subfile (#58.60112) in file 58.61 ; DRGDEV - Drug (Device) (#2) field (subfile 58.60111) from dispensing device subfile (#58.6011) in file 58.601 ; PCKIEN - Pocket/Subdrawer (#2) field (subfile 58.601122) from drawer subfile (58.60112) in file 58.601 |
|
| MANUN(PADEV) | ; Manually unload one drug at a time from PADE INVENTORY SYSTEM (#58.601) file for device PADEV pointer to DISPENSING DEVICE (#58.63) file
; Input : PADEV - Pointer to PADE DISPENSING DEVICE (#58.63) file |
|
| UNLDONE(PADEV) | ; Manually unload a drug from a pocket
; Input : PADIEN = PADE Dispensing Device IEN (required) |
|
| UNLHLP | ||
| OLDPKUP(TMPADATA,ERRMSG,PS586IEN) |
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | UNLHLP+11 |
| $$FIND1^DIC | ACTDWO+4, ACTDWO+7, GETGRPS+34, GETGRPS+37, OLDPKUP+6, OLDPKUP+13, OLDPKUP+33, OLDPKUP+38 |
| LIST^DIC | GETGRPS+42, GETGRPS+46, GETGRPS+50, GETGRPS+54, GETGRPS+58, GETGRPS+67 |
| ^DIK | UNLOAD+13, UNLOAD+15, UNLOAD+22 |
| GETS^DIQ | ACTDWO+9, GETGRPS+38 |
| ^DIR | MANUN+6, UNLDONE+45, UNLDONE+61 |
| $$FMDATE^HLFNC | DWOSEND+17 |
| GETPDMGR^PSJPAD7I | DWOSEND+32 |
| ASKRESET^PSJPADPT | UNLDONE+23 |
| DRCAB^PSJPDRIN | UNLDONE+17 |
| ALLSCHED^PSJPDRIP | UNLDONE+14 |
| DRUGSEL^PSJPDRTR | UNLDONE+19 |
| $$FMTE^XLFDT | DWOSEND+17 |
| $$FMTHL7^XLFDT | DWOSEND+9 |
| $$NOW^XLFDT | DWOSEND+9 |
| ^XMD | DWOSEND+35 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(58.6 - [#58.6] | OLDPKUP+36 |
| ^PS(58.601 - [#58.601] | GETGRPS+68, UNLOAD+11, UNLOAD+19, UNLDONE+9, UNLDONE+55, UNLDONE+56*, OLDPKUP+10, OLDPKUP+12, OLDPKUP+15, OLDPKUP+19 , OLDPKUP+40, OLDPKUP+42 |
| ^PS(58.63 - [#58.63] | UNLDONE+6 |
| ^PSDRUG - [#50] | DWOSEND+7, OLDPKUP+27, OLDPKUP+45 |
| Name | Line Occurrences |
|---|---|
| $$ACTDWO | DWO+3 |
| DWOSEND | DWO+5 |
| GETGRPS | DWO+4 |
| UNLDONE | MANUN+10 |
| UNLOAD | UNLDONE+57 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CABIEN | ACTDWO+1~, ACTDWO+7*, ACTDWO+9, ACTDWO+10 |
| CABNAME | ACTDWO+1~, ACTDWO+6*, ACTDWO+7 |
| CC | GETGRPS+42~*, GETGRPS+43, GETGRPS+46~*, GETGRPS+47 |
| CG | GETGRPS+46~, GETGRPS+47* |
| CL | GETGRPS+42~, GETGRPS+43* |
| D | OLDPKUP+32~ |
| D0 | OLDPKUP+32~ |
| DA | UNLOAD+9~, UNLOAD+13*, UNLOAD+15*, UNLOAD+18~, UNLOAD+22*, OLDPKUP+32~ |
| DA(1 | UNLOAD+13*, UNLOAD+15*, UNLOAD+22* |
| DA(2 | UNLOAD+13*, UNLOAD+15*, UNLOAD+22* |
| DA(3 | UNLOAD+13*, UNLOAD+15* |
| DD | OLDPKUP+32~ |
| DEVBAL | UNLOAD+18~, UNLOAD+19*, UNLOAD+20, UNLDONE+55*, UNLDONE+56 |
| DEVIEN | OLDPKUP+22~, OLDPKUP+24*, OLDPKUP+29, OLDPKUP+33 |
| DIC | OLDPKUP+32~ |
| DICR | OLDPKUP+32~ |
| DICRS | OLDPKUP+32~ |
| DIE | OLDPKUP+32~ |
| DIERR | ACTDWO+4!, ACTDWO+7!, ACTDWO+9!, GETGRPS+34!, GETGRPS+37!, GETGRPS+38!, OLDPKUP+6!, OLDPKUP+13!, OLDPKUP+33!, OLDPKUP+38! |
| DIK | UNLOAD+9~, UNLOAD+12*, UNLOAD+14*, UNLOAD+18~, UNLOAD+21* |
| DIR | MANUN+3~, UNLDONE+24~, UNLDONE+59~ |
| DIR("?" | MANUN+5* |
| DIR("A" | MANUN+4*, UNLDONE+41*, UNLDONE+44*, UNLDONE+60* |
| DIR("B" | MANUN+6* |
| DIR(0 | MANUN+4*, UNLDONE+41*, UNLDONE+59* |
| DO | OLDPKUP+32~ |
| DR | OLDPKUP+32~ |
| DRGDEV | UNLOAD~, UNLOAD+19, UNLOAD+22, UNLDONE+3~, UNLDONE+52*, UNLDONE+55, UNLDONE+56, UNLDONE+57 |
| DRGDRW | UNLDONE+31~, UNLDONE+33*, UNLDONE+36, UNLDONE+51*, UNLDONE+57 |
| DRGFILNM | DWOSEND+6~, DWOSEND+7*, DWOSEND+8*, DWOSEND+19, DWOSEND+26 |
| DRGIEN | UNLOAD~, UNLOAD+15, UNLDONE+3~, UNLDONE+4* |
| DRUG | UNLDONE+3~, UNLDONE+19, OLDPKUP+22~, OLDPKUP+23*, OLDPKUP+26, OLDPKUP+27, OLDPKUP+33 |
| DRWIEN | UNLOAD~, UNLOAD+11, UNLOAD+12, UNLOAD+13, UNLOAD+14, UNLOAD+15, UNLDONE+3~, UNLDONE+4*, UNLDONE+29*, UNLDONE+30 , UNLDONE+32, UNLDONE+33, UNLDONE+34, UNLDONE+36, UNLDONE+49*, UNLDONE+57 |
| DRWPCK | UNLDONE+3~, UNLDONE+4*, UNLDONE+19, UNLDONE+20, UNLDONE+23, UNLDONE+27, UNLDONE+29, UNLDONE+30, UNLDONE+32, UNLDONE+33 , UNLDONE+34, UNLDONE+36, UNLDONE+52 |
| DRWPCK( | UNLDONE+29, UNLDONE+30, UNLDONE+32, UNLDONE+33, UNLDONE+34, UNLDONE+52 |
| ENTITY | DWOSEND+5~, DWOSEND+28*, DWOSEND+29, DWOSEND+30 |
| ERR | OLDPKUP+6!, OLDPKUP+13!, OLDPKUP+32~, OLDPKUP+38! |
| ERRMSG | OLDPKUP~, OLDPKUP+45*, OLDPKUP+46* |
| ERROR | ACTDWO+1~ |
| FDA | OLDPKUP+4~, OLDPKUP+32~ |
| GROUPS | DWO+1~, DWO+2*, DWO+4, DWO+5, GETGRPS~, GETGRPS+31!, GETGRPS+81*, DWOSEND~, DWOSEND+28 |
| GROUPS( | DWOSEND+28, DWOSEND+29, DWOSEND+30 |
| HELPAR | UNLHLP+1~, UNLHLP+11 |
| HELPAR(1 | UNLHLP+2* |
| HELPAR(2 | UNLHLP+3* |
| HELPAR(3 | UNLHLP+4* |
| HELPAR(4 | UNLHLP+5* |
| HELPAR(5 | UNLHLP+6* |
| HELPAR(6 | UNLHLP+7* |
| HELPAR(7 | UNLHLP+8* |
| HELPAR(8 | UNLHLP+9* |
| HELPAR(9 | UNLHLP+10* |
| HLCS | DWOSEND+6~ |
| HLFS | DWOSEND+6~ |
| MAILGRP | DWOSEND+5~, DWOSEND+30*, DWOSEND+31 |
| MGCNT | DWOSEND+6~, DWOSEND+29*, DWOSEND+30 |
| MSGTEXT | DWOSEND+5~ |
| MSGTEXT( | DWOSEND+12*, DWOSEND+13*, DWOSEND+14*, DWOSEND+15*, DWOSEND+16*, DWOSEND+17*, DWOSEND+18*, DWOSEND+19*, DWOSEND+20*, DWOSEND+21* , DWOSEND+22*, DWOSEND+23*, DWOSEND+24* |
| MSGTYPE | DWOSEND+5~ |
| MSHREC | DWOSEND+5~ |
| MTXTLN | DWOSEND+6~, DWOSEND+11*, DWOSEND+12*, DWOSEND+13*, DWOSEND+14*, DWOSEND+15*, DWOSEND+16*, DWOSEND+17*, DWOSEND+18*, DWOSEND+19* , DWOSEND+20*, DWOSEND+21, DWOSEND+22*, DWOSEND+23*, DWOSEND+24* |
| NEXT | GETGRPS+30~, GETGRPS+77*, GETGRPS+78 |
| PADEV | MANUN~, MANUN+10, UNLDONE~, UNLDONE+5, UNLDONE+6, UNLDONE+9, UNLDONE+10, UNLDONE+23 |
| PADIEN | UNLOAD~, UNLOAD+11, UNLOAD+12, UNLOAD+13, UNLOAD+14, UNLOAD+15, UNLOAD+19, UNLOAD+21, UNLOAD+22, UNLDONE+3~ , UNLDONE+9*, UNLDONE+55, UNLDONE+56, UNLDONE+57 |
| PCKCNT | UNLDONE+24~, UNLDONE+25*, UNLDONE+35, UNLDONE+36, UNLDONE+37*, UNLDONE+39*, UNLDONE+40, UNLDONE+54 |
| PCKIEN | UNLOAD~, UNLOAD+13, UNLDONE+3~, UNLDONE+4*, UNLDONE+50*, UNLDONE+57 |
| PCKNAME | UNLDONE+31~, UNLDONE+32*, UNLDONE+35, UNLDONE+36 |
| PCKSEL | UNLDONE+24~, UNLDONE+35*, UNLDONE+37, UNLDONE+38 |
| PCKSEL( | UNLDONE+36*, UNLDONE+43, UNLDONE+46 |
| PCKSTR | UNLDONE+24~, UNLDONE+25*, UNLDONE+37*, UNLDONE+38*, UNLDONE+41, UNLDONE+42, UNLDONE+44 |
| UNLDONE+28~, UNLDONE+30*, UNLDONE+32, UNLDONE+33, UNLDONE+34, UNLDONE+36 | |
| POCKSUB | OLDPKUP+1~, OLDPKUP+37*, OLDPKUP+38, OLDPKUP+40 |
| PRIO | GETGRPS+30~, GETGRPS+71*, GETGRPS+77, GETGRPS+78 |
| PS586IEN | OLDPKUP~, OLDPKUP+36 |
| PSDRG | UNLDONE+3~ |
| PSERR | UNLOAD+9~ |
| PSJCAB | GETGRPS+31~, GETGRPS+37*, GETGRPS+38, GETGRPS+40, GETGRPS+42, GETGRPS+46, GETGRPS+50, GETGRPS+54 |
| PSJCAB("FICHK" | GETGRPS+37* |
| PSJCL | GETGRPS+31~ |
| PSJCL("DILIST" | GETGRPS+42, GETGRPS+43, GETGRPS+44! |
| PSJCL("FICHK" | GETGRPS+43* |
| PSJCLGRP | GETGRPS+31~ |
| PSJCLGRP("DILIST" | GETGRPS+46, GETGRPS+47, GETGRPS+48! |
| PSJCLGRP("FICHK" | GETGRPS+47* |
| PSJCSUB | UNLDONE+3~, UNLDONE+14* |
| PSJDIV | GETGRPS+31~ |
| PSJDIV( | GETGRPS+40 |
| PSJDIV("FICHK" | GETGRPS+40* |
| PSJDRC | UNLDONE+3~, UNLDONE+17, UNLDONE+19 |
| PSJDWENT | GETGRPS+30~, GETGRPS+68*, GETGRPS+70, GETGRPS+73, GETGRPS+77, GETGRPS+78 |
| PSJDWINS | GETGRPS+30~, GETGRPS+65*, GETGRPS+67, GETGRPS+68 |
| PSJDWMG | GETGRPS+30~, GETGRPS+76*, GETGRPS+78 |
| PSJECNT | GETGRPS+30~, GETGRPS+63*, GETGRPS+65 |
| PSJENTYP | GETGRPS+31~, GETGRPS+70*, GETGRPS+71, GETGRPS+73 |
| PSJFICHK | GETGRPS+31~, GETGRPS+73* |
| PSJHI | GETGRPS+30~, GETGRPS+81* |
| PSJINP | UNLDONE+3~, UNLDONE+17, UNLDONE+19 |
| PSJINP("MANUNLOD" | UNLDONE+16* |
| PSJINP("PADEV" | UNLDONE+10* |
| PSJINP("PSDRG" | UNLDONE+23*, UNLDONE+27* |
| PSJINP("PSJCSUB" | UNLDONE+14*, UNLDONE+15* |
| PSJINP("PSJPSYS" | UNLDONE+11* |
| PSJMCT | GETGRPS+30~, GETGRPS+75*, GETGRPS+76 |
| PSJOMS | DWO~, DWO+3, DWO+4, DWO+5, ACTDWO~, GETGRPS~, DWOSEND~ |
| PSJOMS("CABID" | ACTDWO+6, GETGRPS+37, DWOSEND+15, DWOSEND+26 |
| PSJOMS("DISPSYS" | ACTDWO+3, GETGRPS+33, GETGRPS+35 |
| PSJOMS("DRGITM" | DWOSEND+7 |
| PSJOMS("DRGTXT" | DWOSEND+8 |
| PSJOMS("NUR1A" | DWOSEND+24 |
| PSJOMS("NUR1B" | DWOSEND+24 |
| PSJOMS("NUR1C" | DWOSEND+24 |
| PSJOMS("PSJDT" | DWOSEND+9*, DWOSEND+17 |
| PSJOMS("PTID" | DWOSEND+22 |
| PSJOMS("PTNAMA" | DWOSEND+21 |
| PSJOMS("PTNAMB" | DWOSEND+21 |
| PSJOMS("PTNAMC" | DWOSEND+21 |
| PSJOMS("SSN" | DWOSEND+22 |
| PSJOMS("TTYPE" | DWOSEND+10 |
| PSJPSYS | ACTDWO+1~, ACTDWO+3*, ACTDWO+4*, GETGRPS+30~, GETGRPS+33*, GETGRPS+34*, GETGRPS+35, GETGRPS+58, GETGRPS+67, GETGRPS+68 , UNLOAD~, UNLOAD+11, UNLOAD+12, UNLOAD+13, UNLOAD+14, UNLOAD+15, UNLOAD+19, UNLOAD+21, UNLOAD+22, UNLDONE+6* , UNLDONE+7, UNLDONE+9, UNLDONE+11, UNLDONE+55, UNLDONE+56, UNLDONE+57, OLDPKUP+4~, OLDPKUP+10, OLDPKUP+11*, OLDPKUP+12 |
| PSJPSYS("FICHK" | GETGRPS+35* |
| PSJRSLT | GETGRPS+30~ |
| PSJRSLT("DILIST" | GETGRPS+63, GETGRPS+65 |
| PSJRSLT1 | GETGRPS+30~ |
| PSJRSLT1("DILIST" | GETGRPS+75, GETGRPS+76 |
| PSJSCR | OLDPKUP+4~, OLDPKUP+11*, OLDPKUP+13 |
| PSJSELY | UNLDONE+24~, UNLDONE+46*, UNLDONE+49, UNLDONE+50, UNLDONE+51 |
| PSJSTOP | MANUN+9~*, MANUN+10, UNLDONE+4*, UNLDONE+19, UNLDONE+20*, UNLDONE+21, UNLDONE+45*, UNLDONE+48, UNLDONE+62* |
| PSJWGRP | GETGRPS+31~ |
| PSJWGRP("DILIST" | GETGRPS+54, GETGRPS+55, GETGRPS+56! |
| PSJWGRP("FICHK" | GETGRPS+55* |
| PSJWRD | GETGRPS+31~ |
| PSJWRD("DILIST" | GETGRPS+50, GETGRPS+51, GETGRPS+52! |
| PSJWRD("FICHK" | GETGRPS+51* |
| PSPRVDIE | OLDPKUP+3~, OLDPKUP+40*, OLDPKUP+42 |
| PSPRVDT | OLDPKUP+2~, OLDPKUP+42*, OLDPKUP+44, OLDPKUP+46 |
| RESULT | ACTDWO+1~ |
| RESULT( | ACTDWO+10 |
| SCHLST | UNLDONE+3~, UNLDONE+13*, UNLDONE+14 |
| SELCNT | UNLDONE+24~, UNLDONE+42*, UNLDONE+43, UNLDONE+44 |
| SUBID | UNLDONE+31~, UNLDONE+34*, UNLDONE+36, UNLDONE+43~*, UNLDONE+44 |
| SYSIEN | OLDPKUP+22~, OLDPKUP+25*, OLDPKUP+30, OLDPKUP+33 |
| TEMPGRP | GETGRPS+30~ |
| TEMPGRP( | GETGRPS+77, GETGRPS+78*, GETGRPS+81 |
| TEMPGRP("" | GETGRPS+81 |
| TMPADATA | OLDPKUP~ |
| TMPADATA("DEV | ICE IEN" , OLDPKUP+13*, OLDPKUP+14, OLDPKUP+15*, OLDPKUP+16, OLDPKUP+19, OLDPKUP+24, OLDPKUP+38, OLDPKUP+40, OLDPKUP+42 |
| TMPADATA("DRA | WER IEN" , OLDPKUP+19*, OLDPKUP+20, OLDPKUP+38, OLDPKUP+40, OLDPKUP+42 |
| TMPADATA("DRU | G DEV IEN" , OLDPKUP+33* |
| TMPADATA("POC | K/SUB IEN" , OLDPKUP+38* |
| TMPADATA("SYS | IEN" , OLDPKUP+6*, OLDPKUP+7, OLDPKUP+10*, OLDPKUP+11, OLDPKUP+15, OLDPKUP+19, OLDPKUP+25, OLDPKUP+38, OLDPKUP+40 , OLDPKUP+42 |
| TMPADATA(1 | OLDPKUP+6, OLDPKUP+12*, OLDPKUP+45 |
| TMPADATA(10 | OLDPKUP+35*, OLDPKUP+36*, OLDPKUP+37 |
| TMPADATA(2 | OLDPKUP+9, OLDPKUP+13, OLDPKUP+45 |
| TMPADATA(3 | OLDPKUP+18*, OLDPKUP+19 |
| TMPADATA(4 | OLDPKUP+23, OLDPKUP+35, OLDPKUP+36, OLDPKUP+45 |
| TMPADATA(7 | OLDPKUP+37, OLDPKUP+45 |
| TMPADATA(9 | OLDPKUP+44, OLDPKUP+46 |
| WC | GETGRPS+50~*, GETGRPS+51, GETGRPS+54~*, GETGRPS+55 |
| WD | GETGRPS+50~, GETGRPS+51* |
| WG | GETGRPS+54~, GETGRPS+55* |
| X | MANUN+3~, UNLDONE+59~, OLDPKUP+32~ |
| XMDUZ | DWOSEND+5~, DWOSEND+34* |
| XMSUB | DWOSEND+5~, DWOSEND+26* |
| XMTEXT | DWOSEND+5~, DWOSEND+27* |
| XMY | DWOSEND+5~, DWOSEND+32, DWOSEND+33 |
| XMY("G." | DWOSEND+31* |
| XMZ | DWOSEND+5~ |
| Y | MANUN+3~, MANUN+7, UNLDONE+45, UNLDONE+46, UNLDONE+59~, UNLDONE+62, OLDPKUP+32~ |
