source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOCPIB4.m@ 691

Last change on this file since 691 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 990 bytes
Line 
1PSOCPIB4 ;BIR/EJW-Clean up to bill unbilled NON-SERVICE CONNECTED copays ;12/12/02
2 ;;7.0;OUTPATIENT PHARMACY;**123**;DEC 1997
3GETDATE ; 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
18ASK 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.