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 ---[H[J[2J[HVIAA4PST 1108 printed Dec 13, 2024@02:33:09 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 ;;
