BDGSPT2 ; IHS/OIT/LJF - LIST TEMPLATE CODE FOR USER ACCESS RESTRICTIONS
Source file <BDGSPT2.m>
Package | Total | Caller Graph |
---|---|---|
IHS GPRA Information System | 8 | BGP2GUA BGP3GUA BGP4GUA BGP5GUA BGP6GUA BGP7GUA BGP8GUA BGPGP |
Mental Health Social Services | 2 | AMHGP AMHUTIL2 |
Registration | 2 | DGSEC DGSEC4 |
IHS Changes To ADT | 1 | BDGSPT3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
RESET | ;EP; return from protocol & rebuild list
|
|
ADDUSER | ; adds user to file if not already there
|
|
EN | ;EP; -- main entry point for BDG SECURITY RESTRICTIONS list template
|
|
RESUMCHK(USER,DFN,DTIEN,RESUME) | ;EP; called by input transform
; Make sure date restriction resumes is not before date lifted |
|
HDR | ; -- header code
|
|
SET(LINE,NUM,COUNT,IEN) | ; put display line into array
|
|
PAD(D,L) | ; -- SUBRTN to pad length of data
; -- D=data L=length |
|
SP(N) | ; -- SUBRTN to pad N number of spaces
|
|
RESUME | ;EP; called by BDG RESTRICTED RESUME protocol
|
|
ADD | ;EP; called by BDG RESTRICTED ADD protocol
|
|
GETPAT | ; -- select patient from listing
|
|
INIT | ; -- init variables and list array
|
|
LIFT | ;EP; called by BDG RESTRICTED LIFT protocol
|
|
HELP | ;EP -- help code
|
|
USER | ;EP; Select User whose access will be restricted
; called by option BDG SECURITY RESTRICTIONS |
|
LIFTCHK(USER,DFN,DTIEN,LIFT) | ;EP; called by input transform
; make sure date restriction lifted is not before first restriction ; AND not before last time restriction resumed |
|
STATUS(USR,PAT,MODE) | ;EP; returns restriction status for user/patient pair
; called by this routine and computed field STATUS ; also called by ^DGSEC to determine access for user to this patient ; If MODE=1, then return short format (default) ; If MODE=2, then return long format |
|
EXIT | ;EP -- exit code
|
|
EXPND | ;EP -- expand code
|
|
VIEW | ;EP; called by BDG RESTRICTED VIEW protocol
|
Name | Field # of Occurrence |
---|---|
$$READ^BDGF | USER+6, LIFT+9, RESUME+13 |
PAUSE^BDGF | ADD+6, RESUME+8 |
$$HRCN^BDGF2 | INIT+19 |
EN^BDGSPT3 | VIEW+5 |
^DIC | ADD+11, LIFT+21, ADDUSER+2 |
^DIE | LIFT+13, RESUME+20 |
$$GET1^DIQ | HDR+2, HDR+3, HDR+4, INIT+6, RESUME+11, STATUS+13, STATUS+15, STATUS+16 |
EN^VALM | EN+2 |
TERM^VALM0 | EN+1, RESET+1 |
CLEAR^VALM1 | EN+1, EN+3 |
FULL^VALM1 | ADD+1, LIFT+1, RESUME+1, VIEW+1, GETPAT+2 |
EN^VALM2 | GETPAT+4 |
$$NOW^XLFDT | ADD+10, LIFT+12, LIFT+19, RESUME+19, STATUS+13 |
$$REPEAT^XLFSTR | PAD+2 |
DISP^XQORM1 | HELP+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^VA(200 - [#200] | GET1^DIQ |
9009018.111 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BDGSPT - [#9009018.1] | INIT+5, ADD+2, ADD+3, LIFT+6, LIFT+7, RESUME+5, STATUS+6, STATUS+7, STATUS+11, STATUS+13 , STATUS+14, LIFTCHK+3, LIFTCHK+4, LIFTCHK+5, RESUMCHK+2 |
^DD(9009018.1 | ADD+9 |
^DD(9009018.11 | LIFT+18 |
^TMP("BDGSPT2" | INIT+1!, INIT+23*, SET+2*, SET+3*, GETPAT+7, GETPAT+8, GETPAT+9, GETPAT+10, EXIT+1! |
^TMP("BDGSPT2A" | INIT+1!, INIT+9*, INIT+13, INIT+15, INIT+16, INIT+20, INIT+24! |
Name | Line Occurrences |
---|---|
$$PAD | HDR+3, INIT+18, INIT+19, SP+1 |
$$SP | HDR+3, HDR+4, INIT+18, INIT+23 |
$$STATUS | INIT+7, LIFT+8 |
ADDUSER | ADD+2 |
EN | USER+7 |
GETPAT | LIFT+3, RESUME+3, VIEW+3 |
HDR | RESET+1 |
INIT | RESET+1 |
RESET | ADD+12, LIFT+7, LIFT+22, RESUME+8, RESUME+11, RESUME+21 |
SET | INIT+14, INIT+21 |
USER | USER+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BDGPAT | GETPAT+1~, GETPAT+3*, GETPAT+7, GETPAT+10*, GETPAT+11 |
BDGUSR | USER+2~, USER+6*, HDR+2, HDR+3, HDR+4, INIT+5, INIT+7, ADD+2, ADD+3, ADD+8 , LIFT+6, LIFT+7, LIFT+8, LIFT+11, LIFT+17, LIFT+19, RESUME+5, RESUME+11, RESUME+17, RESUME+18 , ADDUSER+2 |
COUNT | INIT+12*, INIT+14, INIT+17*, INIT+18, INIT+21, SET~, SET+3 |
D | PAD~, PAD+2 |
DA | LIFT+10~, LIFT+11*, LIFT+16~, RESUME+16~, RESUME+18* |
DA(1 | ADD+8*, LIFT+11*, LIFT+19*, RESUME+18* |
DA(2 | LIFT+11*, LIFT+19*, RESUME+18* |
DATE | LIFT+2~, LIFT+6*, LIFT+7, LIFT+11, RESUME+2~, RESUME+5*, RESUME+6, RESUME+11, RESUME+18, STATUS+10~ , STATUS+11*, STATUS+12, STATUS+13, STATUS+14, STATUS+15, STATUS+16 |
DFN | INIT+4~, INIT+5*, INIT+6, INIT+7, INIT+9, INIT+16*, INIT+19, INIT+20, INIT+21, LIFT+2~ , LIFT+3, LIFT+6, LIFT+7, LIFT+8, LIFT+11, LIFT+17, LIFT+19, RESUME+2~, RESUME+3, RESUME+5 , RESUME+11, RESUME+17, RESUME+18, VIEW+2~, VIEW+3, GETPAT+11*, LIFTCHK~, LIFTCHK+3, LIFTCHK+4, LIFTCHK+5 , RESUMCHK~, RESUMCHK+2 |
DIC | ADD+8*, LIFT+16~, LIFT+17*, ADDUSER+1~, ADDUSER+2* |
DIC("DR" | ADD+10*, LIFT+20* |
DIC("P" | ADD+9*, LIFT+18* |
DIC(0 | ADD+8*, LIFT+17*, ADDUSER+2* |
DIE | LIFT+10~, LIFT+11*, RESUME+16~, RESUME+17* |
DLAYGO | ADD+8*, LIFT+17*, ADDUSER+1~, ADDUSER+2* |
DR | LIFT+10~, LIFT+12*, RESUME+16~, RESUME+19* |
DT | STATUS+16 |
DTIEN | LIFTCHK~, LIFTCHK+4, RESUMCHK~, RESUMCHK+2 |
DUZ | ADD+10, LIFT+12, LIFT+20, RESUME+19 |
DUZ(2 | INIT+19 |
END | STATUS+10~, STATUS+14*, STATUS+15, STATUS+16 |
HELP | USER+2~, USER+5*, USER+6 |
IEN | SET~, SET+3 |
L | PAD~, PAD+2 |
LAST | LIFTCHK+4~*, LIFTCHK+5 |
LIFT | LIFTCHK~, LIFTCHK+3, LIFTCHK+5 |
LINE | INIT+18*, INIT+19*, INIT+20*, INIT+21, SET~, SET+2 |
MODE | STATUS~, STATUS+15, STATUS+16 |
N | SP~, SP+1 |
NUM | SET~, SET+1*, SET+2, SET+3 |
PAT | STATUS~, STATUS+5, STATUS+6, STATUS+7, STATUS+11, STATUS+13, STATUS+14, STATUS+15, STATUS+16 |
PATNM | INIT+4~, INIT+6*, INIT+9, INIT+15*, INIT+16, INIT+18, INIT+20 |
QUIT | RESUME+10~, RESUME+11, RESUME+13* |
RESUME | RESUMCHK~, RESUMCHK+2 |
SCREEN | USER+2~, USER+4*, USER+6 |
SORT | INIT+4~, INIT+8*, INIT+9, INIT+13*, INIT+15, INIT+16, INIT+20 |
STATUS | INIT+4~, INIT+7*, INIT+8, INIT+9 |
U | ADD+9, LIFT+7, LIFT+18, STATUS+13, STATUS+14, LIFTCHK+3, LIFTCHK+5, RESUMCHK+2 |
USER | LIFTCHK~, LIFTCHK+3, LIFTCHK+4, LIFTCHK+5, RESUMCHK~, RESUMCHK+2 |
USR | STATUS~, STATUS+5, STATUS+6, STATUS+7, STATUS+11, STATUS+13, STATUS+14, STATUS+15, STATUS+16 |
>> VALMBCK | ADD+5*, VIEW+6*, RESET+1* |
VALMCNT | EN+1~, INIT+1*, INIT+14, INIT+21, INIT+23* |
>> VALMHDR(1 | HDR+3* |
>> VALMHDR(2 | HDR+4* |
>> VALMY | GETPAT+5 |
>> VALMY(0 | GETPAT+6 |
X | HDR+1~, HDR+2*, HDR+3, LIFT+16~, LIFT+19*, RESUME+10~, RESUME+11*, RESUME+12, RESUME+16~, ADDUSER+1~ , ADDUSER+2*, GETPAT+1~, GETPAT+6*, GETPAT+10, HELP+1* |
>> XQORNOD(0 | GETPAT+4 |
Y | LIFT+16~, RESUME+16~, ADDUSER+1~, GETPAT+1~, GETPAT+7*, GETPAT+8, GETPAT+9, GETPAT+10 |
Z | GETPAT+1~, GETPAT+8*, GETPAT+9, GETPAT+10 |