- ABME8TMP ; IHS/ASDST/DMJ - 837 TMP Segment
- ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- ;Transaction Set Header
- ;
- START ;START HERE
- K ABMREC("TMP"),ABMR("TMP")
- S ABME("RTYPE")="TMP"
- D LOOP
- K ABME,ABM
- Q
- LOOP ;LOOP HERE
- F I=10:10:30 D
- .D @I
- .I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),ABME("RTYPE"),I)) D @(^(I))
- .I $G(ABMREC("TMP"))'="" S ABMREC("TMP")=ABMREC("TMP")_"*"
- .S ABMREC("TMP")=$G(ABMREC("TMP"))_ABMR("TMP",I)
- Q
- 10 ;segment
- S ABMR("TMP",10)="TMP"
- Q
- 20 ;TMP01 - Transaction Set Identifier Code
- S ABMR("TMP",20)=""
- Q
- 30 ;TMP02 - File Sequence & Serial Number
- S ABMR("TMP",30)=""
- Q
- ABME8TMP ; IHS/ASDST/DMJ - 837 TMP Segment
- +1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- +2 ;Transaction Set Header
- +3 ;
- START ;START HERE
- +1 KILL ABMREC("TMP"),ABMR("TMP")
- +2 SET ABME("RTYPE")="TMP"
- +3 DO LOOP
- +4 KILL ABME,ABM
- +5 QUIT
- LOOP ;LOOP HERE
- +1 FOR I=10:10:30
- Begin DoDot:1
- +2 DO @I
- +3 IF $DATA(^ABMEXLM("AA",+$GET(ABMP("INS")),+$GET(ABMP("EXP")),ABME("RTYPE"),I))
- DO @(^(I))
- +4 IF $GET(ABMREC("TMP"))'=""
- SET ABMREC("TMP")=ABMREC("TMP")_"*"
- +5 SET ABMREC("TMP")=$GET(ABMREC("TMP"))_ABMR("TMP",I)
- End DoDot:1
- +6 QUIT
- 10 ;segment
- +1 SET ABMR("TMP",10)="TMP"
- +2 QUIT
- 20 ;TMP01 - Transaction Set Identifier Code
- +1 SET ABMR("TMP",20)=""
- +2 QUIT
- 30 ;TMP02 - File Sequence & Serial Number
- +1 SET ABMR("TMP",30)=""
- +2 QUIT