Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ABME8TMP

ABME8TMP.m

Go to the documentation of this file.
  1. ABME8TMP ; IHS/ASDST/DMJ - 837 TMP Segment
  1. ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
  1. ;Transaction Set Header
  1. ;
  1. START ;START HERE
  1. K ABMREC("TMP"),ABMR("TMP")
  1. S ABME("RTYPE")="TMP"
  1. D LOOP
  1. K ABME,ABM
  1. Q
  1. LOOP ;LOOP HERE
  1. F I=10:10:30 D
  1. .D @I
  1. .I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),ABME("RTYPE"),I)) D @(^(I))
  1. .I $G(ABMREC("TMP"))'="" S ABMREC("TMP")=ABMREC("TMP")_"*"
  1. .S ABMREC("TMP")=$G(ABMREC("TMP"))_ABMR("TMP",I)
  1. Q
  1. 10 ;segment
  1. S ABMR("TMP",10)="TMP"
  1. Q
  1. 20 ;TMP01 - Transaction Set Identifier Code
  1. S ABMR("TMP",20)=""
  1. Q
  1. 30 ;TMP02 - File Sequence & Serial Number
  1. S ABMR("TMP",30)=""
  1. Q