APCDFORM.m

APCDFORM ; IHS/CMI/LAB - UPDATE FORMS TRACKING FILE ;

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

 ;

 K DIADD

 L +^XTMP("APCDFORM",DT):20 E  W !!,"CANNOT LOCK FORMS TRACKING GLOBAL!",! D EXIT Q

 S DIC="^APCDFORM(",DIC(0)="L",X=DT,DLAYGO=9001001.5 D ^DIC K DIC,DIADD,DLAYGO

 I Y=-1 W !!,"FORMS TRACKING FAILED -- NOTIFY PROGRAMMER!",! D EXIT Q

 K DIU,DIV,DA,DIE

 S DA=+Y,DR="1101///""`"_APCDFV_"""",DIE="^APCDFORM(",DR(2,9001001.51101)=".02////^S X=DUZ"

 D ^DIE

 I $D(Y) W !!,"FORMS TRACKING ERROR--notify programmer!",$C(7)

EXIT ;

 L -^XTMP("APCDFORM",DT)

 K DIE,DR,DIC,DIU,DIV,X,Y,DA

 Q

APCDFORM  ; IHS/CMI/LAB - UPDATE FORMS TRACKING FILE ;

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

 +2       ;

 +3        KILL DIADD

 +4        LOCK +^XTMP("APCDFORM",DT):20

          IF '$TEST

               WRITE !!,"CANNOT LOCK FORMS TRACKING GLOBAL!",!

               DO EXIT

               QUIT 

 +5        SET DIC="^APCDFORM("

           SET DIC(0)="L"

           SET X=DT

           SET DLAYGO=9001001.5

           DO ^DIC

           KILL DIC,DIADD,DLAYGO

 +6        IF Y=-1

               WRITE !!,"FORMS TRACKING FAILED -- NOTIFY PROGRAMMER!",!

               DO EXIT

               QUIT 

 +7        KILL DIU,DIV,DA,DIE

 +8        SET DA=+Y

           SET DR="1101///""`"_APCDFV_""""

           SET DIE="^APCDFORM("

           SET DR(2,9001001.51101)=".02////^S X=DUZ"

 +9        DO ^DIE

 +10       IF $DATA(Y)

               WRITE !!,"FORMS TRACKING ERROR--notify programmer!",$CHAR(7)

EXIT      ;

 +1        LOCK -^XTMP("APCDFORM",DT)

 +2        KILL DIE,DR,DIC,DIU,DIV,X,Y,DA

 +3        QUIT