VIAA4PST.m

VIAA4PST ;ALB/CR - RTLS Post Init for Patch 4 ;4/25/16 1:50 pm

 ;;1.0;RTLS;**4**;April 22, 2013;Build 21

 ;

 Q

POST ; entry point for post install

 D BMES^XPDUTL("  Starting Post-Install of VIAA*1.0*4...")

 D REGRPC

 D BMES^XPDUTL("  Menu Option 'VIAA01 RTLS RPC MENU' is now populated with new entries.")

 D BMES^XPDUTL("  Post-Install for Patch VIAA*1.0*4 Finished.")

 Q

 ;

REGRPC ; register RPC

 N I,J,X,Y,DIC,FDA,REGRPC,RPCIEN,OPTIEN,VIAAOPT

 S VIAAOPT="VIAA01 RTLS RPC MENU"

 F I=1:1 S J=$P($E($T(TABLE+I),2,40),";;",2),REGRPC=J D ADD Q:J=""

 Q

 ;

ADD ;

 S DIC(0)="I",X=REGRPC,DIC="^XWB(8994,"

 D ^DIC Q:'(Y>0)  S RPCIEN=+Y

 D CLEAN^DILF

 ;

 S DIC(0)="I",X=VIAAOPT,DIC="^DIC(19,"

 D ^DIC Q:'(Y>0)  S OPTIEN=+Y

 D CLEAN^DILF

 S FDA(19.05,"?+1,"_OPTIEN_",",.01)=RPCIEN

 D UPDATE^DIE("","FDA","")

 Q

 ;

TABLE ; list the RPCs to be added to the menu option

 ;;VIAA GET CATHLAB PATCH STATUS

 ;;VIAA GET EMPLOYEE DATA

 ;;VIAA GET INVENTORY POINT ITEMS

 ;;VIAA GET ITEM MASTER UPDATE

 ;;VIAA GET PATIENT DATA

 ;;VIAA SET PAR LEVELS IN GIP

 ;;VIAA SET QUANTITY ON HAND

 ;;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---VIAA4PST   1108     printed  Apr 23, 2025@18:47:41                                                                                                                                                                                                    Page 2

VIAA4PST  ;ALB/CR - RTLS Post Init for Patch 4 ;4/25/16 1:50 pm

 +1       ;;1.0;RTLS;**4**;April 22, 2013;Build 21

 +2       ;

 +3        QUIT 

POST      ; entry point for post install

 +1        DO BMES^XPDUTL("  Starting Post-Install of VIAA*1.0*4...")

 +2        DO REGRPC

 +3        DO BMES^XPDUTL("  Menu Option 'VIAA01 RTLS RPC MENU' is now populated with new entries.")

 +4        DO BMES^XPDUTL("  Post-Install for Patch VIAA*1.0*4 Finished.")

 +5        QUIT 

 +6       ;

REGRPC    ; register RPC

 +1        NEW I,J,X,Y,DIC,FDA,REGRPC,RPCIEN,OPTIEN,VIAAOPT

 +2        SET VIAAOPT="VIAA01 RTLS RPC MENU"

 +3        FOR I=1:1

               SET J=$PIECE($EXTRACT($TEXT(TABLE+I),2,40),";;",2)

               SET REGRPC=J

               DO ADD

               if J=""

                   QUIT 

 +4        QUIT 

 +5       ;

ADD       ;

 +1        SET DIC(0)="I"

           SET X=REGRPC

           SET DIC="^XWB(8994,"

 +2        DO ^DIC

           if '(Y>0)

               QUIT 

           SET RPCIEN=+Y

 +3        DO CLEAN^DILF

 +4       ;

 +5        SET DIC(0)="I"

           SET X=VIAAOPT

           SET DIC="^DIC(19,"

 +6        DO ^DIC

           if '(Y>0)

               QUIT 

           SET OPTIEN=+Y

 +7        DO CLEAN^DILF

 +8        SET FDA(19.05,"?+1,"_OPTIEN_",",.01)=RPCIEN

 +9        DO UPDATE^DIE("","FDA","")

 +10       QUIT 

 +11      ;

TABLE     ; list the RPCs to be added to the menu option

 +1       ;;VIAA GET CATHLAB PATCH STATUS

 +2       ;;VIAA GET EMPLOYEE DATA

 +3       ;;VIAA GET INVENTORY POINT ITEMS

 +4       ;;VIAA GET ITEM MASTER UPDATE

 +5       ;;VIAA GET PATIENT DATA

 +6       ;;VIAA SET PAR LEVELS IN GIP

 +7       ;;VIAA SET QUANTITY ON HAND

 +8       ;;