APCDPREI.m

APCDPREI ; IHS/CMI/LAB - CREATED BY XBBPI ON OCT 14,1998 ;

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

 ;

 ;

 ;kill of all protocol entries

 W !,"Deleting exisiting protocol entries."

 S XBX="APCD" F  S XBX=$O(^ORD(101,"B",XBX)) Q:XBX]"APCDZZ"  S DA=$O(^ORD(101,"B",XBX,0)) I DA S DIK="^ORD(101," D ^DIK

 W !,"Deleting all APCD namespaced INPUT TEMPLATES"

 S XBX="APCD" F  S XBX=$O(^DIE("B",XBX)) Q:XBX]"APCDZZ"  S DA=$O(^DIE("B",XBX,0)) I DA S DIK="^DIE(" D ^DIK

 S DA=$O(^DIC(19,"APCD 3M TASKED GENERATOR",0)) I DA S DIK="^DIC(19," D ^DIK

 S DA=$O(^DIC(19,"APCD 3M DELIQUENT REPORT",0)) I DA S DIK="^DIC(19," D ^DIK

 K ^UTILITY("XBDSET",$J) F XBBPI=1:1 S XBBPIX=$P($T(Q+XBBPI),";;",2) Q:XBBPIX=""  S XBBPIY=$P(XBBPIX,"=",2,99),XBBPIX=$P(XBBPIX,"=",1) S @XBBPIX=XBBPIY

 K XBBPI,XBBPIX,XBBPIY D EN2^XBKD

Q Q

 ;;^UTILITY("XBDSET",$J,9001001)=S^S

 ;;^UTILITY("XBDSET",$J,9001001.2)=S^S

 ;;^UTILITY("XBDSET",$J,9001001.3)=S^S

 ;;^UTILITY("XBDSET",$J,9001001.4)=S^S

 ;;^UTILITY("XBDSET",$J,9001001.5)=S^S

 ;;^UTILITY("XBDSET",$J,9001001.6)=S^S

 ;;^UTILITY("XBDSET",$J,9001001.7)=S^S

 ;;^UTILITY("XBDSET",$J,9001001.8)=S^S

 ;;^UTILITY("XBDSET",$J,9001001.9)=S^S

 ;;^UTILITY("XBDSET",$J,9001002)=S^S

APCDPREI  ; IHS/CMI/LAB - CREATED BY XBBPI ON OCT 14,1998 ;

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

 +2       ;

 +3       ;

 +4       ;kill of all protocol entries

 +5        WRITE !,"Deleting exisiting protocol entries."

 +6        SET XBX="APCD"

           FOR 

               SET XBX=$ORDER(^ORD(101,"B",XBX))

               IF XBX]"APCDZZ"

                   QUIT 

               SET DA=$ORDER(^ORD(101,"B",XBX,0))

               IF DA

                   SET DIK="^ORD(101,"

                   DO ^DIK

 +7        WRITE !,"Deleting all APCD namespaced INPUT TEMPLATES"

 +8        SET XBX="APCD"

           FOR 

               SET XBX=$ORDER(^DIE("B",XBX))

               IF XBX]"APCDZZ"

                   QUIT 

               SET DA=$ORDER(^DIE("B",XBX,0))

               IF DA

                   SET DIK="^DIE("

                   DO ^DIK

 +9        SET DA=$ORDER(^DIC(19,"APCD 3M TASKED GENERATOR",0))

           IF DA

               SET DIK="^DIC(19,"

               DO ^DIK

 +10       SET DA=$ORDER(^DIC(19,"APCD 3M DELIQUENT REPORT",0))

           IF DA

               SET DIK="^DIC(19,"

               DO ^DIK

 +11       KILL ^UTILITY("XBDSET",$JOB)

           FOR XBBPI=1:1

               SET XBBPIX=$PIECE($TEXT(Q+XBBPI),";;",2)

               IF XBBPIX=""

                   QUIT 

               SET XBBPIY=$PIECE(XBBPIX,"=",2,99)

               SET XBBPIX=$PIECE(XBBPIX,"=",1)

               SET @XBBPIX=XBBPIY

 +12       KILL XBBPI,XBBPIX,XBBPIY

           DO EN2^XBKD

Q          QUIT 

 +1       ;;^UTILITY("XBDSET",$J,9001001)=S^S

 +2       ;;^UTILITY("XBDSET",$J,9001001.2)=S^S

 +3       ;;^UTILITY("XBDSET",$J,9001001.3)=S^S

 +4       ;;^UTILITY("XBDSET",$J,9001001.4)=S^S

 +5       ;;^UTILITY("XBDSET",$J,9001001.5)=S^S

 +6       ;;^UTILITY("XBDSET",$J,9001001.6)=S^S

 +7       ;;^UTILITY("XBDSET",$J,9001001.7)=S^S

 +8       ;;^UTILITY("XBDSET",$J,9001001.8)=S^S

 +9       ;;^UTILITY("XBDSET",$J,9001001.9)=S^S

 +10      ;;^UTILITY("XBDSET",$J,9001002)=S^S