Routine: APCLSRT2

APCLSRT2 ; IHS/CMI/LAB - GETS SORT INFO FOR PCC REPORTS ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

CHKVARS ;EP

 K APCLQUIT

 I '$D(APCLFILE)!('$D(APCLPTMP))!('$D(APCLRPT)) W !,"Required variables do not exist to run this report!!  Notify programmer!",$C(7),$C(7),! S APCLQUIT="" Q

 S APCLPTMP=$O(^DIPT("B",APCLPTMP,""))

 I '$D(APCLPTMP)!(APCLPTMP="") W !,$C(7),$C(7),"Template does not exist!  Notify programmer" S APCLQUIT="" Q

 I '$D(^DIC(APCLFILE)) W !,$C(7),$C(7),"File number passed is Invalid!  Notify programmer!",!! S APCLQUIT="" Q

INIT S FLDS="[`"_APCLPTMP_"]",BY="",FR="",TO="",APCLN=1,APCLMAND=99,APCLCSTG="^99^"

CURRENT S IOP=0 D ^%ZIS K IOP

 I $D(IOST(0)) S APCLTRM=$S($D(^%ZIS(2,IOST(0),5)):^(5),1:X),APCLRVON=$S($P(APCLTRM,U,4)]"":$P(APCLTRM,U,4),1:""),APCLRVOF=$S($P(APCLTRM,U,5)]"":$P(APCLTRM,U,5),1:"")

 S:'$D(APCLRVON) (APCLRVON,APCLRVOF)=""

 ;HOLD CODE FOR LATER

APCLSRT2  ; IHS/CMI/LAB - GETS SORT INFO FOR PCC REPORTS ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

CHKVARS   ;EP

 +1        KILL APCLQUIT

 +2        IF '$DATA(APCLFILE)!('$DATA(APCLPTMP))!('$DATA(APCLRPT))

               WRITE !,"Required variables do not exist to run this report!!  Notify programmer!",$CHAR(7),$CHAR(7),!

               SET APCLQUIT=""

               QUIT

 +3        SET APCLPTMP=$ORDER(^DIPT("B",APCLPTMP,""))

 +4        IF '$DATA(APCLPTMP)!(APCLPTMP="")

               WRITE !,$CHAR(7),$CHAR(7),"Template does not exist!  Notify programmer"

               SET APCLQUIT=""

               QUIT

 +5        IF '$DATA(^DIC(APCLFILE))

               WRITE !,$CHAR(7),$CHAR(7),"File number passed is Invalid!  Notify programmer!",!!

               SET APCLQUIT=""

               QUIT

INIT       SET FLDS="[`"_APCLPTMP_"]"

           SET BY=""

           SET FR=""

           SET TO=""

           SET APCLN=1

           SET APCLMAND=99

           SET APCLCSTG="^99^"

CURRENT    SET IOP=0

           DO ^%ZIS

           KILL IOP

 +1        IF $DATA(IOST(0))

               SET APCLTRM=$SELECT($DATA(^%ZIS(2,IOST(0),5)):^(5),1:X)

               SET APCLRVON=$SELECT($PIECE(APCLTRM,U,4)]"":$PIECE(APCLTRM,U,4),1:"")

               SET APCLRVOF=$SELECT($PIECE(APCLTRM,U,5)]"":$PIECE(APCLTRM,U,5),1:"")

 +2        IF '$DATA(APCLRVON)

               SET (APCLRVON,APCLRVOF)=""

 +3        QUIT

 +4       ;

 +5       ;

 +6       ;HOLD CODE FOR LATER

APCLSRT2.m