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

AQAOUTIL.m

Go to the documentation of this file.
  1. AQAOUTIL ; IHS/ORDC/LJF - QI MANAGEMENT UTILITY RTN ;
  1. ;;1.01;QAI MANAGEMENT;;OCT 05, 1995
  1. ;
  1. ;This rtn contains frequently used subrtns. They include the
  1. ;initialization of varialbes for printing reports, end-of-page
  1. ;control, a basic report heading, the question of printing a report
  1. ;in ASCII format, and the killing of local variables.
  1. ;
  1. Q
  1. INIT ;ENTRY POINT >>> initialize variables <<<
  1. S:'$D(AQAOIOMX) AQAOIOMX=$S($D(IOM):IOM,1:80)
  1. S AQAOPAGE=0,AQAOSTOP="",AQAODUZ=$P(^VA(200,DUZ,0),U,2)
  1. S AQAOSITE=$P(^DIC(4,DUZ(2),0),U) ;set site
  1. S AQAOLINE="",$P(AQAOLINE,"=",AQAOIOMX)=""
  1. S AQAOLIN2="",$P(AQAOLIN2,"-",AQAOIOMX)=""
  1. Q
  1. ;
  1. ;
  1. NEWPG ;ENTRY POINT >>> SUBRTN for end of page control
  1. I IOST'?1"C-".E D HEADING S AQAOSTOP="" Q
  1. I AQAOPAGE>0 K DIR S DIR(0)="E" D ^DIR S AQAOSTOP=X
  1. I AQAOSTOP'=U D HEADING
  1. Q
  1. ;
  1. ;
  1. HEADING ;ENTRY POINT >>> SUBRTN to print heading
  1. W:(AQAOPAGE>0) @IOF I AQAOPAGE=0,(IOST["C-") W @IOF
  1. W !,AQAOLINE S AQAOPAGE=AQAOPAGE+1
  1. I $D(AQAOHCON) D
  1. .S X="*****Confidential "_AQAOHCON_" Data Covered by Privacy Act*****"
  1. .W !?AQAOIOMX-$L(X)/2,X
  1. W !,AQAODUZ,?AQAOIOMX-$L(AQAOSITE)/2,AQAOSITE
  1. W ! D TIME
  1. W ?AQAOIOMX-$L(AQAOTY)/2,AQAOTY,?AQAOIOMX-10,"Page: ",AQAOPAGE
  1. S Y=DT X ^DD("DD") W !,Y
  1. Q
  1. ;
  1. ;
  1. TIME ;ENTRY POINT to print time only
  1. N X
  1. S X=$E($$HTFM^XLFDT($H),1,12)
  1. W $P($$FMTE^XLFDT(X,"2P")," ",2,3)
  1. Q
  1. ;
  1. ;
  1. EXPORT ;ENTRY POINT for help text and questions about sending ASCII files
  1. ;called just prior to %ZIS calls in selected reports
  1. W !! K DIR S DIR(0)="YO",DIR("B")="NO"
  1. S DIR("A")="Do you wish to capture the data into an ASCII file"
  1. S DIR("?",1)=" You can send this report to your personal computer"
  1. S DIR("?",2)=" in ASCII format which is readable to many statistical"
  1. S DIR("?",3)=" PC applications. You must choose a DELIMITER that"
  1. S DIR("?",4)=" your application can understand. This could be a "
  1. S DIR("?",5)=" comma, a slash, a semicolon, or other punctuation to"
  1. S DIR("?",6)=" separate each piece of data. Check the PC software"
  1. S DIR("?",7)=" user manual for your possible choices."
  1. S DIR("?",8)=" Remember to answer the DEVICE question with HOME. The"
  1. S DIR("?",9)=" data file will be displayed on your screen as it is"
  1. S DIR("?",10)=" captured.",DIR("?")=" "
  1. D ^DIR Q:$D(DIRUT) Q:Y'=1
  1. ;
  1. DELIM ;ask for delimiter
  1. W !! K DIR S DIR(0)="F^1:1^I Y'?1P S Y=-1"
  1. S DIR("?")="Enter punctuation mark to separate data fields in file."
  1. S DIR("A")="Type in DELIMITER" D ^DIR Q:$D(DIRUT)
  1. I Y=-1 W *7," ??" G DELIM
  1. S AQAODLM=Y
  1. W !!?10,"Start the capture at the device prompt.",!
  1. Q
  1. ;
  1. ;
  1. DLMHDG ;ENTRY POINT >>> SUBRTN to print ASCII heading
  1. W !
  1. I $D(AQAOHCON) D
  1. .W "*****Confidential "_AQAOHCON_" Data Covered by Privacy Act*****"
  1. W !,AQAODUZ,AQAODLM,AQAOSITE,AQAODLM D TIME
  1. W !,AQAOTY,AQAODLM
  1. S Y=DT X ^DD("DD") W $P(Y,",")," ",$P(Y,",",2),AQAODLM
  1. Q
  1. ;
  1. ;
  1. KILL ;ENTRY POINT >>> kill statement for options
  1. ;
  1. ; >>> kill ztsk variables
  1. I $D(ZTQUEUED) S ZTREQ="@" Q
  1. ;
  1. ; >> kill namespaced variables
  1. D ^AQAOVKL0
  1. ;S X="AQAO"
  1. ;F S X=$O(@X) Q:X'?1"AQAO".E D
  1. ;.K Y F I=1:1:4 I $P($T(SYS+I),";;",2)=X S Y=""
  1. ;.Q:$D(Y)
  1. ;.K @X
  1. ;K AQAO
  1. ;
  1. ; >>> kill fileman variables
  1. D ^XBFMK
  1. ;
  1. ; >>> kill non-namespaced variables
  1. K DFN
  1. ;
  1. ; >> kill single character variables
  1. K X,Y,Z,I,J,K,S,L,N,W
  1. ;
  1. Q
  1. ;
  1. SYS ;;SYSTEM-WIDE VARIABLES
  1. ;;AQAOCHK
  1. ;;AQAOENTR
  1. ;;AQAOINAC
  1. ;;AQAOUA
  1. ;;AQAOXYZ