Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BDGSPT2

Package: IHS Changes To ADT

Routine: BDGSPT2


Information

BDGSPT2 ; IHS/OIT/LJF - LIST TEMPLATE CODE FOR USER ACCESS RESTRICTIONS

Source Information

Source file <BDGSPT2.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Registration 4 EN^VALM  TERM^VALM0  (CLEAR,FULL)^VALM1  EN^VALM2  
IHS Changes To ADT 3 ($$READ,PAUSE)^BDGF  $$HRCN^BDGF2  EN^BDGSPT3  
Kernel 3 $$NOW^XLFDT  $$REPEAT^XLFSTR  DISP^XQORM1  
VA Fileman 3 ^DIC  ^DIE  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 13

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  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PROBLEM ADDING USER TO FILE - CONTACT IT DEPARTMENT"
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: !!,$$STATUS(BDGUSR,DFN,2)
  • Line Location: LIFT+8
Function Call: WRITE
  • Prompt: !!,"ACCESS CURRENTLY RESTRICTED; NOTHING TO RESUME"
  • Line Location: RESUME+7
Function Call: WRITE
  • Prompt: !!,"RESTRICTION LAST RESUMED ON "_X
  • Line Location: RESUME+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Routine Call
  • VALM
  • Line Location:
    • EN+2
Routine Call
  • DIE
  • Line Location:
    • LIFT+13
    • RESUME+20
Routine Call
  • DIC
  • Line Location:
    • ADD+11
    • LIFT+21
    • ADDUSER+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
9009018.111 GET1^DIQ

Global Variables Directly Accessed

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!

Label References

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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All