source: WorldVistAEHR/trunk/r/QUALITY_ASSURANCE_INTEGRATION-QAQ/QAQAHOCZ.m@ 1710

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

initial load of WorldVistAEHR

File size: 2.3 KB
RevLine 
[613]1QAQAHOCZ ;HISC/DAD-AD HOC REPORTS: INTERFACE COMPILER ;9/3/91 15:52 [ 10/07/92 7:10 PM ]
2 ;;1.7;QM Integration Module;;07/25/1995
3 ;
4 D EXIT,HOME^%ZIS S QAQYESNO="Please answer Y(es) or N(o)."
5 D NOW^%DTC S X=$J(%,0,6),QAQTODAY=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)_" "_$E(X,9,10)_":"_$E(X,11,12)
6ROUTINE ; *** Prompt user for Ad Hoc interface routine name
7 K DIR S DIR(0)="FAO^2:8^K:X'?1U1.7UN X",DIR("A")="Ad Hoc Report Generator Interface Routine: ",DIR("?")="^D EN^QAQAHOCH(""H6"")"
8 W ! D ^DIR G:$D(DIRUT) EXIT S (QAQPROG,X)=Y
9 X ^%ZOSF("TEST") I D G EXIT:QAQREPLC=-1,ROUTINE:QAQREPLC=2
10 . W !!?5,"*** ",QAQPROG," already exists !! ***",*7
11R1 . W !!?5,"Do you want to replace it"
12 . S %=2 D YN^DICN S QAQREPLC=%
13 . Q:(%=-1)!(%=2) I '% W !!?10,QAQYESNO G R1
14R2 . W !!?5,"Replace ",QAQPROG,", are you sure"
15 . S %=2 D YN^DICN S QAQREPLC=%
16 . Q:%=-1 I '% W !!?10,QAQYESNO G R2
17 . Q
18FILE ; *** Prompt user for the file that Ad Hoc will use
19 W !!,"Select the FILE to be used by the Ad Hoc Report Generator."
20 K DIC S DIC="^DIC(",DIC(0)="AEMNQZ",DIC("A")="Select FILE: " D ^DIC G:Y'>0 EXIT S QAQFILE=+Y,QAQFILE(0)=Y(0,0)
21FIELDS ; *** Prompt user for the fields that Ad Hoc will use
22 W !!,"Select the FIELDS to be used by the Ad Hoc Report Generator."
23 D ^QAQAHOCY G:QAQMMAX'>0!QAQQUIT EXIT I QAQSORT'>0 W !!?5,"*** No sort fields chosen !! ***",*7 G EXIT
24NODATA ; *** Include optional output checking code in OTHER entry point (Y/N)
25 W !!,"Automatically include the ""No data found..."" message" S %=1 D YN^DICN G:%=-1 EXIT S QAQNODAT=$S(%=1:1,1:0)
26 I '% D EN^QAQAHOCH("H8") G NODATA
27MENUHDR ; *** Prompt user for the sort/print menu screen header
28 K DIR S DIR(0)="FAO^0:45^K:(X[""^"")!(X[$C(34)) X",DIR("A")="Menu screen header: ",DIR("?")="^D EN^QAQAHOCH(""H9"")"
29 W ! D ^DIR G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) EXIT S QAQMHDR=Y
30BUILD ; *** Build Ad Hoc Report interface routine(s)
31 W !!,"Building the Ad Hoc Report Generator interface routine(s)...",!
32 D BUILD^QAQAHOCX
33 W !!,"Enter 'DO ^",QAQPROG,"' to run the Ad Hoc Report Generator."
34EXIT ; *** Exit the Ad Hoc interface compiler
35 K %,%DT,%H,DIC,DIE,DIR,DIRUT,DTOUT,DUOUT
36 K ^TMP($J,"QAQTXT"),^TMP($J,"QAQROU")
37 K QA,QAI,QAQ,QAQCHOSN,QAQDD,QAQDONE,QAQFILE,QAQLEN,QAQLEVEL,QAQLN,QAQMHDR,QAQMMAX,QAQNODAT,QAQPROG,QAQQUIT,QAQREPLC,QAQRTN,QAQRTNNO,QAQRTNXT,QAQSORT,QAQTAB,QAQTEXT,QAQTODAY,QAQWP,QAQYESNO,X,XCM,XCN,Y
38 Q
Note: See TracBrowser for help on using the repository browser.