ABMER91.m

ABMER91 ; IHS/ASDST/DMJ - UB92 EMC RECORD 91 (Remarks) ; 

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;Original;DMJ;

START ;START HERE

 K ABMR(91),ABMREC(91)

 S ABME("RTYPE")=91

 D SET^ABMERUTL,LOOP

 K ABM,ABME

 Q

LOOP ;LOOP HERE

 F I=10:10:50 D

 .D @I

 .I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),91,I)) D @(^(I))

 .I '$G(ABMP("NOFMT")) S ABMREC(91)=$G(ABMREC(91))_ABMR(91,I)

 Q

10 ;Record type

 S ABMR(91,10)=91

 Q

20 ;Filler (National Use)

 S ABMR(91,20)=""

 S ABMR(91,20)=$$FMT^ABMERUTL(ABMR(91,20),2)

 Q

30 ;Patient Control Number, (SOURCE: FILE=9000001.41,FIELD=.02)

 S ABMR(91,30)=$$EX^ABMER20(30,ABMP("BDFN"))

 S ABMR(91,30)=$$FMT^ABMERUTL(ABMR(91,30),20)

 Q

40 ;Remarks (SOURCE: FILE=9002274.4, FIELD=)

 S ABMR(91,40)=""

 S ABMR(91,40)=$$FMT^ABMERUTL(ABMR(91,40),82)

 Q

50 ;Filler (National Use)

 S ABMR(91,50)=""

 S ABMR(91,50)=$$FMT^ABMERUTL(ABMR(91,50),86)

 Q

ABMER91   ; IHS/ASDST/DMJ - UB92 EMC RECORD 91 (Remarks) ; 

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;Original;DMJ;

START     ;START HERE

 +1        KILL ABMR(91),ABMREC(91)

 +2        SET ABME("RTYPE")=91

 +3        DO SET^ABMERUTL

           DO LOOP

 +4        KILL ABM,ABME

 +5        QUIT 

LOOP      ;LOOP HERE

 +1        FOR I=10:10:50

               Begin DoDot:1

 +2                DO @I

 +3                IF $DATA(^ABMEXLM("AA",+$GET(ABMP("INS")),+$GET(ABMP("EXP")),91,I))

                       DO @(^(I))

 +4                IF '$GET(ABMP("NOFMT"))

                       SET ABMREC(91)=$GET(ABMREC(91))_ABMR(91,I)

               End DoDot:1

 +5        QUIT 

10        ;Record type

 +1        SET ABMR(91,10)=91

 +2        QUIT 

20        ;Filler (National Use)

 +1        SET ABMR(91,20)=""

 +2        SET ABMR(91,20)=$$FMT^ABMERUTL(ABMR(91,20),2)

 +3        QUIT 

30        ;Patient Control Number, (SOURCE: FILE=9000001.41,FIELD=.02)

 +1        SET ABMR(91,30)=$$EX^ABMER20(30,ABMP("BDFN"))

 +2        SET ABMR(91,30)=$$FMT^ABMERUTL(ABMR(91,30),20)

 +3        QUIT 

40        ;Remarks (SOURCE: FILE=9002274.4, FIELD=)

 +1        SET ABMR(91,40)=""

 +2        SET ABMR(91,40)=$$FMT^ABMERUTL(ABMR(91,40),82)

 +3        QUIT 

50        ;Filler (National Use)

 +1        SET ABMR(91,50)=""

 +2        SET ABMR(91,50)=$$FMT^ABMERUTL(ABMR(91,50),86)

 +3        QUIT