Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
990 bytes
|
Rev | Line | |
---|
[613] | 1 | PSOCPIB4 ;BIR/EJW-Clean up to bill unbilled NON-SERVICE CONNECTED copays ;12/12/02
|
---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**123**;DEC 1997
|
---|
| 3 | GETDATE ; GET DATE/TIME OF WHEN BACKGROUND JOB SHOULD BE RUN
|
---|
| 4 | S ZTDTH=""
|
---|
| 5 | I '$D(PSOQUES) S PSOQUES="Queue job to run at Date@Time: "
|
---|
| 6 | S NOW=0
|
---|
| 7 | D NOW^%DTC S (Y,TODAY)=% D DD^%DT
|
---|
| 8 | D BMES^XPDUTL("At the following prompt, enter a starting date@time")
|
---|
| 9 | D MES^XPDUTL("or enter NOW to queue the job immediately.")
|
---|
| 10 | D BMES^XPDUTL("If this prompting is during patch installation, you will not see what you type.")
|
---|
| 11 | W ! K %DT D NOW^%DTC S %DT="RAEX",%DT(0)=%,%DT("A")=PSOQUES
|
---|
| 12 | D ^%DT K %DT I $D(DTOUT)!(Y<0) W "Task will be queued to run NOW" S ZTDTH=$H,NOW=1
|
---|
| 13 | I 'NOW,Y>0 D
|
---|
| 14 | .S SAVEY=Y
|
---|
| 15 | .D DD^%DT
|
---|
| 16 | .S X=Y
|
---|
| 17 | .S Y=SAVEY
|
---|
| 18 | ASK D BMES^XPDUTL("Task will be queued to run "_$S(NOW:"NOW",1:X)_". Is that correct? :")
|
---|
| 19 | R XX:300 S:'$T XX="Y" I XX'="Y",XX'="y",XX'="N",XX'="n" W " Enter Y or N" G ASK
|
---|
| 20 | I XX'="Y",XX'="y" G GETDATE
|
---|
| 21 | I Y>0,ZTDTH="" S ZTDTH=Y
|
---|
| 22 | I ZTDTH="" S ZTDTH=$H
|
---|
| 23 | Q
|
---|
| 24 | ;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.