Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSO653P

PSO653P.m

Go to the documentation of this file.
  1. PSO653P ;BIRM/KML - PHARMACY TELEPHONE REFILL ; 12/26/17 12:13pm
  1. ;;7.0;OUTPATIENT PHARMACY;**653**;Dec 1997;Build 14
  1. ; --------------------------------------------------------------------------------------
  1. ; 1. TASK - schedules the new PSO PURGE PROCESSED 52.444 option
  1. ; 2. MENU - adds the new option, Process Telephone Refills [PSO PROCESS TELEPHONE REFILLS] to the existing Barcode Rx Menu [BARCODE RX MENU]
  1. N TEXT D TASK,MENU
  1. ; disable the class 3 option A3A PHONE REFILLS by adding an out-of-order message to the entry in the OPTION file
  1. D OUT^XPDMENU("A3A PHONE REFILLS","Replaced by Class 1 Option [PSO PROCESS TELEPHONE REFILLS]")
  1. S TEXT(1)="Process Telephone Refills [A3A PHONE REFILLS] option"
  1. S TEXT(2)="has been placed OUT-OF-ORDER"
  1. S TEXT(3)="****************************"
  1. S TEXT(4)=""
  1. D MES^XPDUTL(.TEXT)
  1. Q
  1. TASK ; schedule the new purge option
  1. N PSOAOPTB,PSOAOPTN,DA,DIE,DR,X,X1,X2,PSOWHEN,PSOSD
  1. S X1=DT,X2=+1 D C^%DTC S PSOSD=X
  1. S PSOWHEN=PSOSD_"@0405" ;PSOPURGE DATE TIME.
  1. D RESCH^XUTMOPT("PSO PURGE PROCESSED 52.444",PSOWHEN,"","1D","L",".PSOA_ERROR")
  1. S TEXT(1)="Purge Processed Telephone Refill Requests [PSO PURGE PROCESSED 52.444] option"
  1. S TEXT(2)="has been scheduled to occur at 4:05 am every day."
  1. S TEXT(3)="****************************"
  1. S TEXT(4)=""
  1. D MES^XPDUTL(.TEXT)
  1. Q
  1. ;PSO BARCODE MENU class 1 MENU
  1. ;PSO PROCESS TELEPHONE REFILLS
  1. N FDA,PSOCOP,PSOCIEN,PSOCOPNM,PSOCSYN
  1. S PSOCOP=$O(^DIC(19,"B","PSO BARCODE MENU",0))
  1. S PSOCOPNM="PSO PROCESS TELEPHONE REFILLS"
  1. S PSOCIEN=0 S PSOCIEN=$O(^DIC(19,"B",PSOCOPNM,0))
  1. S PSOCSYN="PTR"
  1. S TEXT(1)="Process Telephone Refills [PSO PROCESS TELEPHONE REFILLS] option"
  1. S TEXT(2)="has been added to the existing Barcode Rx Menu [PSO BARCODE MENU]"
  1. S TEXT(3)="****************************"
  1. S TEXT(4)=""
  1. D MES^XPDUTL(.TEXT)
  1. Q:$D(^DIC(19,PSOCOP,10,"B",PSOCIEN))
  1. S FDA(1,19.01,"+2,"_PSOCOP_",",.01)=PSOCIEN
  1. S FDA(1,19.01,"+2,"_PSOCOP_",",2)=PSOCSYN
  1. D UPDATE^DIE("","FDA(1)")
  1. Q