VPRDJ08 ;SLC/MKB -- Documents ;6/25/12 16:11
Source file <VPRDJ08.m>
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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Virtual Patient Record | 3 | VPRDJ0 VPRDJ08A VPRSDAT |
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
|
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 |
FileNo | Call Tags |
---|---|
^TIU(8925 - [#8925] | GET1^DIQ |
^TIU(8926.1 - [#8926.1] | GETS^DIQ |
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 |
Name | Field # of Occurrence |
---|---|
^(0 | LR+2 |
>> | 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 |