©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
PSGPLUTL ;BIR/RLW-PICK LIST UTILITIES ;06 AUG 96 / 10:54 AM
Source file <PSGPLUTL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| JUMP | ; try to find patient user wants to jump to and construct "AC" xref
|
|
| LOCK(PSGPLG,APPL) | ; Pick List routines use an ^XTMP node instead of locking, to allow some jobs to run concurrently on the same Pick List (PRINT and SEND TO ATC).
; PSGPLG=pick list number, APPL=option attempting to "lock", SETAPPL=option already in progress, APPLOK=if '1', option attempting to "lock" can proceed. |
|
| PAT | ; find next patient or jump to a new patient
|
|
| UNLOCK(PSGPLG,APPL) |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(53.5 - [#53.5] | PAT+2 |
| ^XTMP("PSGPL" | LOCK+3*, LOCK+5, LOCK+6, LOCK+7!, LOCK+8*, LOCK+9, LOCK+10*, LOCK+11*, UNLOCK+1!, UNLOCK+2! |
| Name | Line Occurrences |
|---|---|
| JUMP | PAT+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APPL | LOCK~, LOCK+8, LOCK+10, LOCK+11, UNLOCK~, UNLOCK+1 |
| APPLOK | LOCK+2~, LOCK+3*, LOCK+10*, LOCK+11*, LOCK+12 |
| DIC | JUMP+1*! |
| DIC(0 | JUMP+1* |
| >> OK | PAT+1 |
| PLG | LOCK+2~, LOCK+5*, LOCK+6, LOCK+7 |
| >> PN | PAT+2* |
| >> PSGP | JUMP+1 |
| PSGPLG | PAT+2, JUMP+1, LOCK~, LOCK+8, LOCK+9, LOCK+10, LOCK+11, UNLOCK~, UNLOCK+1 |
| >> RB | PAT+2 |
| SETAPPL | LOCK+2~, LOCK+6*, LOCK+7, LOCK+9*, LOCK+10, LOCK+11 |
| SUB | LOCK+2~, LOCK+7* |
| >> TM | PAT+2 |
| >> WDN | PAT+2 |
| >> X | JUMP+1*, LOCK+3 |
| >> X1 | LOCK+3* |
| >> X2 | LOCK+3* |