BSDP9PST.m

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

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

 ;

 ;

 ;

 ;

EN ;EP - Post Init Entry Point

 D ADDMENU

 D CLEANMS4

 D OBS

 Q

 ;

ADDMENU ;-- add menu items

 N X

 S X=$$ADD^XPDMENU("BDG MENU BED CONTROL","DGPW PATIENT WRISTBAND PRINT","PPW","")

 I 'X W !,"Attempt to add DGPW PATIENT WRISTBAND PRINT option failed.." H 3

 Q

 ;

CLEANMS4 ;-- cleanout left over MS4 entries from option BDGPM VISIT UPDATE

 K ^LJF("MS4")

 Q

 ;

OBS ;-- populate SPECIALTY field of FACILITY TREATING SPECIALTY for observations specialties

 ;per help desk call IM29018 observation not calling movement events properly because VA uses SPECIALTY field as does EHR

 N BSDDA,BSDOBS

 S BSDOBS=$O(^DIC(42.4,"B","MEDICAL OBSERVATION",0))

 Q:'BSDOBS

 S BSDDA=0 F  S BSDDA=$O(^DIC(45.7,BSDDA)) Q:'BSDDA  D

 . N BSDTS

 . S BSDTS=$P($G(^DIC(45.7,BSDDA,0)),U)

 . Q:BSDTS'["OBSERVATION"

 . N BSDFDA,BSDIENS,BSDERR

 . S BSDIENS=BSDDA_","

 . S BSDFDA(45.7,BSDIENS,1)=BSDOBS

 . D FILE^DIE("K","BSDFDA","BSDERR(1)")

 Q

 ;

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

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

 +2       ;

 +3       ;

 +4       ;

 +5       ;

EN        ;EP - Post Init Entry Point

 +1        DO ADDMENU

 +2        DO CLEANMS4

 +3        DO OBS

 +4        QUIT 

 +5       ;

ADDMENU   ;-- add menu items

 +1        NEW X

 +2        SET X=$$ADD^XPDMENU("BDG MENU BED CONTROL","DGPW PATIENT WRISTBAND PRINT","PPW","")

 +3        IF 'X

               WRITE !,"Attempt to add DGPW PATIENT WRISTBAND PRINT option failed.."

               HANG 3

 +4        QUIT 

 +5       ;

CLEANMS4  ;-- cleanout left over MS4 entries from option BDGPM VISIT UPDATE

 +1        KILL ^LJF("MS4")

 +2        QUIT 

 +3       ;

OBS       ;-- populate SPECIALTY field of FACILITY TREATING SPECIALTY for observations specialties

 +1       ;per help desk call IM29018 observation not calling movement events properly because VA uses SPECIALTY field as does EHR

 +2        NEW BSDDA,BSDOBS

 +3        SET BSDOBS=$ORDER(^DIC(42.4,"B","MEDICAL OBSERVATION",0))

 +4        IF 'BSDOBS

               QUIT 

 +5        SET BSDDA=0

           FOR 

               SET BSDDA=$ORDER(^DIC(45.7,BSDDA))

               IF 'BSDDA

                   QUIT 

               Begin DoDot:1

 +6                NEW BSDTS

 +7                SET BSDTS=$PIECE($GET(^DIC(45.7,BSDDA,0)),U)

 +8                IF BSDTS'["OBSERVATION"

                       QUIT 

 +9                NEW BSDFDA,BSDIENS,BSDERR

 +10               SET BSDIENS=BSDDA_","

 +11               SET BSDFDA(45.7,BSDIENS,1)=BSDOBS

 +12               DO FILE^DIE("K","BSDFDA","BSDERR(1)")

               End DoDot:1

 +13       QUIT 

 +14      ;