SCMCHLL ;BP/DJB - PCMM HL7 Log Transmission ; 3/2/00 12:59pm
Source file <SCMCHLL.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 1 | $$NOW^XLFDT |
Scheduling | 1 | $$CONVERT^SCMCHLRI |
VA FileMan | 1 | (FILE,UPDATE)^DIE |
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 |
---|---|---|
Scheduling | 1 | SCMCHLG |
Name | Comments | DBIA/ICR reference |
---|---|---|
LOG | ;Record HL7 messages in PCMM HL7 TRANSMISSION LOG file.
|
|
GETDATA | ;Go thru HL7 array and build array of data in ^TMP("PCMM","LOG",$J).
|
|
ADD | ;Process data array built in GETDATA
|
|
CREATE(MSGID) | ;Create new entry
; Input: Message Control ID |
|
STORE(TRANI) | ;Store data
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SCPT(404.471 - [#404.471] | STORE+9 |
^SCTM(404.52 - [#404.52] | STORE+17 |
^TMP("HLS" | GETDATA+3 |
^TMP("PCMM" | LOG+7!, LOG+11*, LOG+12*, LOG+17!, GETDATA+10*, GETDATA+16*, ADD+2, STORE+12, STORE+13, STORE+23 |
Name | Field # of Occurrence |
---|---|
^( | GETDATA+4, STORE+24 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | GETDATA+1~, GETDATA+2*, GETDATA+3*, GETDATA+4, STORE+5~, STORE+22*, STORE+25*, STORE+26 |
DATA | GETDATA+1~, GETDATA+4*, GETDATA+5, GETDATA+9, GETDATA+14, GETDATA+15 |
DFN | GETDATA+1~, GETDATA+9*, GETDATA+10 |
FS | LOG+4~, LOG+8*, GETDATA+5 |
>> HL("FS" | LOG+8 |
>> HLRESLT | LOG+9 |
MSGID | LOG+4~, LOG+9*, LOG+11, CREATE~, CREATE+6 |
SCERR | CREATE+5~, CREATE+8, STORE+5~, STORE+19! |
SCFDA | CREATE+5~, STORE+5~, STORE+19! |
SCFDA( | CREATE+6*, STORE+12*, STORE+13*, STORE+14*, STORE+15, STORE+16*, STORE+17*, STORE+27*, STORE+28* |
SCIEN | CREATE+5~, STORE+5~ |
SCIEN(1 | CREATE+9 |
SCIENS | STORE+5~, STORE+11*, STORE+12, STORE+13, STORE+14, STORE+15, STORE+16, STORE+17, STORE+26 |
SCIENS1 | STORE+5~, STORE+26*, STORE+27, STORE+28 |
SEG | GETDATA+1~, GETDATA+5*, GETDATA+8, GETDATA+13 |
SEQ | GETDATA+1~, GETDATA+14*, GETDATA+16, STORE+5~, STORE+22*, STORE+23*, STORE+24, STORE+27 |
TDATE | LOG+4~, LOG+10*, LOG+12 |
TRANI | ADD+1~, ADD+2*, ADD+3, ADD+4, STORE~, STORE+8, STORE+9, STORE+11 |
U | GETDATA+9, GETDATA+14, GETDATA+15, STORE+17 |
>> VARPTR | STORE+16, STORE+17 |
>> WORK | STORE+15 |
ZPCID | GETDATA+1~, GETDATA+15*, GETDATA+16, STORE+5~, STORE+24*, STORE+28 |