- PSO441PI ;SLC/TDP - Post-intall for PSO*7*441 ;Dec 09, 2021@13:46
- ;;7.0;OUTPATIENT PHARMACY;**441**;DEC 1997;Build 208
- ;
- Q
- ;
- POST ; Entry Point for post-install
- D MES^XPDUTL(" Starting post-install of PSO*7*441")
- N PSORDHM,PSOHA1,XQORM,I
- ; Remove ^XUTL entry for hidden action menu protocols
- ; Get the IEN for the PSO HIDDEN ACTIONS
- S PSOHA1=$O(^ORD(101,"B","PSO HIDDEN ACTIONS",0))
- ;
- F I=PSOHA1 S XQORM=I_";ORD(101," I $D(^XUTL("XQORM",XQORM)) D
- . D BMES^XPDUTL(" Removing cached hidden menu for "_$P(^ORD(101,I,0),U,1))
- . K ^XUTL("XQORM",XQORM)
- ;
- D DELDD,SETPKOFF,ENPROT
- ;
- D BMES^XPDUTL(" Finished post-install of PSO*7*441")
- Q
- ;
- DELDD ;DELETE FIELD #2009 FROM FILE #59 IN DATA DICTIONARY
- I '$D(^DD(59,2009)) Q ;no need to run again
- D BMES^XPDUTL(" Deleting Park Function (#2009) field from the Outpatient Site (#59) file")
- D MES^XPDUTL(" in Data Dictionary.")
- N PSOX
- S PSOX=0 F S PSOX=$O(^PS(59,PSOX)) Q:'PSOX I $P($G(^PS(59,PSOX,1)),"^",34)]"" S DR="2009////@",DIE="^PS(59,",DA=PSOX D ^DIE
- K DIE,DR
- S DIK="^DD(59,",DA=2009,DA(1)=59
- D ^DIK
- D BMES^XPDUTL(" Deletion from Data Dictionary complete.")
- K DA,DIK,DIE,DR
- Q
- ;
- SETPKOFF ;Set Default PSO PARK ON parameter to NO
- N PSOERR
- ;S PARAM=$$GET^XPAR("PKG","PSO PARK ON",,"I")
- ;I PARAM=0 Q
- D EN^XPAR("PKG","PSO PARK ON",,"NO",.PSOERR)
- I PSOERR=0 D BMES^XPDUTL(" PSO PARK ON parameter set to ""NO"" at the Package level.")
- I PSOERR'=0 D
- . D BMES^XPDUTL(" Error setting PSO PARK ON parameter to ""NO"" at the Package level.")
- . D MES^XPDUTL(" Error: "_$P(PSOERR,U,2))
- Q
- ;
- ENPROT ;Enable protocol PSO LM PAT PREG/LACT DISPLAY
- D OUT^XPDPROT("PSO LM PAT PREG/LACT DISPLAY","@")
- D BMES^XPDUTL(" Enabled the PSO LM PAT PREG/LACT DISPLAY protocol.")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO441PI 1819 printed Mar 13, 2025@21:27:48 Page 2
- PSO441PI ;SLC/TDP - Post-intall for PSO*7*441 ;Dec 09, 2021@13:46
- +1 ;;7.0;OUTPATIENT PHARMACY;**441**;DEC 1997;Build 208
- +2 ;
- +3 QUIT
- +4 ;
- POST ; Entry Point for post-install
- +1 DO MES^XPDUTL(" Starting post-install of PSO*7*441")
- +2 NEW PSORDHM,PSOHA1,XQORM,I
- +3 ; Remove ^XUTL entry for hidden action menu protocols
- +4 ; Get the IEN for the PSO HIDDEN ACTIONS
- +5 SET PSOHA1=$ORDER(^ORD(101,"B","PSO HIDDEN ACTIONS",0))
- +6 ;
- +7 FOR I=PSOHA1
- SET XQORM=I_";ORD(101,"
- IF $DATA(^XUTL("XQORM",XQORM))
- Begin DoDot:1
- +8 DO BMES^XPDUTL(" Removing cached hidden menu for "_$PIECE(^ORD(101,I,0),U,1))
- +9 KILL ^XUTL("XQORM",XQORM)
- End DoDot:1
- +10 ;
- +11 DO DELDD
- DO SETPKOFF
- DO ENPROT
- +12 ;
- +13 DO BMES^XPDUTL(" Finished post-install of PSO*7*441")
- +14 QUIT
- +15 ;
- DELDD ;DELETE FIELD #2009 FROM FILE #59 IN DATA DICTIONARY
- +1 ;no need to run again
- IF '$DATA(^DD(59,2009))
- QUIT
- +2 DO BMES^XPDUTL(" Deleting Park Function (#2009) field from the Outpatient Site (#59) file")
- +3 DO MES^XPDUTL(" in Data Dictionary.")
- +4 NEW PSOX
- +5 SET PSOX=0
- FOR
- SET PSOX=$ORDER(^PS(59,PSOX))
- if 'PSOX
- QUIT
- IF $PIECE($GET(^PS(59,PSOX,1)),"^",34)]""
- SET DR="2009////@"
- SET DIE="^PS(59,"
- SET DA=PSOX
- DO ^DIE
- +6 KILL DIE,DR
- +7 SET DIK="^DD(59,"
- SET DA=2009
- SET DA(1)=59
- +8 DO ^DIK
- +9 DO BMES^XPDUTL(" Deletion from Data Dictionary complete.")
- +10 KILL DA,DIK,DIE,DR
- +11 QUIT
- +12 ;
- SETPKOFF ;Set Default PSO PARK ON parameter to NO
- +1 NEW PSOERR
- +2 ;S PARAM=$$GET^XPAR("PKG","PSO PARK ON",,"I")
- +3 ;I PARAM=0 Q
- +4 DO EN^XPAR("PKG","PSO PARK ON",,"NO",.PSOERR)
- +5 IF PSOERR=0
- DO BMES^XPDUTL(" PSO PARK ON parameter set to ""NO"" at the Package level.")
- +6 IF PSOERR'=0
- Begin DoDot:1
- +7 DO BMES^XPDUTL(" Error setting PSO PARK ON parameter to ""NO"" at the Package level.")
- +8 DO MES^XPDUTL(" Error: "_$PIECE(PSOERR,U,2))
- End DoDot:1
- +9 QUIT
- +10 ;
- ENPROT ;Enable protocol PSO LM PAT PREG/LACT DISPLAY
- +1 DO OUT^XPDPROT("PSO LM PAT PREG/LACT DISPLAY","@")
- +2 DO BMES^XPDUTL(" Enabled the PSO LM PAT PREG/LACT DISPLAY protocol.")
- +3 QUIT
