- 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
- ;
- 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 ;
- +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 ;