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

AQAOPC5.m

Go to the documentation of this file.
  1. AQAOPC5 ; IHS/ORDC/LJF - QTR PROGRESS REPORT ;
  1. ;;1.01;QAI MANAGEMENT;;OCT 05, 1995
  1. ;
  1. ;This rtn contains user interface code for setting up Quarterly
  1. ;Progress Report. User is asked for type of report, date range,
  1. ;and device. Type of report question calls extrinsic functions in
  1. ;rtns ^AQAOPU*.
  1. ;
  1. TYPE ; >> ask user what type of report to print
  1. K ^TMP("AQAOPC5",$J) W !! K DIR
  1. S DIR(0)="SO^1:ONE INDICATOR;2:BY KEY FUNCTION;3:FACILITY REPORT"
  1. S DIR("A")="Select TYPE OF REPORT to print"
  1. S DIR("?")="Choose ONE from the list by number"
  1. D ^DIR G EXIT:$D(DIRUT),TYPE:Y=-1
  1. S X="AQAOPC5"
  1. S AQAOTYP=$S(Y=1:$$IND^AQAOPU(X),Y=2:$$KF^AQAOPU(X),1:$$FACR^AQAOPU1(X))
  1. K ^TMP("AQAOPC5",$J,2) ;ind you don't have access to
  1. G TYPE:AQAOTYP=U
  1. ;
  1. ;
  1. BDATE ; >>> ask for beginning date
  1. W !! K DIR S DIR(0)="DO^::E",DIR("A")="Select FIRST MONTH/YEAR"
  1. D ^DIR I Y>DT W *7," NO FUTURE DATES" G BDATE
  1. G TYPE:X="",EXIT:$D(DIRUT),BDATE:Y=-1
  1. I $E(Y,6,7)'="00" W *7," MUST BE MONTH AND YEAR ONLY!!" G BDATE
  1. I $E(Y,4,5)="00" W *7," MUST INCLUDE MONTH!!" G BDATE
  1. S AQAOBD=Y
  1. ;
  1. EDATE ; >>> choose ending occurrence date for report
  1. W ! K DIR S DIR(0)="DO^::E",DIR("A")="Select LAST MONTH/YEAR"
  1. D ^DIR I Y>DT W *7," NO FUTURE DATES" G EDATE
  1. I Y<AQAOBD W *7," ENDING DATE MUST BE AFTER BEGINNING DATE" G BDATE
  1. G BDATE:X="",EXIT:$D(DIRUT),EDATE:Y=-1
  1. I $E(Y,6,7)'="00" W *7," MUST BE MONTH AND YEAR ONLY!!" G BDATE
  1. I $E(Y,4,5)="00" W *7," MUST INCLUDE MONTH!!" G EDATE
  1. S AQAOED=Y+31,X2=AQAOBD+1,X1=AQAOED D ^%DTC
  1. I X>366 D G BDATE
  1. .W *7,!," CANNOT PRINT REPORT FOR MORE THAN 1 YEAR!",! K AQAOBD,AQAOED
  1. S Y=AQAOBD+700 I $E(Y,4,5)>12 S Y=Y-1200+10000
  1. I AQAOED'<Y D
  1. .W !!,*7,"You've selected more than 7 months;"
  1. .W " use CONDENSED print OR WIDE paper!"
  1. ;
  1. ;
  1. DEV ; >>> get print device
  1. I $P(AQAOUA("USER"),U,7)=1 D EXPORT^AQAOUTIL G EDATE:Y=U
  1. W !! S %ZIS="QP" D ^%ZIS G EXIT:POP
  1. I '$D(IO("Q")) U IO G ^AQAOPC51
  1. K IO("Q") S ZTRTN="^AQAOPC51",ZTDESC="CLOSED OCC REPORT"
  1. F I="AQAOTYP","^TMP(""AQAOPC5"",$J,","AQAOBD","AQAOED" S ZTSAVE(I)=""
  1. S:$D(AQAORPTT) ZTSAVE("AQAORPTT")=""
  1. I $D(AQAODLM) S ZTSAVE("AQAODLM")=""
  1. D ^%ZTLOAD D HOME^%ZIS D KILL^AQAOUTIL Q
  1. ;
  1. ;
  1. EXIT ; >>> early eoj
  1. D KILL^AQAOUTIL K ^TMP("AQAOPC5",$J) Q