©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
BLRALPH ;DAOU/ALA/EJN-Setup Participating Physicians [ 12/19/2002 7:16 AM ]
Source file <BLRALPH.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Check for access to this option
; check if a user has one of the BLRA keys and is calling ; this option from the User Toolbox option |
|
| CSUR | ;EP - Clean-up expired surrogates in Participating Physicians File
|
|
| CLK | ; Clerk's enter/edit of the Participating Physician File
|
|
| EXIT | ||
| SUR | ; Set up delegated surrogates
|
|
| SUP | ; Ask to change supervisor to
|
|
| INACT | ;EP
; Inactivate a participating provider |
|
| ISRG | ; Designate surrogate for 90 days
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^BLRALAB(9009027.1 - [#9009027.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BLRALAB(9009027.1 - [#9009027.1] | EN+10, CSUR+3, CSUR+4, CSUR+6, CSUR+7, INACT+11, ISRG+3*, SUP+13 |
| Name | Line Occurrences |
|---|---|
| CLK | CLK+8 |
| EXIT | CLK+4, SUR+6, INACT+6, INACT+17 |
| INACT | ISRG+16 |
| ISRG | ISRG+7, ISRG+9 |
| SUP | INACT+12 |
| SUR | EN+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BLRAACT | EXIT!, INACT+17, ISRG+15! |
| BLRADATA | ISRG+15! |
| BLRAFPH | ISRG+15! |
| >> BLRAFSP | INACT+12*, SUP+13 |
| >> BLRAKEY | EN+3*, EN+4 |
| >> BLRALY( | SUP+14* |
| BLRAP | ISRG+14! |
| BLRAPHY | CSUR+1~, CSUR+2*, CSUR+3*, CSUR+4, CSUR+6, CSUR+7, CSUR+8, CSUR+9 |
| BLRAPIEN | EXIT+1!, INACT+8*, ISRG+2 |
| BLRAPNAM | EXIT+1!, INACT+7*, INACT+15, INACT+17 |
| BLRARFL | ISRG+15! |
| BLRARPHY | ISRG+15! |
| BLRAS | ISRG+14! |
| BLRASUP | EXIT+1!, INACT+11*, INACT+12 |
| BLRASUR | CSUR+1~, CSUR+5*, CSUR+6*, CSUR+7, CSUR+8 |
| BLRATPH | ISRG+15! |
| >> BLRATSP | SUP+12*, SUP+14 |
| >> BLRJ | SUP+13*, SUP+14 |
| BLRVD | ISRG+14! |
| DA | CLK+4*, EXIT!, SUR+4*, CSUR+1~, CSUR+8*, INACT+6*, INACT+8, INACT+11, INACT+12, ISRG+1! , ISRG+6*, ISRG+7, ISRG+8, ISRG+9!, ISRG+10, ISRG+14! |
| DA(1 | CSUR+8*, ISRG+2*, ISRG+3, ISRG+4 |
| DIC | CLK+2*, CLK+6, EXIT!, INACT+4*, INACT+16, ISRG+1!, ISRG+4*, ISRG+12, ISRG+14!, SUP+10* |
| DIC("A" | CLK+3*, INACT+5*, ISRG+5* |
| DIC("S" | SUP+10* |
| DIC(0 | CLK+2*, INACT+4*, ISRG+4*, SUP+10* |
| DIE | CLK+6*, EXIT!, SUR+4*, INACT+16*, ISRG+1!, ISRG+12*, ISRG+14! |
| DIE("NO^" | ISRG+12* |
| DIK | CSUR+1~, CSUR+9*, ISRG+14! |
| DIR | ISRG+15!, SUP+1~ |
| DIR("A" | SUP+2*, SUP+3*, SUP+4*, SUP+5* |
| DIR(0 | SUP+6* |
| >> DLAYGO | CLK+2*, ISRG+2* |
| DR | CLK+6*, EXIT!, SUR+2*, SUR+3*, INACT+16*, ISRG+1!, ISRG+2*, ISRG+11* |
| DT | ISRG+9 |
| DUZ | EN+10, SUR+4 |
| IENS | EXIT+1!, ISRG+10* |
| >> KEYCT | EN+5*, EN+6 |
| LRDFN | ISRG+14! |
| LRIDT | ISRG+14! |
| LRSS | ISRG+14! |
| >> QFL | INACT+12*, SUP+8*, SUP+9, SUP+11* |
| >> RETKEY | EN+4*, EN+5 |
| TERMDT | ISRG+8*, ISRG+9, ISRG+14! |
| TXT | EXIT+1! |
| U | CSUR+4, CSUR+7, INACT+11 |
| >> XQSV | EN+6 |
| Y | CLK+4, CSUR+1~, INACT+6, ISRG+6, SUP+8, SUP+9, SUP+11, SUP+12 |
| Y(0 | INACT+7 |