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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: VPRDJ08

Package: Virtual Patient Record

Routine: VPRDJ08


Information

VPRDJ08 ;SLC/MKB -- Documents ;6/25/12 16:11

Source Information

Source file <VPRDJ08.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Text Integration Utility 6 $$CLASS^TIUCNSLT  CPCLASS^TIUCP  EXTRACT^TIULQ  $$ISA^TIULX  $$CLASS^TIUSROI  $$RESOLVE^TIUSRVLO  
Virtual Patient Record 6 ($$FAC,$$VUID)^VPRD  ADD^VPRDJ  $$NAME^VPRDJ04  ($$CP1,$$LR1,$$RA1)^VPRDJ08A  ($$CATG,$$SIG)^VPRDTIU  ($$JSONDT,$$SETUID,SETTEXT)^VPRUTILS  
Kernel 1 ($$LOW,$$UP)^XLFSTR  
Radiology Nuclear Medicine 1 EN1^RAO7PC1  
VA FileMan 1 ($$GET1,GETS)^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Virtual Patient Record 3 VPRDJ0  VPRDJ08A  VPRSDAT  

Entry Points

Name Comments DBIA/ICR reference
TIU1(ID) ; -- document
EN1(VPRX,TIU) ; -- document
; Expects DFN, VPRX=IEN^$$RESOLVE^TIUSRVLO(IEN) or equivalent
; TIU = document class#, or code (CP, RA, LR) if non-TIU
A ; national title
B ; other TIU data
C ; text blocks, signatures
D ; addenda
ENQ ; end
USER(N,IEN,NAME,ROLE,DATE) ; -- set author, signer(s)
SETUP ; -- convert FILTER("attribute") = value to TIU criteria
; Expects: FILTER("category") = code (see $$CATG)
; FILTER("status") = 'signed','unsigned','all'
; Returns: CLASS,[SUBCLASS,STATUS]
LR() ; -- Return ien of Lab class
MATCH(DOC,STS) ; -- Return 1 or 0, if document DA matches search criteria
MQ
TYPE(X) ; -- Return name of category type X

External References

Name Field # of Occurrence
$$GET1^DIQ A+1, MATCH+7
GETS^DIQ A+4
EN1^RAO7PC1 TIU1+5
$$CLASS^TIUCNSLT SETUP+18
CPCLASS^TIUCP SETUP+30
EXTRACT^TIULQ B+1
$$ISA^TIULX MATCH+10
$$CLASS^TIUSROI SETUP+15, SETUP+27
$$RESOLVE^TIUSRVLO EN1+8
$$FAC^VPRD EN1+15
$$VUID^VPRD A+10
ADD^VPRDJ ENQ+2
$$NAME^VPRDJ04 B+8
$$CP1^VPRDJ08A TIU1+2
$$LR1^VPRDJ08A TIU1+3
$$RA1^VPRDJ08A TIU1+7
$$CATG^VPRDTIU B+4
$$SIG^VPRDTIU USER+7
$$JSONDT^VPRUTILS EN1+12, B+2, D+5, USER+6
$$SETUID^VPRUTILS EN1+10, B+8, C+13, D+4, USER+2
SETTEXT^VPRUTILS C+18, D+11
$$LOW^XLFSTR A+9, SETUP+10
$$UP^XLFSTR SETUP+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^TIU(8925 - [#8925] GET1^DIQ
^TIU(8926.1 - [#8926.1] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC("B" EN1+14
^TIU(8925.1 - [#8925.1] LR+1, LR+2
^TMP("VPRTEXT" C+16
^TMP($J TIU1+6, TIU1+7!, C+17!, C+18, C+19, D+9!, D+11, D+12, ENQ+1!
^VA(200 - [#200] C+14, USER+3

Label References

Name Line Occurrences
$$LR SETUP+32
$$TYPE B+5
EN1 TIU1+2, TIU1+3, TIU1+7, TIU1+8
MQ MATCH+2, MATCH+4, MATCH+6, MATCH+8
USER C+6, C+9, C+10, C+11, D+6, D+7, D+8

Naked Globals

Name Field # of Occurrence
^(0 LR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BEG TIU1+5*
>> CLASS SETUP+7*, SETUP+15*, SETUP+17*, SETUP+18*, SETUP+19*, SETUP+20*, SETUP+21*, SETUP+22*, SETUP+23*, SETUP+25*
SETUP+27*, SETUP+29*, SETUP+30*, SETUP+32*, SETUP+34*
CP SETUP+5~, SETUP+30
DA EN1+7~*, EN1+8, MATCH+1~, MATCH+2*, MATCH+7
DATE USER~, USER+5, USER+6
>> DFN TIU1+2, TIU1+3, TIU1+5, TIU1+6, TIU1+7, EN1+10, B+8, D+4
DOC EN1+3~, MATCH~, MATCH+2, MATCH+4, MATCH+6
DOC("attendingName" C+14*
DOC("attendingUid" C+13*
DOC("documentClass" B+6*
DOC("documentTypeCode" B+5*
DOC("documentTypeName" B+5*
DOC("encounterName" B+8*
DOC("encounterUid" B+8*
DOC("entered" B+2*
DOC("facilityCode" EN1+16*
DOC("facilityName" EN1+16*
DOC("images" EN1+18*
DOC("localId" EN1+10*
DOC("localTitle" EN1+11*
DOC("nationalTitle" A+5*, A+6*, A+10*, A+11*
DOC("parent" EN1+20*
DOC("referenceDateTime" EN1+12*, C+2
DOC("statusName" EN1+17*, C+3
DOC("subject" EN1+19*
DOC("text" C+2*, C+3*, C+4*, C+19*, D+3*, D+4*, D+5*, D+12*, USER+2*, USER+3*
, USER+4*, USER+6*, USER+7*
DOC("uid" EN1+10*, C+4
DOC("urgency" B+3*
>> END TIU1+5*
ERR EN1+3~
ES EN1+3~, C+7*
ES(1208 C+11
ES(1209 C+12
ES(1501 C+8*, C+9
ES(1502 C+8*, C+9
ES(1507 C+10
ES(1508 C+10
FAC EN1+14~
>> FILTER("category" SETUP+6
>> FILTER("status" SETUP+10
FNUM A+3~, A+9*, A+10
I EN1+3~, A+7*, A+8, A+9, A+10, A+11, C+5*, C+6, C+9, C+10
C+11, D+2*, D+6, D+7, D+8, MATCH+9~, MATCH+10*
ID TIU1~, TIU1+1, TIU1+2, TIU1+3, TIU1+4, TIU1+5, TIU1+6, TIU1+7, TIU1+8
IEN EN1+3~, EN1+4*, EN1+10, A+1, B+1, B+2, B+3, B+4, B+7, C+7
C+16, D+1, D+2, D+10, USER~, USER+1, USER+2, USER+3, USER+7
IENS A+3~, A+4*, A+5, A+6, A+8, A+11
LOC EN1+14~*, EN1+15
LOCAL MATCH+1~, MATCH+7*, MATCH+10
N USER~, USER+1*, USER+2, USER+3, USER+4, USER+6, USER+7
NAME A+3~, A+9*, A+11, USER~, USER+3
NATL MATCH+1~
OK MATCH+1~, MATCH+8, MATCH+9*, MATCH+10*
ROLE USER~, USER+4
SHOWADD EN1+7~*
>> STATUS SETUP+7*, SETUP+11*, SETUP+29, SETUP+32, MATCH+4
STS SETUP+5~, SETUP+10*, SETUP+11, MATCH~, MATCH+6
SUB EN1+3~
>> SUBCLASS SETUP+7*, SETUP+18*, SETUP+19*, SETUP+20*, SETUP+21*, SETUP+22*, SETUP+23*, MATCH+8, MATCH+10
TEXT EN1+3~
TIU EN1~, EN1+4*, EN1+6, A+1, A+3~, B+1, B+4, B+7, C+16
TIU( A+5, A+6, A+8, A+11
TYPE SETUP+5~, SETUP+6*, SETUP+14*, SETUP+15, SETUP+17, SETUP+18, SETUP+19, SETUP+20, SETUP+21, SETUP+22
SETUP+23, SETUP+25, SETUP+27, SETUP+28, SETUP+32, SETUP+34
U EN1+4, EN1+8, EN1+9, EN1+11, EN1+12, EN1+13, EN1+16, EN1+17, EN1+18, EN1+19
, EN1+20, A+1, A+9, A+10, A+11, B+7, C+5, C+14, USER+3, LR+2
, MATCH+4, MATCH+6, MATCH+10
VPRA C+1~, D+1*, D+2, D+4, D+10
VPRADD C+1~, D+2!*
VPRADD( D+3
VPRADD(1202 D+6
VPRADD(1301 D+5
VPRADD(1501 D+7
VPRADD(1502 D+7
VPRADD(1507 D+8
VPRADD(1508 D+8
VPRT C+1~, C+5*, D+2*, D+3, D+4, D+5, D+12, USER+2, USER+3, USER+4
, USER+6, USER+7
>> VPRTEXT C+15, D+9
VPRTIU EN1+3~
VPRTIU( B+2, B+3, B+4, B+7, C+7, C+16, D+1, D+2, D+10
VPRX EN1~, EN1+4, EN1+6, EN1+7, EN1+8*, EN1+9, EN1+11, EN1+12, EN1+13, EN1+17
, EN1+18, EN1+19, EN1+20, A+1, B+7, C+5, C+7
VPRY EN1+3~
X EN1+3~, EN1+13*, EN1+14, EN1+15*, EN1+16, EN1+17*, A+1*, A+2, A+4, B+2*
B+3*, B+4*, B+5, B+6, B+7*, B+8, C+5*, C+6, C+7*, C+8
C+12*, C+13, C+14, C+16*, C+18, D+10*, D+11, MATCH+9~, MATCH+10*, TYPE~
, TYPE+1*, TYPE+2, TYPE+3, TYPE+4, TYPE+5, TYPE+6, TYPE+7, TYPE+8, TYPE+9, TYPE+10
, TYPE+11, TYPE+12
X0 MATCH+1~
Y A+3~, A+8*, A+10, LR+1~*, LR+2*, LR+3, MATCH+1~*, MATCH+11*, MQ
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All