ACHSHCMD.m

ACHSHCMD ; IHS/ITSC/PMF - UNIX HOST COMMAND ROUTINE FOR MSM ;  [ 10/16/2001   8:16 AM ]

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 ;

 ;IHS/ITSC/PMF  1/12/01  make the TERMINAL tag a parm passed tag

 ;

 U IO(0)

 W "NOT AN ENTRY POINT"

 Q

 ;

TERMINAL(CMD) ;EP  - ENTRY POINT FOR MSM $$TERMINAL^%HOSTCMD

 N X

 S X=$$TERMINAL^%HOSTCMD(ACHSHCMD) ;Exception granted -- dated 4/30/93 (Blanket exception.)

 Q X

 ;

ACHSHCMD  ; IHS/ITSC/PMF - UNIX HOST COMMAND ROUTINE FOR MSM ;  [ 10/16/2001   8:16 AM ]

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001

 +2       ;

 +3       ;IHS/ITSC/PMF  1/12/01  make the TERMINAL tag a parm passed tag

 +4       ;

 +5        USE IO(0)

 +6        WRITE "NOT AN ENTRY POINT"

 +7        QUIT 

 +8       ;

TERMINAL(CMD) ;EP  - ENTRY POINT FOR MSM $$TERMINAL^%HOSTCMD

 +1        NEW X

 +2       ;Exception granted -- dated 4/30/93 (Blanket exception.)

           SET X=$$TERMINAL^%HOSTCMD(ACHSHCMD)

 +3        QUIT X

 +4       ;