VPRDSR ;SLC/MKB -- Surgical Procedures ;8/2/11 15:29
Source file <VPRDSR.m>
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 | 2 | VPRDJ07 VPRDPROC |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(DFN,BEG,END,MAX,ID) | ; -- find patient's surgeries
|
|
ENQ | ; end
|
|
ONE(NUM,SURG) | ; -- return a surgery in SURG("attribute")=value
; Expects DFN, @VPRY@(NUM) from LIST^SROESTV |
|
EN1(IEN,SURG) | ; -- return a surgery in SURG("attribute")=value
|
|
CPT(IEN) | ; -- return code^description for CPT code, or "^" if error
|
|
XML(SURG) | ; -- Return surgery as XML
|
|
LOOP() | ; -- build sub-items string from NAMES and X
|
|
ADD(X) | ; -- Add a line @VPR@(n)=X
|
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | ONE+9, ONE+10, ONE+11, EN1+9, EN1+10, EN1+11 |
GETS^DIQ | ONE+13, ONE+17, EN1+13, EN1+17 |
$$CPT^ICPTCOD | CPT+2 |
$$CPTD^ICPTCOD | CPT+4 |
$$MOD^ICPTMOD | ONE+15, EN1+15 |
LIST^SROESTV | EN+9, EN+11 |
ONE^SROESTV | EN1+4 |
$$ESC^VPRD | XML+13, XML+17, LOOP+2 |
$$FAC^VPRD | ONE+9, EN1+9 |
$$PROVSPC^VPRD | ONE+8, EN1+8 |
$$PROVTAGS^VPRD | XML+18 |
$$INFO^VPRDTIU | ONE+22, EN1+22 |
$$TEXT^VPRDTIU | ONE+24, EN1+24 |
FileNo | Call Tags |
---|---|
^SRF - [#130] | GET1^DIQ |
^SRO(136 - [#136] | GET1^DIQ, GETS^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("VPRTEXT" | ENQ+1!, ONE+3!, EN1+2! |
Name | Line Occurrences |
---|---|
$$CPT | ONE+12, ONE+20, EN1+12, EN1+20 |
$$LOOP | XML+9, XML+19 |
ADD | XML+2, XML+3, XML+5, XML+10, XML+11, XML+12, XML+13, XML+14, XML+15, XML+20 |
EN1 | EN+6 |
ENQ | EN+6 |
ONE | EN+13 |
XML | EN+6, EN+14 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ATT | XML+1~, XML+3*, XML+4, XML+5, XML+6, XML+7, XML+8, XML+9, XML+10, XML+14 , XML+15, XML+16, XML+17, XML+18, XML+19 |
BEG | EN~, EN+3*, EN+11 |
DFN | EN~, EN+2*, EN+11 |
END | EN~, EN+3*, EN+11 |
I | ONE+2~, ONE+14*, ONE+15, ONE+16, ONE+18*, ONE+19, ONE+20, ONE+21*, ONE+23, ONE+24 , EN1+1~, EN1+14*, EN1+15, EN1+16, EN1+18*, EN1+19, EN1+20, EN1+21*, EN1+23, EN1+24 , CPT+1~, CPT+6*, CPT+7*, XML+1~, XML+6*, XML+7, XML+10 |
ID | EN~, EN+6 |
IEN | ONE+2~, ONE+4*, ONE+5, ONE+9, ONE+10, ONE+11, ONE+13, ONE+17, EN1~, EN1+4 , EN1+5, EN1+9, EN1+10, EN1+11, EN1+13, EN1+17, EN1+21, CPT~, CPT+1*, CPT+2 |
J | XML+1~, XML+13* |
MAX | EN~, EN+3*, EN+11 |
N | CPT+1~, CPT+4*, CPT+5 |
NAMES | XML+1~, XML+7*, XML+8*, XML+18*, LOOP+2 |
NUM | ONE~, ONE+4, ONE+21 |
P | LOOP+1~, LOOP+2* |
SHOWADD | EN+10~*, EN1+1~, EN1+3* |
STR | LOOP+1~*, LOOP+2*, LOOP+3 |
SURG | ONE~, ONE+3!, EN1~, EN1+2!, XML~ |
SURG( | XML+3, XML+4, XML+6, XML+7, XML+10, XML+16 |
SURG("category" | ONE+26*, EN1+26* |
SURG("dateTime" | ONE+7*, EN1+7* |
SURG("document" | ONE+23*, ONE+24*, EN1+23*, EN1+24* |
SURG("encounter" | ONE+10*, EN1+10* |
SURG("facility" | ONE+9*, EN1+9* |
SURG("id" | ONE+5*, EN1+5* |
SURG("modifier" | ONE+16*, EN1+16* |
SURG("name" | ONE+7*, EN1+7* |
SURG("opReport" | ONE+25*, EN1+25* |
SURG("otherProcedure" | ONE+20*, EN1+20* |
SURG("provider" | ONE+8*, EN1+8* |
SURG("status" | ONE+5*, ONE+6*, EN1+5*, EN1+6* |
SURG("type" | ONE+12*, EN1+12* |
TAG | LOOP+1~, LOOP+2* |
U | ONE+4, ONE+5, ONE+7, ONE+8, ONE+16, EN1+5, EN1+7, EN1+8, EN1+16, CPT+3 , CPT+4, CPT+8, LOOP+2 |
>> VPR | ADD+2 |
VPRCNT | EN+1~ |
>> VPRI | ADD+1*, ADD+2 |
VPRITM | EN+1~, EN+6, EN+13!, EN+14 |
VPRMOD | ONE+2~, EN1+1~ |
VPRMOD( | ONE+14, ONE+15, EN1+14, EN1+15 |
VPRN | EN+1~, EN+12*, EN+13 |
VPROTH | ONE+2~, EN1+1~ |
VPROTH( | ONE+18, ONE+19, EN1+18, EN1+19 |
>> VPRTEXT | ONE+24, EN1+24 |
>> VPRTOTL | XML+2* |
VPRX | ONE+2~, ONE+4*, ONE+5, ONE+7, ONE+8, EN1+1~, EN1+4*, EN1+5, EN1+7, EN1+8 , CPT+1~ |
VPRX( | CPT+7 |
VPRX(1 | CPT+5, CPT+6 |
VPRY | EN+1~, EN+11, EN+12, EN+15, ONE+4, ONE+21, EN1+1~ |
VPRY( | EN1+4, EN1+21 |
X | ONE+2~, ONE+5*, ONE+6*, ONE+7, ONE+8*, ONE+9*, ONE+11*, ONE+12, ONE+15*, ONE+19* , ONE+20, ONE+21*, ONE+22, ONE+24, EN1+1~, EN1+5*, EN1+6*, EN1+7, EN1+8*, EN1+9* , EN1+11*, EN1+12, EN1+15*, EN1+19*, EN1+20, EN1+21*, EN1+22, EN1+24, CPT+1~, CPT+6* , CPT+7*, CPT+8, XML+1~, XML+7*, XML+10*, XML+13, XML+16*, XML+17, XML+19, LOOP+2 , ADD~, ADD+2 |
X0 | CPT+1~, CPT+2*, CPT+3 |
Y | ONE+2~, ONE+15*, ONE+16, ONE+22*, ONE+23, ONE+25, EN1+1~, EN1+15*, EN1+16, EN1+22* , EN1+23, EN1+25, CPT+1~, CPT+3*, CPT+4, CPT+8*, CPT+9, XML+1~, XML+3, XML+4* , XML+9*, XML+10*, XML+11*, XML+12*, XML+13*, XML+16*, XML+17*, XML+19* |
Name | Field # of Occurrence |
---|---|
$T(LIST^SROESTV | EN+9 |