- PSO707P ;ORLFO/FJF/WC - post install ; Mar 20, 2023@12:57:56
- ;;7.0;OUTPATIENT PHARMACY;**707**;DEC 1997;Build 18
- ;
- ; External calls:
- ;
- ; Description ICR Notes
- ; ----------- ------ -------
- ; Reference to NEW PERSON (#200) file (reads) in #10060
- ; Reference to OPTION (#19) file (reads) in #2246
- ; Reference to FIND1^DIC in #2051
- ; Reference to CREATE^XUSAP in #4677
- ; Reference to UPDATE^DIE in #2053
- ; Reference to BMES^XPDUTL in #10141
- ;
- ; Post Install routine for patch PSO*7.0*707
- ;
- POST ; Update Proxy user with CRMS secondary menu option context
- ;
- N FDA,ERR,OIEN,IEN,PSOA
- S PSOA=$$CREATE^XUSAP("PSOVCC,APPLICATION PROXY","","PSO WEB CHART")
- ; USER found:
- I +PSOA'<0 D
- . S IEN=$$FIND1^DIC(200,,"M","PSOVCC,APPLICATION PROXY")
- . S OIEN=$$FIND1^DIC(19,,"M","PSO WEB CHART")
- . I $D(^VA(200,IEN,203,"B",OIEN)) Q ; check for existence, Quit if found
- . S FDA(200.03,"+1,"_IEN_",",.01)=OIEN ; add if needed
- . D UPDATE^DIE("","FDA",,"ERR")
- . I '$D(ERR) D BMES^XPDUTL("Proxy user updated successfully.") Q
- . I $D(ERR) D
- . . D BMES^XPDUTL("***********************")
- . . D BMES^XPDUTL("Proxy user not updated.")
- . . D BMES^XPDUTL("***********************")
- ; User not found:
- I +PSOA<0 D
- . D BMES^XPDUTL("*************************************")
- . D BMES^XPDUTL("APPLICATION PROXY USER not created.")
- . D BMES^XPDUTL("Please contact the Service Desk.")
- . D BMES^XPDUTL("*************************************")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO707P 1498 printed Mar 13, 2025@21:28:25 Page 2
- PSO707P ;ORLFO/FJF/WC - post install ; Mar 20, 2023@12:57:56
- +1 ;;7.0;OUTPATIENT PHARMACY;**707**;DEC 1997;Build 18
- +2 ;
- +3 ; External calls:
- +4 ;
- +5 ; Description ICR Notes
- +6 ; ----------- ------ -------
- +7 ; Reference to NEW PERSON (#200) file (reads) in #10060
- +8 ; Reference to OPTION (#19) file (reads) in #2246
- +9 ; Reference to FIND1^DIC in #2051
- +10 ; Reference to CREATE^XUSAP in #4677
- +11 ; Reference to UPDATE^DIE in #2053
- +12 ; Reference to BMES^XPDUTL in #10141
- +13 ;
- +14 ; Post Install routine for patch PSO*7.0*707
- +15 ;
- POST ; Update Proxy user with CRMS secondary menu option context
- +1 ;
- +2 NEW FDA,ERR,OIEN,IEN,PSOA
- +3 SET PSOA=$$CREATE^XUSAP("PSOVCC,APPLICATION PROXY","","PSO WEB CHART")
- +4 ; USER found:
- +5 IF +PSOA'<0
- Begin DoDot:1
- +6 SET IEN=$$FIND1^DIC(200,,"M","PSOVCC,APPLICATION PROXY")
- +7 SET OIEN=$$FIND1^DIC(19,,"M","PSO WEB CHART")
- +8 ; check for existence, Quit if found
- IF $DATA(^VA(200,IEN,203,"B",OIEN))
- QUIT
- +9 ; add if needed
- SET FDA(200.03,"+1,"_IEN_",",.01)=OIEN
- +10 DO UPDATE^DIE("","FDA",,"ERR")
- +11 IF '$DATA(ERR)
- DO BMES^XPDUTL("Proxy user updated successfully.")
- QUIT
- +12 IF $DATA(ERR)
- Begin DoDot:2
- +13 DO BMES^XPDUTL("***********************")
- +14 DO BMES^XPDUTL("Proxy user not updated.")
- +15 DO BMES^XPDUTL("***********************")
- End DoDot:2
- End DoDot:1
- +16 ; User not found:
- +17 IF +PSOA<0
- Begin DoDot:1
- +18 DO BMES^XPDUTL("*************************************")
- +19 DO BMES^XPDUTL("APPLICATION PROXY USER not created.")
- +20 DO BMES^XPDUTL("Please contact the Service Desk.")
- +21 DO BMES^XPDUTL("*************************************")
- End DoDot:1
- +22 QUIT
