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

ABPAMAIN.m

Go to the documentation of this file.
  1. ABPAMAIN ;PACKAGE STARTUP ROUTINE;[ 07/25/91 11:26 AM ]
  1. ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991
  1. ;--------------------------------------------------------------------
  1. ;PROCEDURE TO PROCESS SYSTEM START-UP PROCEDURES
  1. D ^ABPAVAR W @ABPAROFF,@IOF S ABPAHD1="MASTER MENU" D HEADER
  1. Q
  1. ;--------------------------------------------------------------------
  1. EOP ;PROCEDURE TO PROCESS CLEARING CRT TO END OF PAGE
  1. I $D(ABPAEOP)=1 I ABPAEOP'["[K" W @ABPAEOP
  1. I $D(ABPAEOP)=1 I ABPAEOP["[K" X ABPAEOP
  1. Q
  1. ;--------------------------------------------------------------------
  1. PAUSE ;PROCEDURE TO PROCESS CRT PAUSE
  1. S IOP=$I D ^%ZIS K IOP W !! S DX=0,DY=22 X XY
  1. I $D(ABPAMESS)=0 D
  1. .S ABPAMESS="...Press any key to continue...",DY=23 X XY
  1. I $D(ABPAMESS(2))'=1 S DY=23 X XY
  1. D EOP W:IOST["QUME" ! W @ABPARON,ABPAMESS,@ABPAROFF," "
  1. I $D(ABPAMESS(2))=1 W !,ABPAMESS(2)," "
  1. R *X:DTIME K ABPAMESS S ABPAX=$C(X)
  1. Q
  1. ;---------------------------------------------------------------------
  1. DTCVT ;PROCEDURE TO PROCESS FILEMAN DATE CONVERSION
  1. ;REQUIRES 'ABPA("DTIN")' BE DEFINED
  1. ;RETURNS 'ABPA("DTOUT")' IN MM/DD/YY FORMAT
  1. S ABPA("DTOUT")=+$E(ABPA("DTIN"),4,5)_"/"_+$E(ABPA("DTIN"),6,7)_"/"
  1. S ABPA("DTOUT")=ABPA("DTOUT")_+$E(ABPA("DTIN"),2,3)
  1. Q
  1. ;---------------------------------------------------------------------
  1. ;REQUIRES 'ABPATLE' BE DEFINED
  1. K ABPA("HD") S ABPA("HD",1)=ABPATLE
  1. F I=1:1 Q:$D(@("ABPAHD"_I))'=1 S ABPA("HD",I+1)=@("ABPAHD"_I)
  1. D ^ABPAHD
  1. Q
  1. ;---------------------------------------------------------------------
  1. QUEUED ;PROCEDURE TO PROCESS TASK MANAGER REQUEST MESSAGE
  1. ;REQUIRES 'ZTSK' BE DEFINED
  1. K ABPAMESS S ABPAMESS="REQUEST QUEUED! Task Number: "_ZTSK
  1. S ABPAMESS(2)="... Press any key to continue ... " D PAUSE
  1. Q