BSDP7PST.m

BSDP7PST ;cmi/anch/maw - PIMS Patch 1007 Post Init 2/27/2007 10:32:52 AM

 ;;5.3;PIMS;**1007**;FEB 27,2007;

 ;

 ;

 ;

 ;

EN ;EP - Post Init Entry Point

 D KIDX(2,.082,"AAVABDW4","K")

 D ADDMENU

 D RMLTI("BSDRM FILE ROOM LIST","DOB")

 D MPIS

 Q

 ;

KIDX(FL,FLD,XREF,FLG) ;-- kill of the AAVABDW4 index from file 2 field .082 per LJF 2/23/2007

 D DELIX^DIKD(FL,FLD,XREF,FLG)

 Q

 ;

ADDMENU ;-- add menu items

 N X

 I '$O(^DIC(19,"B","BSD LETTER CUSTOM PRINT",0)) D

 . S X=$$ADD^XPDMENU("BSDMENU","BSD LETTER CUSTOM PRINT","PCL",66)

 . I 'X W !,"Attempt to add BSD LETTER CUSTOM PRINT option failed.." H 3

 I '$O(^DIC(19,"B","BSD ORIGINAL CLINIC DISPLAY",0)) D

 . S X=$$ADD^XPDMENU("BSDMENU","BSD ORIGINAL CLINIC DISPLAY","OAS",55)

 . I 'X W !,"Attempt to add BSD ORIGINAL CLINIC DISPLAY option failed.." H 3

 I '$O(^DIC(19,"B","BSDRM CHECKIN AUTO REFRESH",0)) D

 . S X=$$ADD^XPDMENU("BSDMENU","BSDAM CHECKIN AUTO REFRESH","CHK",25)

 . I 'X W !,"Attempt to add CHECKIN AUTO REFRESH report option failed.." H 3

 Q

 ;

RMLTI(LT,IT) ;-- remove an item from the List Template File

 N LTI,ITI

 S LTI=$O(^SD(409.61,"B",LT,0))

 Q:'LTI

 S ITI=$O(^SD(409.61,LTI,"COL","B",IT,0))

 Q:'ITI

 S DA(1)=LTI,DA=ITI

 S DIK="^SD(409.61,"_LTI_","_"""COL"""_","

 D ^DIK

 Q

 ;

MPIS ;-- stuff parameters so software doesn't try to access MPI via HL7

 ;per linda fels email 4/6/2007

 S DIE=26.18

 S DR="2///0;3///0"

 S DA=1

 D ^DIE

 Q

 ;

BSDP7PST  ;cmi/anch/maw - PIMS Patch 1007 Post Init 2/27/2007 10:32:52 AM

 +1       ;;5.3;PIMS;**1007**;FEB 27,2007;

 +2       ;

 +3       ;

 +4       ;

 +5       ;

EN        ;EP - Post Init Entry Point

 +1        DO KIDX(2,.082,"AAVABDW4","K")

 +2        DO ADDMENU

 +3        DO RMLTI("BSDRM FILE ROOM LIST","DOB")

 +4        DO MPIS

 +5        QUIT 

 +6       ;

KIDX(FL,FLD,XREF,FLG) ;-- kill of the AAVABDW4 index from file 2 field .082 per LJF 2/23/2007

 +1        DO DELIX^DIKD(FL,FLD,XREF,FLG)

 +2        QUIT 

 +3       ;

ADDMENU   ;-- add menu items

 +1        NEW X

 +2        IF '$ORDER(^DIC(19,"B","BSD LETTER CUSTOM PRINT",0))

               Begin DoDot:1

 +3                SET X=$$ADD^XPDMENU("BSDMENU","BSD LETTER CUSTOM PRINT","PCL",66)

 +4                IF 'X

                       WRITE !,"Attempt to add BSD LETTER CUSTOM PRINT option failed.."

                       HANG 3

               End DoDot:1

 +5        IF '$ORDER(^DIC(19,"B","BSD ORIGINAL CLINIC DISPLAY",0))

               Begin DoDot:1

 +6                SET X=$$ADD^XPDMENU("BSDMENU","BSD ORIGINAL CLINIC DISPLAY","OAS",55)

 +7                IF 'X

                       WRITE !,"Attempt to add BSD ORIGINAL CLINIC DISPLAY option failed.."

                       HANG 3

               End DoDot:1

 +8        IF '$ORDER(^DIC(19,"B","BSDRM CHECKIN AUTO REFRESH",0))

               Begin DoDot:1

 +9                SET X=$$ADD^XPDMENU("BSDMENU","BSDAM CHECKIN AUTO REFRESH","CHK",25)

 +10               IF 'X

                       WRITE !,"Attempt to add CHECKIN AUTO REFRESH report option failed.."

                       HANG 3

               End DoDot:1

 +11       QUIT 

 +12      ;

RMLTI(LT,IT) ;-- remove an item from the List Template File

 +1        NEW LTI,ITI

 +2        SET LTI=$ORDER(^SD(409.61,"B",LT,0))

 +3        IF 'LTI

               QUIT 

 +4        SET ITI=$ORDER(^SD(409.61,LTI,"COL","B",IT,0))

 +5        IF 'ITI

               QUIT 

 +6        SET DA(1)=LTI

           SET DA=ITI

 +7        SET DIK="^SD(409.61,"_LTI_","_"""COL"""_","

 +8        DO ^DIK

 +9        QUIT 

 +10      ;

MPIS      ;-- stuff parameters so software doesn't try to access MPI via HL7

 +1       ;per linda fels email 4/6/2007

 +2        SET DIE=26.18

 +3        SET DR="2///0;3///0"

 +4        SET DA=1

 +5        DO ^DIE

 +6        QUIT 

 +7       ;