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

LRAIPRIV.m

Go to the documentation of this file.

LRAIPRIV ; DALISC/LD - DOD SITE'S PRIVACY ACT STATEMENT GEM/LL

 ;;5.2;LAB SERVICE;;Sep 27, 1994

 ;formerly named IAAPRIV

 ;used by DOD sites only

 S:'$D(IOM) IOM=80

 W ?(IOM-41)\2,"** PERSONAL DATA - PRIVACY ACT OF 1974 **",!

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRAIPRIV   232     printed  Nov 22, 2024@17:16:52                                                                                                                                                                                                     Page 2

LRAIPRIV  ; DALISC/LD - DOD SITE'S PRIVACY ACT STATEMENT GEM/LL

 +1       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +2       ;formerly named IAAPRIV

 +3       ;used by DOD sites only

 +4        if '$DATA(IOM)

               SET IOM=80

 +5        WRITE ?(IOM-41)\2,"** PERSONAL DATA - PRIVACY ACT OF 1974 **",!