Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BSDP7PST

BSDP7PST.m

Go to the documentation of this file.
  1. BSDP7PST ;cmi/anch/maw - PIMS Patch 1007 Post Init 2/27/2007 10:32:52 AM
  1. ;;5.3;PIMS;**1007**;FEB 27,2007;
  1. ;
  1. ;
  1. ;
  1. ;
  1. EN ;EP - Post Init Entry Point
  1. D KIDX(2,.082,"AAVABDW4","K")
  1. D ADDMENU
  1. D RMLTI("BSDRM FILE ROOM LIST","DOB")
  1. D MPIS
  1. Q
  1. ;
  1. KIDX(FL,FLD,XREF,FLG) ;-- kill of the AAVABDW4 index from file 2 field .082 per LJF 2/23/2007
  1. D DELIX^DIKD(FL,FLD,XREF,FLG)
  1. Q
  1. ;
  1. ADDMENU ;-- add menu items
  1. N X
  1. I '$O(^DIC(19,"B","BSD LETTER CUSTOM PRINT",0)) D
  1. . S X=$$ADD^XPDMENU("BSDMENU","BSD LETTER CUSTOM PRINT","PCL",66)
  1. . I 'X W !,"Attempt to add BSD LETTER CUSTOM PRINT option failed.." H 3
  1. I '$O(^DIC(19,"B","BSD ORIGINAL CLINIC DISPLAY",0)) D
  1. . S X=$$ADD^XPDMENU("BSDMENU","BSD ORIGINAL CLINIC DISPLAY","OAS",55)
  1. . I 'X W !,"Attempt to add BSD ORIGINAL CLINIC DISPLAY option failed.." H 3
  1. I '$O(^DIC(19,"B","BSDRM CHECKIN AUTO REFRESH",0)) D
  1. . S X=$$ADD^XPDMENU("BSDMENU","BSDAM CHECKIN AUTO REFRESH","CHK",25)
  1. . I 'X W !,"Attempt to add CHECKIN AUTO REFRESH report option failed.." H 3
  1. Q
  1. ;
  1. RMLTI(LT,IT) ;-- remove an item from the List Template File
  1. N LTI,ITI
  1. S LTI=$O(^SD(409.61,"B",LT,0))
  1. Q:'LTI
  1. S ITI=$O(^SD(409.61,LTI,"COL","B",IT,0))
  1. Q:'ITI
  1. S DA(1)=LTI,DA=ITI
  1. S DIK="^SD(409.61,"_LTI_","_"""COL"""_","
  1. D ^DIK
  1. Q
  1. ;
  1. MPIS ;-- stuff parameters so software doesn't try to access MPI via HL7
  1. ;per linda fels email 4/6/2007
  1. S DIE=26.18
  1. S DR="2///0;3///0"
  1. S DA=1
  1. D ^DIE
  1. Q
  1. ;