©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SCMCHLB1 ;BPOI/DJB - PCMM HL7 Bld Segment Array Cont.;8/17/99
Source file <SCMCHLB1.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 1 | (@(,BLDZPC,CPYZPC,SEGMENTS)^SCMCHLS |
| Package | Total | Caller Graph |
|---|---|---|
| Scheduling | 4 | SCMCCV6 SCMCHLB SCMCHLB2 SCMCTSK1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADJID(ARRAY,SCIEN) | ;Adjust ID to include Pt Tm Pos Assign pointer
|
|
| DFN(ND) | ;Find DFN from zero node of Patient Team Position Assign (404.43).
|
|
| SEGMENTS(DFN,SUB) | ;Build EVN & PID segments
|
|
| ZPC(ARRAY,DELETE) | ;Loop thru array and build array of ZPC segments.
|
|
| CHECK(VARPTR) | ;Validate event variable pointer.
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCPT(404.42 - [#404.42] | DFN+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADJID | ADJID+7~, ADJID+16*, ADJID+17 |
| ARRAY | ZPC~, ADJID~, ADJID+21!, ADJID+22* |
| ARRAY( | ZPC+15, ZPC+17, ZPC+19, ZPC+20, ADJID+11, ADJID+13, ADJID+15, ADJID+17 |
| CHK | CHECK+11~, CHECK+18*, CHECK+22* |
| DATA | ZPC+12~, ZPC+20*, ZPC+21*, ZPC+24, ZPC+25, ZPC+26, ZPC+27, ZPC+34*, ZPC+38* |
| DATE | ZPC+12~ |
| DATE(10 | ZPC+25*, ZPC+30*, ZPC+31*, ZPC+34 |
| DATE(14 | ZPC+26*, ZPC+28 |
| DATE(15 | ZPC+27*, ZPC+29, ZPC+30, ZPC+31 |
| DATE(9 | ZPC+24*, ZPC+28*, ZPC+34 |
| DELETE | ZPC~, ZPC+21 |
| DFN | SEGMENTS~, SEGMENTS+11, DFN+7*, DFN+8*, DFN+9 |
| DT | SEGMENTS+13 |
| EVNTDATE | SEGMENTS+8~, SEGMENTS+13* |
| EVNTHL7 | SEGMENTS+8~, SEGMENTS+14*, SEGMENTS+17 |
| GLB | CHECK+11~, CHECK+25*, CHECK+26 |
| ID | ZPC+12~, ZPC+18*, ZPC+19*, ZPC+20, ZPC+37, ADJID+7~, ADJID+14*, ADJID+15*, ADJID+16, ADJID+17 |
| ID1 | ZPC+12~ |
| LINETAG | SEGMENTS+7~, SEGMENTS+26*, SEGMENTS+27, SEGMENTS+28*, SEGMENTS+29, ZPC+12~ |
| ND | DFN~, DFN+7 |
| NUM | ADJID+7~, ADJID+10*, ADJID+11*, ADJID+13, ADJID+15, ADJID+17 |
| >> ROLE | ZPC+37*, ZPC+38 |
| >> SCGLB | CHECK+14*, CHECK+19, CHECK+20, CHECK+21, CHECK+25 |
| SCIEN | ADJID~, ADJID+16, CHECK+13*, CHECK+17, CHECK+25 |
| SEGMENTS | SEGMENTS+7~ |
| SEGMENTS( | SEGMENTS+21, SEGMENTS+23, SEGMENTS+25 |
| SEGNAME | SEGMENTS+7~, SEGMENTS+22*, SEGMENTS+23*, SEGMENTS+24, SEGMENTS+25, SEGMENTS+26, SEGMENTS+28 |
| SEGORD | SEGMENTS+7~, SEGMENTS+20*, SEGMENTS+21*, SEGMENTS+23, SEGMENTS+25 |
| SUB | SEGMENTS~, SEGMENTS+12, ZPC+12~, ZPC+14*, ZPC+15*, ZPC+17, ZPC+19, ZPC+20 |
| TMP | ADJID+7~, ADJID+20, ADJID+22 |
| TMP( | ADJID+17* |
| TYPE | ZPC+12~, ZPC+16*, ZPC+17*, ZPC+19, ZPC+20, ADJID+7~, ADJID+12*, ADJID+13*, ADJID+15, ADJID+17 |
| U | ZPC+24, ZPC+25, ZPC+26, ZPC+27, ZPC+34, DFN+7, DFN+8 |
| VAFARRY | SEGMENTS+8~ |
| VAFEVN | SEGMENTS+8~ |
| VAFPID | SEGMENTS+8~ |
| VAFSTR | SEGMENTS+8~, SEGMENTS+25* |
| VAFZPC | ZPC+12~ |
| VARPTR | CHECK~, CHECK+13, CHECK+14 |