IBTRH8 ;ALB/JWS - HCSR Worklist - view 278 message in X12 format ;24-AUG-2015
Source file <IBTRH8.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN | ; display message in X12 format
 ; IBTRIEN = ien of file 356.22 ; MSGTYPE = 217 or 215 ; RR = 0 for request / inquiry, 1 for response  | 
|
| PER | ; create PER segment in loop 2010B
 | 
|
| PRV | ; create PRV segment (X12: PRV, 2010B)
 | 
|
| NM1 | ; create NM1 segment (X12: NM1, 2010C)
 | 
|
| NM12010D | ; create NM1 segment, loop 2010D
 | 
|
| EVENT | ; 2000E loop
 ; create G2R.PRB segment (G2R segment group)  | 
|
| REF | ; REF segment
 | 
|
| DTP | ; create DTP segments
 | 
|
| HI | ; create HI segments
 | 
|
| HSD | ; create HSD segment
 | 
|
| CRC | ; create CRC and CL1 segments in loop 2000E
 | 
|
| CR1 | ; create CR1 segment
 | 
|
| CR2 | ; create CR2 segment
 | 
|
| PWK | ; create the PWK segment loop 2000E
 | 
|
| MSG | ; create the MSG segment loop 2000E
 | 
|
| SAVE(X) | ;
 | 
|
| ERROR | ;
 | 
|
| PERR | ; PER segment for response loop 2010A
 | 
|
| HCR | ; HCR segment for response loop 2000E
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^VA(200 - [#200] | GET1^DIQ | 
| ^IBE(353.1 - [#353.1] | GET1^DIQ | 
| ^IBA(355.3 - [#355.3] | GET1^DIQ | 
| ^IBT(356.001 - [#356.001] | GET1^DIQ | 
| ^IBT(356.002 - [#356.002] | GET1^DIQ | 
| ^IBT(356.003 - [#356.003] | GET1^DIQ | 
| ^IBT(356.004 - [#356.004] | GET1^DIQ | 
| ^IBT(356.005 - [#356.005] | GET1^DIQ | 
| ^IBT(356.006 - [#356.006] | GET1^DIQ | 
| ^IBT(356.007 - [#356.007] | GET1^DIQ | 
| ^IBT(356.008 - [#356.008] | GET1^DIQ | 
| ^IBT(356.009 - [#356.009] | GET1^DIQ | 
| ^IBT(356.01 - [#356.01] | GET1^DIQ | 
| ^IBT(356.011 - [#356.011] | GET1^DIQ | 
| ^IBT(356.012 - [#356.012] | GET1^DIQ | 
| ^IBT(356.018 - [#356.018] | GET1^DIQ | 
| ^IBT(356.02 - [#356.02] | GET1^DIQ | 
| ^IBT(356.021 - [#356.021] | GET1^DIQ | 
| ^IBT(356.22 - [#356.22] | EXTERNAL^DILFD | 
| 356.223 | EXTERNAL^DILFD | 
| ^DIC(36 - [#36] | GET1^DIQ | 
| ^IBE(365.013 - [#365.013] | GET1^DIQ | 
| ^IBE(365.015 - [#365.015] | GET1^DIQ | 
| ^IBE(365.016 - [#365.016] | GET1^DIQ | 
| ^IBE(365.025 - [#365.025] | GET1^DIQ | 
| ^DIC(5 - [#5] | GET1^DIQ | 
| ^HL(779.004 - [#779.004] | GET1^DIQ |