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

PSOCPIB4.m

Go to the documentation of this file.
  1. PSOCPIB4 ;BIR/EJW-Clean up to bill unbilled NON-SERVICE CONNECTED copays ;12/12/02
  1. ;;7.0;OUTPATIENT PHARMACY;**123**;DEC 1997
  1. GETDATE ; GET DATE/TIME OF WHEN BACKGROUND JOB SHOULD BE RUN
  1. S ZTDTH=""
  1. I '$D(PSOQUES) S PSOQUES="Queue job to run at Date@Time: "
  1. S NOW=0
  1. D NOW^%DTC S (Y,TODAY)=% D DD^%DT
  1. D BMES^XPDUTL("At the following prompt, enter a starting date@time")
  1. D MES^XPDUTL("or enter NOW to queue the job immediately.")
  1. D BMES^XPDUTL("If this prompting is during patch installation, you will not see what you type.")
  1. W ! K %DT D NOW^%DTC S %DT="RAEX",%DT(0)=%,%DT("A")=PSOQUES
  1. D ^%DT K %DT I $D(DTOUT)!(Y<0) W "Task will be queued to run NOW" S ZTDTH=$H,NOW=1
  1. I 'NOW,Y>0 D
  1. .S SAVEY=Y
  1. .D DD^%DT
  1. .S X=Y
  1. .S Y=SAVEY
  1. ASK D BMES^XPDUTL("Task will be queued to run "_$S(NOW:"NOW",1:X)_". Is that correct? :")
  1. R XX:300 S:'$T XX="Y" I XX'="Y",XX'="y",XX'="N",XX'="n" W " Enter Y or N" G ASK
  1. I XX'="Y",XX'="y" G GETDATE
  1. I Y>0,ZTDTH="" S ZTDTH=Y
  1. I ZTDTH="" S ZTDTH=$H
  1. Q
  1. ;