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

RGHLPOST.m

Go to the documentation of this file.

RGHLPOST ;CAIRO/DKM-CIRN Messaging Build Postinit ;19-Dec-97

 ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99

 ;=================================================================

 ;cairo's stuff

 W !!

 X ^%ZOSF("EON"),^%ZOSF("TRMOFF")

 I $P($G(^RGSITE("COR",1,"TZ")),U)="",$$^RGMSCDIC(990.8,"1|<10;11")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGHLPOST   320     printed  Apr 09, 2024@20:47:17                                                                                                                                                                                                     Page 2

RGHLPOST  ;CAIRO/DKM-CIRN Messaging Build Postinit ;19-Dec-97

 +1       ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99

 +2       ;=================================================================

 +3       ;cairo's stuff

 +4        WRITE !!

 +5        XECUTE ^%ZOSF("EON")

           XECUTE ^%ZOSF("TRMOFF")

 +6        IF $PIECE($GET(^RGSITE("COR",1,"TZ")),U)=""

               IF $$^RGMSCDIC(990.8,"1|<10;11")

 +7        QUIT

 +8       ;