IBDFN13.m

IBDFN13 ;ALB/CJM - ENCOUNTER FORM - (input tranforms for AICS Data Types);MAY 10, 1995

 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 ;

CKOUTTM(X,IBFORMID) ;adds the date to the time and puts in FM format- gets the date from IBFORMID("APPT")

 ;pass X and IBFORMID by reference!!!

 ;

 S X=($G(IBFORMID("APPT"))\1)_"."_X

 Q

CKOUT(X) ;converts X to FM date and time

 ;pass X by reference!

 N %DT,Y

 S %DT="NR"

 D ^%DT

 S X=Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBDFN13   445     printed  Apr 09, 2024@21:42:47                                                                                                                                                                                                      Page 2

IBDFN13   ;ALB/CJM - ENCOUNTER FORM - (input tranforms for AICS Data Types);MAY 10, 1995

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997

 +2       ;

CKOUTTM(X,IBFORMID) ;adds the date to the time and puts in FM format- gets the date from IBFORMID("APPT")

 +1       ;pass X and IBFORMID by reference!!!

 +2       ;

 +3        SET X=($GET(IBFORMID("APPT"))\1)_"."_X

 +4        QUIT 

CKOUT(X)  ;converts X to FM date and time

 +1       ;pass X by reference!

 +2        NEW %DT,Y

 +3        SET %DT="NR"

 +4        DO ^%DT

 +5        SET X=Y

 +6        QUIT