PSOVDF1 ;BPOIFO/EL-OUTPATIENT PHARMACY (PRES, PREF, PPAR) HL7 MESSAGE ;10/04/04
Source file <PSOVDF1.m>
Package | Total | Call Graph |
---|---|---|
Outpatient Pharmacy | 3 | ($$NDC,NDC)^PSOHDR (OUT,OUT20,PROCESS)^PSOVDF2 (FT1R,PREM,RREM,RXE31,RXE31A)^PSOVDF3 |
Health Level Seven | 2 | $$PARAM^HLCS2 $$HLDATE^HLFNC |
Registration | 2 | BLDPID^VAFCQRY $$SITE^VASITE |
Uncategorized | 2 | $$XCN200^VDEFEL ERR^VDEFREQ |
VA Fileman | 2 | $$ROOT^DILFD $$GET1^DIQ |
Name | Comments | DBIA/ICR reference |
---|---|---|
NTE3 | ; PAR
|
|
NTE2 | ; RF
|
|
ORC2Q | ; Q
|
|
RXE3Q | ; Q
|
|
VALID | ;;VDEF HL7 MESSAGE BUILDER
|
|
MSH | ; MSH
|
|
RXE3 | ; PAR
|
|
RXE2 | ; RF
|
|
ORC2A | ||
RXE3B | ||
FT13 | ; patch 261
|
|
FT12 | ; RF
; patch 261 - FT1 |
|
MSHPID | ;
|
|
OUT20 | ||
PID | ; PID
|
|
INIT | ;
|
|
NTE2Q | ; Q
|
|
OUT | ||
FT12Q | ; Q
|
|
RXE2Q | ; Q
|
|
ORC2 | ; RF
|
|
ORC3 | ; PAR
|
|
EN(EVIEN,KEY,VFLAG,OUT,MSHP) | ;
; This routine creates one of three Outpatient Pharmacy HL7 messages: ; RDE^O11^PRES, RDS^O13^PREF, or RDS^O13^PPAR |
|
REPL(L) | ; REPLACE HL7 DELIMITER CHAR
|
|
RXE2A | ||
ORC3Q | ; Q
|
|
ORC3A | ||
QUIT | ||
NTE3Q | ; Q
|
|
PUT(P) | ; Put in MSG
|
Name | Field # of Occurrence |
---|---|
$$ROOT^DILFD | INIT+17 |
$$GET1^DIQ | RXE2+20, RXE3+20 |
$$PARAM^HLCS2 | MSH+2 |
$$HLDATE^HLFNC | ORC2A+6, ORC2A+9, ORC2A+13, RXE2+4, RXE2A, ORC3A+6, ORC3A+9, RXE3+4, RXE3B |
$$NDC^PSOHDR | RXE2+8, RXE3+8 |
NDC^PSOHDR | RXE2+7, RXE3+7 |
OUT^PSOVDF2 | OUT |
OUT20^PSOVDF2 | OUT20 |
PROCESS^PSOVDF2 | EN+30 |
FT1R^PSOVDF3 | FT12+2, FT13+1 |
PREM^PSOVDF3 | NTE3+6 |
RREM^PSOVDF3 | NTE2+6 |
RXE31^PSOVDF3 | RXE3B+2 |
RXE31A^PSOVDF3 | RXE2A+3 |
BLDPID^VAFCQRY | PID+3 |
$$SITE^VASITE | INIT+23 |
$$XCN200^VDEFEL | ORC2A+15, RXE2+25, ORC3A+11, RXE3+25 |
ERR^VDEFREQ | EN+27, EN+29 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | INIT+21 |
^PS(59 - [#59] | ORC2A+20, ORC3A+16 |
^PSDRUG - [#50] | RXE2+10, RXE3+10 |
^PSRX - [#52] | ORC2A+17, ORC3A+13 |
Name | Line Occurrences |
---|---|
$$REPL | INIT+22, INIT+23, MSH+3, ORC2A+3, ORC2A+6, ORC2A+9, ORC2A+13, ORC2A+21, ORC2A+22, ORC2A+24 , RXE2+4, RXE2+12, RXE2+20, RXE2+22, RXE2A, RXE2A+2, NTE2+5, ORC3A+3, ORC3A+6, ORC3A+9 , ORC3A+17, ORC3A+18, ORC3A+20, RXE3+4, RXE3+12, RXE3+20, RXE3+22, RXE3B, RXE3B+1, NTE3+5 |
INIT | EN+26 |
MSHPID | EN+28 |
NTE2Q | NTE2+3 |
NTE3Q | NTE3+3 |
ORC2 | EN+31 |
ORC2A | ORC2A+2, FT12Q+1 |
ORC2Q | ORC2A+29 |
ORC3 | ORC2+1, ORC2A |
ORC3A | ORC3A+2, FT13+2 |
ORC3Q | ORC3A+24 |
OUT | ORC2A+31, RXE2A+6, NTE2+7, ORC3A+26, RXE3B+6, NTE3+7 |
OUT20 | PID+6 |
PUT | ORC2A+3, ORC2A+10, ORC2A+11, ORC2A+13, ORC2A+15, ORC2A+16, ORC2A+18, ORC2A+26, ORC2A+27, ORC2A+28 , RXE2+4, RXE2+13, RXE2+14, RXE2+15, RXE2+17, RXE2+20, RXE2+22, RXE2+25, RXE2A, RXE2A+2 , RXE2A+4, NTE2+4, NTE2+6, ORC3A+3, ORC3A+6, ORC3A+7, ORC3A+9, ORC3A+11, ORC3A+12, ORC3A+14 , ORC3A+22, ORC3A+23, RXE3+4, RXE3+13, RXE3+14, RXE3+15, RXE3+17, RXE3+20, RXE3+22, RXE3+25 , RXE3B, RXE3B+1, RXE3B+3, NTE3+4, NTE3+6 |
QUIT | EN+27, EN+29 |
RXE2A | RXE2+24 |
RXE2Q | RXE2A+5 |
RXE3B | RXE3+24 |
RXE3Q | RXE3B+5 |
Name | Field # of Occurrence |
---|---|
^("SAND" | ORC2A+20, ORC3A+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CTR | EN+21~ |
DFN | EN+21~, INIT+2*, INIT+19*, INIT+20, INIT+21, PID+3, PID+4 |
DRCODE | EN+21~, INIT+2* |
ERR | EN+21~, EN+25*, EN+27, EN+29, INIT+20*, INIT+21*, PID+3, PID+4* |
EVIEN | EN~ |
FIELD | EN+21~ |
FILE | EN+21~, INIT+2*, INIT+7*, INIT+17, MSH+3 |
GIVECODE | EN+21~, INIT+2*, RXE2+13, RXE2+14, RXE3+13, RXE3+14 |
GL | EN+21~, INIT+1!, INIT+18* |
GL("P" | ORC3+1, ORC3+2 |
GL(0 | INIT+19 |
GL(1 | ORC2+1, ORC2+2 |
GLOB | EN+21~, INIT+2*, INIT+17*, INIT+18 |
GLOBAL | EN+21~ |
>> HL | PID+3 |
>> HL("ECH" | INIT+9*, INIT+16 |
>> HL("FS" | INIT+14*, INIT+16 |
HL7DEL | EN+23~, INIT+3*, INIT+16*, REPL+2 |
HLINST | EN+21~, MSH+1*, MSH+3*, ORC2A+23, ORC3A+19 |
I | EN+22~, REPL+7*, REPL+8*, REPL+9*, REPL+10*, REPL+11* |
KEY | EN~, INIT+5 |
L | EN+22~, REPL~, REPL+1, REPL+2, REPL+4, REPL+5 |
MSG | EN+22~, PUT+2*, MSH+1*, MSH+4, PID+2*, ORC2A+1*, ORC2A+29, ORC2A+30*, ORC2A+31*, RXE2+1* , RXE2A+5, RXE2A+6*, NTE2+1*, NTE2+7*, ORC3A+1*, ORC3A+24, ORC3A+25*, ORC3A+26*, RXE3+1*, RXE3B+5 , RXE3B+6*, NTE3+1*, NTE3+7* |
MSHP | EN~, INIT+8 |
NTE | EN+22~ |
OUT | EN~, INIT+1! |
OUT("HLS" | INIT+4* |
P | EN+22~, PUT~, PUT+2 |
PSONCPR | ORC3A+15~, ORC3A+17*, ORC3A+20 |
PSONCPRP | ORC3A+15~, ORC3A+16*, ORC3A+20* |
PSONCRF | ORC2A+19~, ORC2A+21*, ORC2A+24 |
PSONCRFP | ORC2A+19~, ORC2A+20*, ORC2A+24* |
PSOSPNUM | ORC3A+15~, ORC3A+18*, ORC3A+19 |
PSOSTNUM | ORC2A+19~, ORC2A+22*, ORC2A+23 |
PSOVD59 | EN+21~, ORC2A+18*, ORC2A+25, ORC3A+14*, ORC3A+21 |
PSOVDDIV | EN+21~ |
PSOVDDIV( | ORC2A+18, ORC2A+25*, ORC3A+14, ORC3A+21* |
PSOVDFD0 | EN+21~, INIT+2*, INIT+5*, INIT+17, INIT+20, INIT+21, INIT+22, PID+4, ORC2A+17, RXE2+8 , RXE2+20, ORC3A+13, RXE3+8, RXE3+20 |
PSOVDFD1 | EN+21~, ORC2+3*, ORC2A*, ORC2A+2, ORC2A+3, ORC2A+28, RXE2+8, RXE2+9, RXE2+20, NTE2+4 , ORC3+3*, ORC3A*, ORC3A+2, ORC3A+3, RXE3+8, RXE3+9, RXE3+20, NTE3+4 |
PSOVDFES | EN+22~, INIT+2*, INIT+22*, ORC2A+11, ORC3A+7 |
PSOVDFIN | EN+22~, INIT+23*, ORC2A+27, ORC3A+23 |
PSOVDRUG | EN+21~, INIT+2*, RXE2+10, RXE3+10 |
PSOVERR | EN+21~, RXE2+20!, RXE3+20! |
PSOVESC | EN+22~, ORC2A+3*, ORC3A+3* |
REPSEPC | EN+23~, INIT+3*, INIT+11*, REPL+8 |
REPSEPE | EN+23~, INIT+3*, INIT+10*, REPL+6, REPL+7 |
REPSEPF | EN+23~, INIT+3*, INIT+15*, REPL+11 |
REPSEPR | EN+23~, INIT+3*, INIT+12*, REPL+9 |
REPSEPS | EN+23~, INIT+3*, INIT+13*, REPL+10 |
RES | EN+22~, REPL+3~, REPL+4*, REPL+5, REPL+6*, REPL+7*, REPL+8*, REPL+9*, REPL+10*, REPL+11* , REPL+12 |
SEPC | EN+22~, INIT+2*, INIT+11*, REPL+8, ORC2A+6, ORC2A+9, ORC2A+11, ORC2A+18, ORC2A+23, ORC2A+24 , ORC2A+28, RXE2+4, RXE2+13, RXE2+20, ORC3A+6, ORC3A+7, ORC3A+14, ORC3A+19, ORC3A+20, RXE3+4 , RXE3+13, RXE3+20 |
SEPE | EN+22~, INIT+2*, INIT+10*, INIT+11, INIT+12, INIT+13, INIT+15, REPL+5, REPL+6, REPL+7 |
SEPF | EN+22~, INIT+2*, INIT+15*, PUT+2, REPL+11, MSH+4, ORC2A+31, RXE2A+6, NTE2+7, ORC3A+26 , RXE3B+6, NTE3+7 |
SEPR | EN+22~, INIT+2*, INIT+12*, REPL+9 |
SEPS | EN+22~, INIT+2*, INIT+13*, REPL+10 |
>> SITEPARM | MSH+2*, MSH+3 |
SRC | EN+22~, INIT+2*, MSH+1*, MSH+3* |
SUBTYPE | EN+22~, INIT+2*, INIT+8* |
TARGET | EN+22~, EN+25*, QUIT, MSH+4* |
TEMP | EN+23~, INIT+1!, ORC2+2!*, ORC3+2!* |
TEMP( | ORC2A, ORC2A+2, RXE2+9, ORC3A, ORC3A+2, RXE3+9 |
TP | EN+23~, INIT+1!, ORC2A+2*, ORC2A+5, ORC2A+8, ORC2A+13, ORC2A+15, ORC2A+17, RXE2+3, RXE2+22 , RXE2+24, RXE2A, RXE2A+2, NTE2+3, ORC3A+2*, ORC3A+5, ORC3A+9, ORC3A+11, ORC3A+13, RXE3+3 , RXE3+22, RXE3+24, RXE3B, RXE3B+1, NTE3+3 |
U | INIT+6*, INIT+19, MSH+3, PID+5, ORC2A+5, ORC2A+8, ORC2A+13, ORC2A+15, ORC2A+17, ORC2A+21 , ORC2A+22, ORC2A+30, RXE2+3, RXE2+9, RXE2+22, RXE2+24, RXE2A, RXE2A+2, NTE2+3, ORC3A+5 , ORC3A+9, ORC3A+11, ORC3A+13, ORC3A+17, ORC3A+18, ORC3A+25, RXE3+3, RXE3+9, RXE3+22, RXE3+24 , RXE3B, RXE3B+1, NTE3+3 |
UNIT | EN+23~, INIT+2*, RXE2+17, RXE3+17 |
VAL | EN+23~, INIT+2*, INIT+9*, INIT+10, INIT+11, INIT+12, INIT+13, INIT+14*, INIT+15, PUT+1 , PUT+2, ORC2A+3*, ORC2A+5*, ORC2A+6*, ORC2A+9*, ORC2A+11*, ORC2A+13*, ORC2A+15*, ORC2A+16*, ORC2A+17* , ORC2A+18*, ORC2A+20, ORC2A+21*, ORC2A+23*, ORC2A+24*, ORC2A+25, ORC2A+27*, ORC2A+28*, RXE2+3*, RXE2+4* , RXE2+6*, RXE2+8*, RXE2+9*, RXE2+10*, RXE2+11, RXE2+12*, RXE2+13*, RXE2+14*, RXE2+15*, RXE2+17* , RXE2+19*, RXE2+20*, RXE2+22*, RXE2+24*, RXE2+25*, RXE2A*, RXE2A+2*, NTE2+4*, NTE2+5*, ORC3A+3* , ORC3A+6*, ORC3A+7*, ORC3A+9*, ORC3A+11*, ORC3A+12*, ORC3A+13*, ORC3A+14*, ORC3A+16, ORC3A+17*, ORC3A+19* , ORC3A+20*, ORC3A+21, ORC3A+23*, RXE3+4*, RXE3+6*, RXE3+8*, RXE3+9*, RXE3+10*, RXE3+11, RXE3+12* , RXE3+13*, RXE3+14*, RXE3+15*, RXE3+17*, RXE3+19*, RXE3+20*, RXE3+22*, RXE3+24*, RXE3+25*, RXE3B* , RXE3B+1*, NTE3+4*, NTE3+5* |
VCMP | EN+23~ |
VCMP( | ORC2A+28 |
VFLAG | EN~ |
VFT7 | EN+23~ |
WR | EN+23~, PID+1!, PID+3, PID+7!, ORC2A+5*, ORC2A+6*, ORC2A+8*, ORC2A+9*, RXE2+3*, RXE2+4* , RXE2+19*, RXE2+20*, NTE2+3*, NTE2+5, ORC3A+5*, ORC3A+6*, RXE3+3*, RXE3+4*, RXE3+19*, RXE3+20* , NTE3+3*, NTE3+5 |
WR(1 | PID+4, PID+5* |
X | EN+23~, REPL+3~, REPL+5*, REPL+6*, REPL+7*, ORC2A+20*, ORC2A+21, ORC2A+22, RXE2+13*, ORC3A+16* , ORC3A+17, ORC3A+18, RXE3+13* |
Y | EN+23~, REPL+3~, REPL+6*, REPL+7*, REPL+8*, REPL+9*, REPL+10*, REPL+11* |
Z | EN+23~, REPL+3~, REPL+6*, REPL+7* |
>> ZTSTOP | EN+27*, EN+29* |
Name | Field # of Occurrence |
---|---|
$T(NDC^PSOHDR | RXE2+7, RXE3+7 |