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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DGRRLU1

Package: Registration

Routine: DGRRLU1


Information

DGRRLU1 ;alb/aas - DG Replacement and Rehosting RPC for VADPT ;1/4/06 11:31

Source Information

Source file <DGRRLU1.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Registration 12 $$CVEDT^DGCV  ($$FINDCUR,$$GET)^DGENA  $$CATEGORY^DGENA4  ($$FINDCUR,$$GET)^DGENEGT  $$ABOVE^DGENEGT1  $$EXT^DGENU  ADD^DGRRLU  10^DGRRLU1A  
$$PRIM^DGRRLUA  ($$CHARCHK,$$XMLHDR)^DGRRUTL  $$BS5^DPTLK5  $$TESTPAT^VADPT  
Kernel 3 $$IEN^XUAF4  DUZ^XUP  $$IEN^XUPS  
VA FileMan 3 DT^DICRW  $$EXTERNAL^DILFD  $$GET1^DIQ  
Master Patient Index VistA 1 $$GETDFN^MPIF001  
Order Entry Results Reporting 1 $$CWAD^ORQPT2  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGRR GET PTLK BUSINESS DATA  

Entry Points

Name Comments DBIA/ICR reference
INSTTTN ; set institution to USER_INSTITUTION if available else set to default institution
9 ; -- enrollment information FROM DPTLK, Provide Enrollment data for user notification
;
; If patient is NOT ELIGIBLE, display Enrollment Status (Ineligible Project Phase I)
; Get Enrollment Group Threshold Priority and Subgroup
; Compare Patient's Enrollment Priority to Enrollment Group Threshold
PATIENT ; establish Patient VPID from Patient ID
4 ; -- primary elig = employee and user doesn't hold dg security office key,from EMPL^DGSEC4(DFN)
; give message and log if chosen
RULES(DFN,DIV) ;
; -- display order from old SRS
; Messages will display in the following order:
; emp SSN mission, Similar, Deceased, Security (sometimes), CWAD, Missing, Test, Enrollment and Means Test.
;
1 ; -- similar patients, Checks the BS5 cross reference for similar patients and matches last name
; bs5 index is first character of last name concatenated with last 4 of ssn.
; give warning, ask if okay,
;
0 ; -- employee SSN missing from new person file
3 ; -- accessing own record and user doesn't have dg record access key and MAS parameter to restrict patient records=yes
; check parameter first, check key second. if (param && !userKey), if (emp ssn == to pt ssn) don't allow (check format of ssn)
; if (empssn=="") tell them to get added and don't allow access
2 ; -- deceased patient
; give warning if patient is deceased
5 ; -- sensitive record and user doesn't have the dg sensitivity key
; ask to continue, if yes, log if chosen
USER ; establish the DUZ from User ID
7 ; -- patient on MPR, see if patient is listed in Missing Patient Register
6 ; -- cwad for patient (C)risis notes, Clinical (W)arnings, (A)lergies, and Advance (D)irectives
BUS(RESULT,PARAMS) ; -- return business logic data for 1 patient in xml format
; -- RPC: DGRR GET PTLK BUSINESS DATA
;
; -- input [required] PARAMS("PATIENT_ID_TYPE") = 'DFN' or 'ICN'
; [required] PARAMS("PATIENT_ID") = a DFN value or an ICN value
; [required] PARAMS("USER_ID_TYPE") = 'VPID' or 'DUZ'
; [required] PARAMS("USER_ID") = value of a VPID, or DUZ
; [optional] PARAMS("USER_INSTITUTION") = Station # (Defaults to DUZ(2) if not received)
; [temporary/optional] PARAMS("PATIENT_RECORD_FLAG") = Optional. If 1 the query returns old version of the patient_record_flag business rule
;
; -- returns result array that contains XML document containing data for 12 checks of patient
; related to lookup that is executed in the business layer. See Patient Lookup documentation
; for logic
;
8 ; -- test patient
; if (dataColumn=1) display message.
END ;
BUSEND

External References

Name Field # of Occurrence
$$CVEDT^DGCV 9+19
$$FINDCUR^DGENA 9+8
$$GET^DGENA 9+8
$$CATEGORY^DGENA4 9+9
$$FINDCUR^DGENEGT 9+22
$$GET^DGENEGT 9+23
$$ABOVE^DGENEGT1 9+26
$$EXT^DGENU 9+11, 9+12
ADD^DGRRLU PATIENT+9, PATIENT+10, PATIENT+11, PATIENT+12, BUSEND, 0+5, 1+5, 2+3, 3+5, 4+7
, 5+4, 6+3, 7+3, 8+4, 9+30
10^DGRRLU1A 9+32
$$PRIM^DGRRLUA 4+7
$$CHARCHK^DGRRUTL PATIENT+3, PATIENT+5, PATIENT+11, 0+2, 0+3, 0+4, 1+5, 2+3, 3+3, 3+4
, 4+7, 5+4, 6+3, 7+3, 8+4, 9+27, 9+28
$$XMLHDR^DGRRUTL PATIENT+9
DT^DICRW BUS+21
$$EXTERNAL^DILFD 9+10, 9+15
$$GET1^DIQ RULES+6
$$BS5^DPTLK5 1+4
$$GETDFN^MPIF001 PATIENT+3
$$CWAD^ORQPT2 6+2
$$TESTPAT^VADPT 8+3
$$IEN^XUAF4 INSTTTN+3
DUZ^XUP USER+3
$$IEN^XUPS USER+1

Used in RPC

RPC Name Call Tags
DGRR GET PTLK BUSINESS DATA BUS

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^DGEN(27.11 - [#27.11] EXTERNAL^DILFD
^DGEN(27.15 - [#27.15] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(43 - [#43] RULES+9
^DGSL(38.1 - [#38.1] 5+2
^DIC(8 - [#8] 4+5
^DIC(8.1 - [#8.1] 4+5
^DPT - [#2] PATIENT+7, PATIENT+11, RULES+7, 2+2
^DPT("AEL" 4+4
^TMP($J BUS+18!
^XUSEC("DG RECORD ACCESS" RULES+8
^XUSEC("DG SECURITY OFFICER" 4+6
^XUSEC("DG SENSITIVITY" 5+3

Label References

Name Line Occurrences
BUSEND PATIENT+10
RULES PATIENT+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT BUS+14~, BUS+16*
CWAD 6+1~, 6+2*, 6+3
DFN RULES~, RULES+7, 1+4, 2+2, 4+4, 4+7, 5+2, 6+2, 8+3, 9+8
, 9+9, 9+19, 9+26
DGEGT 9+21~, 9+23*
DGEGT("PRIORITY" 9+24, 9+26
DGEGT("SUBGRP" 9+26
DGEGTIEN 9+21~, 9+22*, 9+23
DGELIG 4+2~, 4+3*, 4+4*, 4+5
DGENR BUS+14~, 9+8
DGENR("END" 9+13
DGENR("PRIORITY" 9+11, 9+24, 9+26
DGENR("STATUS" 9+14
DGENR("SUBGRP" 9+12, 9+26
DGENST 9+6~, 9+14*, 9+15*, 9+28
DGENTHR 9+17~, 9+18*, 9+26*, 9+29
DGRRESLT BUS+14~, BUS+15!, BUS+19*, BUS+20
DGRRLINE BUS+14~, BUS+17*
DIV RULES~
DOD RULES+5~, 2+2*, 2+3
DUZ RULES+6, RULES+8, 4+6, 5+3
DUZ(2 INSTTTN+4
ELIST 4+2~, 4+3*, 4+5*, 4+7
EMPSSN RULES+5~, RULES+6*, 0+2, 3+4
ENCAT 9+6~, 9+7*, 9+9*, 9+10*, 9+27
ENEND 9+6~, 9+13*, 9+27
ENPRIO 9+6~, 9+11*, 9+28
ENSUBGRP 9+6~, 9+12*, 9+28
ERRMESS BUS+14~, USER+4*, PATIENT+6*, PATIENT+7*, PATIENT+10
ICN BUS+14~, PATIENT+2*, PATIENT+3
INSTTTN BUS+14~, INSTTTN+3*, INSTTTN+4*, PATIENT+13
LINE 9+6~, 9+27*, 9+28*, 9+29*, 9+30
MASPARAM RULES+5~, RULES+9*, 0+3, 3+3
MPREC 7+1~
MPREC(0 7+3
PARAMS BUS~
PARAMS("PATIENT_ID" PATIENT+2, PATIENT+5, PATIENT+6
PARAMS("PATIENT_ID_TYPE" PATIENT+1, PATIENT+4, PATIENT+6
PARAMS("USER_ID" USER+1, USER+2, USER+4
PARAMS("USER_ID_TYPE" USER+1, USER+2, USER+4
PARAMS("USER_INSTITUTION" INSTTTN+3
PRIM1 RULES+5~
PTID BUS+14~, PATIENT+3*, PATIENT+5*, PATIENT+6, PATIENT+7, PATIENT+11, PATIENT+13
PTSSN RULES+5~, RULES+7*, 3+4
RESULT BUS~, BUS+15!, BUS+20*
SENSITIV RULES+5~, 5+2*, 5+4
SIM RULES+5~, 1+4*, 1+5
TPFIELD RULES+5~, 8+2*, 8+3*, 8+4
USERID BUS+14~, USER+1*, USER+2*, USER+3, USER+4
USERKEY RULES+5~, RULES+8*, 0+4, 3+4, 4+6*, 4+7, 5+3*, 5+4
X DGRRLU1+3*, BUS+14~, 0+1~, 0+2*, 0+3*, 0+4*, 0+5, 3+3*, 3+4*, 3+5
Y BUS+14~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All