BSDP11PS.m

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

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

 ;

 ;

 ;

 ;

EN ;EP - Post Init Entry Point

 D ADDMENU

 D ADDPRT

 Q:$$CHKVS(1011)

 D FIXDS

 Q

 ;

ADDMENU ;-- add menu items

 N X

 S X=$$ADD^XPDMENU("BSD MENU REPORTS","BSDRM RESTRICTED CLINIC BY DIV","RCL","")

 I 'X W !,"Attempt to add BSDRM RESTRICTED CLINIC BY DIV option failed.." H 3

 ;S X=$$ADD^XPDMENU("BDG SECURITY MENU","BDG SECURITY REPORT USER","UAR","")

 ;I 'X W !,"Attempt to add BDG SECURITY REPORT USER option failed.." H 3

 Q

 ;

ADDPRT ;-- add an entry to the protocol file

 N PROT,PROTA

 S PROT=$O(^ORD(101,"B","BSDAM APPOINTMENT EVENTS",0))

 S PROTA=$O(^ORD(101,"B","BSDAM PWH AT CHECKIN",0))

 Q:'PROT

 Q:'PROTA

 N FDA,FIENS,FERR

 S FIENS="?+2,"_PROT_","

 S FDA(101.01,FIENS,.01)=PROTA

 S FDA(101.01,FIENS,3)=17

 D UPDATE^DIE("","FDA","FIENS","FERR(1)")

 I $D(FERR(1)) W !,"Error adding BSD PWH AT CHECKIN to the Item Multiple of Protocol BSDAM APPOINTMENT EVENTS"

 Q

 ;

CHKVS(PATCH) ;-- check to see if the patch has already been installed once

 N PIMS

 S PIMS=$O(^DIC(9.4,"B","PIMS",0))

 I '$G(PIMS) Q 0

 I $O(^DIC(9.4,PIMS,22,1,"PAH","B",PATCH,0)) Q 1

 Q 0

FIXDS ;-- fix day surgery from patch 1010

 D ^ADGFXDS

 Q

 ;

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

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

 +2       ;

 +3       ;

 +4       ;

 +5       ;

EN        ;EP - Post Init Entry Point

 +1        DO ADDMENU

 +2        DO ADDPRT

 +3        IF $$CHKVS(1011)

               QUIT 

 +4        DO FIXDS

 +5        QUIT 

 +6       ;

ADDMENU   ;-- add menu items

 +1        NEW X

 +2        SET X=$$ADD^XPDMENU("BSD MENU REPORTS","BSDRM RESTRICTED CLINIC BY DIV","RCL","")

 +3        IF 'X

               WRITE !,"Attempt to add BSDRM RESTRICTED CLINIC BY DIV option failed.."

               HANG 3

 +4       ;S X=$$ADD^XPDMENU("BDG SECURITY MENU","BDG SECURITY REPORT USER","UAR","")

 +5       ;I 'X W !,"Attempt to add BDG SECURITY REPORT USER option failed.." H 3

 +6        QUIT 

 +7       ;

ADDPRT    ;-- add an entry to the protocol file

 +1        NEW PROT,PROTA

 +2        SET PROT=$ORDER(^ORD(101,"B","BSDAM APPOINTMENT EVENTS",0))

 +3        SET PROTA=$ORDER(^ORD(101,"B","BSDAM PWH AT CHECKIN",0))

 +4        IF 'PROT

               QUIT 

 +5        IF 'PROTA

               QUIT 

 +6        NEW FDA,FIENS,FERR

 +7        SET FIENS="?+2,"_PROT_","

 +8        SET FDA(101.01,FIENS,.01)=PROTA

 +9        SET FDA(101.01,FIENS,3)=17

 +10       DO UPDATE^DIE("","FDA","FIENS","FERR(1)")

 +11       IF $DATA(FERR(1))

               WRITE !,"Error adding BSD PWH AT CHECKIN to the Item Multiple of Protocol BSDAM APPOINTMENT EVENTS"

 +12       QUIT 

 +13      ;

CHKVS(PATCH) ;-- check to see if the patch has already been installed once

 +1        NEW PIMS

 +2        SET PIMS=$ORDER(^DIC(9.4,"B","PIMS",0))

 +3        IF '$GET(PIMS)

               QUIT 0

 +4        IF $ORDER(^DIC(9.4,PIMS,22,1,"PAH","B",PATCH,0))

               QUIT 1

 +5        QUIT 0

FIXDS     ;-- fix day surgery from patch 1010

 +1        DO ^ADGFXDS

 +2        QUIT 

 +3       ;