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

VAQUTL95.m

Go to the documentation of this file.
  1. VAQUTL95 ;ALB/JFP/JRP - SETS COMMONLY USED VARIABLES;01-APR-93
  1. ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
  1. ;
  1. STATPTR ; -- Sets PDX status pointers
  1. S (VAQRSLT,VAQUNSOL)=""
  1. S VAQRSLT=$O(^VAT(394.85,"B","VAQ-RSLT",VAQRSLT))
  1. S VAQUNSOL=$O(^VAT(394.85,"B","VAQ-UNSOL",VAQUNSOL))
  1. QUIT
  1. ;
  1. PAUSE ; -- Pauses the screen
  1. W ! S DIR(0)="EA",DIR("A")="Press RETURN to continue:" D ^DIR K DIR W !
  1. QUIT
  1. ;
  1. END ; -- End of code
  1. QUIT
  1. ;
  1. IMPDTE(XMITDATE) ;CHECK DATE USED IN PDX TRANSMISSIONS FOR PRECISENESS
  1. ;INPUT : XMITDATE - Date in format MM-DD-YYYY
  1. ;OUTPUT : N - If date is precise, MM-DD-YYYY (what was sent)
  1. ; If date is not precise
  1. ; MM--YYYY if day is not precise
  1. ; YYYY if month is not precise
  1. ; -1 - Bad input
  1. ;
  1. ;CHECK INPUT
  1. Q:($G(XMITDATE)="") -1
  1. Q:(XMITDATE'?2N1"-"2N1"-"4N) -1
  1. ;DECLARE VARIABLES
  1. N MONTH,DAY,YEAR
  1. ;GET PIECES OF DATE
  1. S MONTH=$P(XMITDATE,"-",1)
  1. S DAY=$P(XMITDATE,"-",2)
  1. S YEAR=$P(XMITDATE,"-",3)
  1. ;YEAR IS IMPRECISE (ERROR)
  1. Q:('(+YEAR)) -1
  1. ;MONTH NOT PRECISE
  1. Q:('(+MONTH)) YEAR
  1. ;DAY NOT PRECISE
  1. Q:('(+DAY)) (MONTH_"--"_YEAR)
  1. ;DATE IS PRECISE
  1. Q XMITDATE
  1. ;
  1. AMPMTIME(XMITTIME) ;PLACE AM/PM ON END OF TIME USED IN PDX TRANSMISSIONS
  1. ;INPUT : XMITTIME - Time in format hh:mm:ss (seconds optional)
  1. ;OUTPUT : N - XMITTIME concatenated with AM or PM
  1. ; If time falls between midnight and noon, AM is used
  1. ; If time falls between noon and midnight, PM is used
  1. ; -1 - Bad input
  1. ;NOTES : If seconds are not included, 00 will be used
  1. ; : If time is exactly midnight, AM is used
  1. ; : If time is exactly noon, PM is used
  1. ; : If time is between 00:00:00 and 00:00:59, 00:01:00 will
  1. ; be used as the input time (FileMan has problem with it)
  1. ; : Time between midnight and one AM will return 12AM
  1. ;
  1. ;CHECK INPUT
  1. Q:($G(XMITTIME)="") -1
  1. S:(XMITTIME?2N1":"2N) XMITTIME=XMITTIME_":00"
  1. S:(XMITTIME?2N1":"2N1":") XMITTIME=XMITTIME_"00"
  1. Q:(XMITTIME'?2N1":"2N1":"2N) -1
  1. S:(XMITTIME?1"00:00:"2N) XMITTIME="00:01:00"
  1. ;DECLARE VARIABLES
  1. N HOUR,OUTPUT
  1. S HOUR=+$P(XMITTIME,":",1)
  1. S OUTPUT=-1
  1. ;MIDNIGHT TO NOON (AM) - CONVERT 00 AM TO 12 AM
  1. I (HOUR<12) D
  1. .S:('HOUR) OUTPUT="12:"_$P(XMITTIME,":",2,3)_"AM"
  1. .S:(HOUR) OUTPUT=XMITTIME_"AM"
  1. ;NOON TO MIDNIGHT (PM)
  1. S:(HOUR>11) OUTPUT=XMITTIME_"PM"
  1. Q OUTPUT
  1. ;
  1. CHCKDT(XMITDT) ;CHECK DATE AND TIME OF PDX TRANSMISSION
  1. ;INPUT : XMITDT - Date and time of transmission
  1. ; MM-DD-YYYY@hh:mm:ss
  1. ;OUTPUT : N - Date and time in acceptable FimeMan format
  1. ; -1 - Bad input/error
  1. ;NOTES : Refer to $$IMPDTE for date check
  1. ; : Refer to $$AMPMTIME for time check
  1. ;
  1. ;CHECK INPUT
  1. Q:($G(XMITDT)="") -1
  1. ;DECLARE VARIABLES
  1. N DATE,TIME
  1. S DATE=$$IMPDTE($P(XMITDT,"@",1))
  1. Q:(DATE="-1") -1
  1. S TIME=$$AMPMTIME($P(XMITDT,"@",2))
  1. Q:(TIME="-1") -1
  1. Q (DATE_"@"_TIME)