- 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 ;