source: WorldVistAEHR/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDFN13.m@ 1046

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

initial load of WorldVistAEHR

File size: 430 bytes
Line 
1IBDFN13 ;ALB/CJM - ENCOUNTER FORM - (input tranforms for AICS Data Types);MAY 10, 1995
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3 ;
4CKOUTTM(X,IBFORMID) ;adds the date to the time and puts in FM format- gets the date from IBFORMID("APPT")
5 ;pass X and IBFORMID by reference!!!
6 ;
7 S X=($G(IBFORMID("APPT"))\1)_"."_X
8 Q
9CKOUT(X) ;converts X to FM date and time
10 ;pass X by reference!
11 N %DT,Y
12 S %DT="NR"
13 D ^%DT
14 S X=Y
15 Q
Note: See TracBrowser for help on using the repository browser.