BARFORM0.m

BARFORM0 ; IHS/SD/LSL - FORMS FOR XBFORM ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 ;;

 Q

 ; *********************************************************************

 ;

TEST ;;

 ;** set up variables

 D ENP^XBDIQ1(200,DUZ,".01:.116","BARU(")

 ;** setup a word processing field

 F I=1:1:5 S BARWP(101,I)="   LINE "_I_" has the value of "_I

 ;** setup form name

 S BARFORM="PW TEST"

 ;** call form editor

 D EDIT^XBFORM(BARFORM,90053.01,1000)

 ;** call array generator

 K BARFM

 S BARLSTLN=$$GEN^XBFORM(BARFORM,90053.01,1000,"BARFM(",0,0)

 Q

 ; *********************************************************************

 ;

TESTE ;;END

 Q

 ; *********************************************************************

 ;

TEST2 ; dsp a collection batch item

 K BARLSTLN,BARBL

 D ENP^XBDIQ1(90051.1101,"8,5",".01;2;5;6;7;8;11;17;101;102;201;301;403;501","BARIT(")

 S BARFORM="COL REG ITEM"

 D EDIT^XBFORM(BARFORM,90053.01,1000)

 S BARLL=$$GEN^XBFORM(BARFORM,90053.01,1000,"BARITA(",1)

 Q

 ; *********************************************************************

 ;

AR3P(BARDA) ; EP

 ; COMPARE 3P TO A/R

 K BARBL,BARARBL

 D ENP^XBDIQ1(90050.01,BARDA,".01;3;15;.1;102;103;18:20;113;201:207;101;108;112","BARBL(","I")

 S BARFORM="A/R 3P BILL COMPARE"

 S BARLSTLN=$$GEN^XBFORM(BARFORM,90053.01,1000,"BARARBL(",1,0)

 ; loop abma items

 S BARFORM="A/R 3P BILL ITEM COMPARE"

 N Z ; Z used within the form generator to refer back to the abma array

 S BAR3="" F  S BAR3=$O(ABMA(BAR3)) Q:BAR3'>0  D

 . K BARIT

 . S Z=BAR3

 . D ENP^XBDIQ1(90050.1301,"BARDA,BAR3",".01:2000","BARIT(")

 . S BARLSTLN=$$GEN^XBFORM(BARFORM,90053.01,1000,"BARARBL(",1,BARLSTLN)

 D ARRAY^XBLM("BARARBL(","BILL "_ABMA("BLNM"))

 Q

BARFORM0  ; IHS/SD/LSL - FORMS FOR XBFORM ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 +2       ;;

 +3        QUIT 

 +4       ; *********************************************************************

 +5       ;

TEST      ;;

 +1       ;** set up variables

 +2        DO ENP^XBDIQ1(200,DUZ,".01:.116","BARU(")

 +3       ;** setup a word processing field

 +4        FOR I=1:1:5

               SET BARWP(101,I)="   LINE "_I_" has the value of "_I

 +5       ;** setup form name

 +6        SET BARFORM="PW TEST"

 +7       ;** call form editor

 +8        DO EDIT^XBFORM(BARFORM,90053.01,1000)

 +9       ;** call array generator

 +10       KILL BARFM

 +11       SET BARLSTLN=$$GEN^XBFORM(BARFORM,90053.01,1000,"BARFM(",0,0)

 +12       QUIT 

 +13      ; *********************************************************************

 +14      ;

TESTE     ;;END

 +1        QUIT 

 +2       ; *********************************************************************

 +3       ;

TEST2     ; dsp a collection batch item

 +1        KILL BARLSTLN,BARBL

 +2        DO ENP^XBDIQ1(90051.1101,"8,5",".01;2;5;6;7;8;11;17;101;102;201;301;403;501","BARIT(")

 +3        SET BARFORM="COL REG ITEM"

 +4        DO EDIT^XBFORM(BARFORM,90053.01,1000)

 +5        SET BARLL=$$GEN^XBFORM(BARFORM,90053.01,1000,"BARITA(",1)

 +6        QUIT 

 +7       ; *********************************************************************

 +8       ;

AR3P(BARDA) ; EP

 +1       ; COMPARE 3P TO A/R

 +2        KILL BARBL,BARARBL

 +3        DO ENP^XBDIQ1(90050.01,BARDA,".01;3;15;.1;102;103;18:20;113;201:207;101;108;112","BARBL(","I")

 +4        SET BARFORM="A/R 3P BILL COMPARE"

 +5        SET BARLSTLN=$$GEN^XBFORM(BARFORM,90053.01,1000,"BARARBL(",1,0)

 +6       ; loop abma items

 +7        SET BARFORM="A/R 3P BILL ITEM COMPARE"

 +8       ; Z used within the form generator to refer back to the abma array

           NEW Z

 +9        SET BAR3=""

           FOR 

               SET BAR3=$ORDER(ABMA(BAR3))

               IF BAR3'>0

                   QUIT 

               Begin DoDot:1

 +10               KILL BARIT

 +11               SET Z=BAR3

 +12               DO ENP^XBDIQ1(90050.1301,"BARDA,BAR3",".01:2000","BARIT(")

 +13               SET BARLSTLN=$$GEN^XBFORM(BARFORM,90053.01,1000,"BARARBL(",1,BARLSTLN)

               End DoDot:1

 +14       DO ARRAY^XBLM("BARARBL(","BILL "_ABMA("BLNM"))

 +15       QUIT