©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
BGUXUSRB ; IHS/OIT/MJL - Request Broker ; [ 04/18/2006 2:21 PM ]
Source file <BGUXUSRB.m>
| Package | Total | Caller Graph |
|---|---|---|
| GUI Generic Tools | 1 | BGU15E |
| Patient Chart | 1 | BPC15E |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TXT(%) | ; mod from ^XUS3.%=NUM in, %=ERROR MSG out.
|
|
| VALIDAV(RESULT,ACODE,VCODE,BGUETH,BGUAPP,BGUPRM) | ;EP Check a users access
|
|
| VCVALID() | ;-^XUSRB-Return 1 if Verify code needs changing.
|
|
| 1 | ;;1;Signons not currently allowed on this processor.
|
|
| SNDER | ;Sends error to GUI
|
|
| CAC(RESULT,XU1) | ;change AC
|
|
| A1 | ;Set some basics.
|
|
| 3 | ;;1;This device has not been defined to the system -- contact system manager.
|
|
| 2 | ;;1;Maximum number of users already signed on to this processor.
|
|
| 5 | ;;0;No Access Allowed for this User.
|
|
| 4 | ;;0;Not a valid ACCESS CODE/VERIFY CODE pair.
|
|
| 7 | ;;0;Device locked due to too many invalid sign-on attempts.
|
|
| 6 | ;;0;Invalid device password.
|
|
| 9 | ;;0;*** MULTIPLE SIGN-ONS NOT ALLOWED ***"
|
|
| 8 | ;;1;This device is out of service.
|
|
| ADDRSLT | ; Add % as the new entry
|
|
| CHECKAV(X1,X2,USER) | ;Check A/V code return DUZ
|
|
| SET1 | ;Setup parameters
|
|
| ZZ | ;;Halt;Error Messages
|
|
| CHX | ||
| CVC(RESULT,XU1) | ;change VC
|
|
| 11 | ;;0;Your access code has been terminated. Please see your site manager
|
|
| 10 | ;;1;You don't have access to this device.
|
|
| 13 | ;;1;This device may only be used outside of this time frame |
|
|
| 12 | ;;0;VERIFY CODE MUST be changed before continued use.
|
|
| 15 | ;;0;'|' is not a valid program name!
|
|
| 14 | ;;0;'|' is not a valid UCI!
|
|
| CFAC(RESULT,XU1) | ; change facility id (DUZ(2))
|
|
| SETUP(RESULT) | ;sets up environment for GUI signon
|
|
| INTRO(RESULT) | ;Return INTRO TEXT.
|
|
| NO() | ;Fail - - modified from ^XUS3
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| RPC Name | Call Tags |
|---|---|
| BGU AVLOGON | VALIDAV |
| BGU CFAC | CFAC |
| BGU CAC | CAC |
| BGU CVC | CVC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("EOFF" | SET1+1 |
| ^%ZOSF("EON" | SET1+1 |
| ^DIC(4 - [#4] | CFAC+6 |
| ^VA(200 - [#200] | VALIDAV+27*, CHECKAV+17, CHECKAV+18, CHX, VCVALID+3, VCVALID+7 |
| ^XTV(8989.3 - [#8989.3] | CFAC+7, SET1+3, VCVALID+5 |
| ^XUTL("XQ" | SET1+4! |
| Name | Line Occurrences |
|---|---|
| $$CHECKAV | VALIDAV+15 |
| $$NO | VALIDAV+22, CFAC+2 |
| $$TXT | NO+8 |
| $$VCVALID | VALIDAV+21 |
| A1 | VALIDAV+11 |
| CHX | CHECKAV+12, CHECKAV+17, CHECKAV+26, CHECKAV+27 |
| SET1 | VALIDAV+12 |
| SNDER | VALIDAV+22, CFAC+2 |
| Name | Field # of Occurrence |
|---|---|
| ^("XUS" | SET1+3 |
| ^(1.1 | CHX* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | CHECKAV+1~, TXT~, TXT+1*, TXT+2*, TXT+3, ADDRSLT+3 |
| %1 | VALIDAV+14~, CHECKAV+12*, CHECKAV+18*, CHECKAV+20* |
| >> %ZIS | SET1+4* |
| ACODE | VALIDAV~, VALIDAV+15 |
| BGUAPP | VALIDAV~ |
| BGUETH | VALIDAV~ |
| >> BGUI | ADDRSLT+2*, ADDRSLT+3 |
| >> BGULIM | VCVALID+5*, VCVALID+7 |
| BGUN | SNDER+3~, SNDER+4*, SNDER+5 |
| BGUPRM | VALIDAV~ |
| >> BGUX | CFAC+6*, CFAC+7 |
| DT | A1+1* |
| DUZ | VALIDAV+15*, VALIDAV+27, CVC+1, CAC+1, CHECKAV+18*, CHECKAV+27, CHECKAV+28, CHX, SET1+4*, VCVALID+2 , VCVALID+3, VCVALID+7 |
| DUZ("AG" | CFAC+3*, CFAC+4*, CFAC+7* |
| DUZ(0 | SET1+4* |
| DUZ(2 | CFAC+1*, CFAC+2, CFAC+5, CFAC+6 |
| >> I | SET1+3* |
| IO | SETUP+5 |
| >> IOP | SET1+4* |
| RESULT | VALIDAV~, INTRO~, CVC~, CAC~, CFAC~, SETUP~ |
| RESULT( | ADDRSLT+2*, ADDRSLT+3*, SNDER+4*, SNDER+5* |
| RESULT(0 | SETUP+2* |
| RESULT(1 | VALIDAV+27*, VALIDAV+33*, CVC+1*, CVC+4*, CAC+1*, CAC+4*, CFAC+8*, SETUP+3* |
| RESULT(2 | SETUP+4* |
| RESULT(3 | SETUP+5* |
| U | VALIDAV+15*, VALIDAV+27, VALIDAV+33, CVC+1*, CAC+1*, SETUP+2, SETUP+3, A1+1*, CHX, SET1+1* , SET1+3, VCVALID+3, NO+11, NO+12, SNDER+5 |
| USER | CHECKAV~ |
| USER("ERR" | CHECKAV+2!, CHECKAV+17*, CHECKAV+26*, CHECKAV+27* |
| USER(0 | CHECKAV+18* |
| USER(1 | CHECKAV+18*, CHECKAV+26 |
| VCODE | VALIDAV~, VALIDAV+15 |
| >> VCOK | VALIDAV+21*, VALIDAV+22 |
| >> WEB | VALIDAV+27, CHECKAV+15, CHECKAV+24 |
| X | VALIDAV+14~, CHECKAV+1~, CHECKAV+10*, CHECKAV+11, CHECKAV+12, CHECKAV+17, CHECKAV+18, CHECKAV+20*, CHECKAV+26, CHX* |
| X1 | CHECKAV~, CHECKAV+10 |
| X2 | CHECKAV~, CHECKAV+20 |
| >> XOPT | SET1+3*, NO+11 |
| >> XQVOL | SET1+1* |
| XU1 | CVC~, CVC+1*, CAC~, CAC+1*, CFAC~, CFAC+1 |
| XU2 | CVC+1~*, CAC+1~* |
| >> XUCI | SETUP+4, SET1+1* |
| >> XUDEV | SET1+4* |
| >> XUENV | SETUP+2, SET1+1* |
| >> XUEOFF | SET1+1* |
| >> XUEON | SET1+1* |
| XUERR | VALIDAV+14~, VALIDAV+22*, CFAC+2*, SNDER+5 |
| XUEX | NO+4~, NO+11, TXT+1* |
| XUF | VALIDAV+14~, VALIDAV+15*, CHECKAV+12, CHECKAV+20, SET1+4* |
| XUF( | CHECKAV+18* |
| >> XUM | VALIDAV+22*, CFAC+2*, NO+8 |
| >> XUM(0 | TXT+2 |
| XUSER | VALIDAV+14~, VALIDAV+15* |
| XUSER("ERR" | VALIDAV+33 |
| >> XUT | SET1+4*, NO+5*, NO+11 |
| XUTXT | NO+4~, NO+8*, NO+12 |
| >> XUVOL | SETUP+3 |
| XUX1 | NO+4~, NO+8*, NO+12 |
| XUX2 | NO+4~, NO+11*, NO+12 |
| Y | CHECKAV+1~, SET1+1 |
| Name | Field # of Occurrence |
|---|---|
| $T(ZZ+% | TXT+1 |