ASMSSD.m

ASMSSD ;ALLOWS SHUTING DOWN SYSTEM FROM 'PRD' [ 10/17/85  4:19 PM ]

 ;IHS-OKLA CITY AREA OFFICE-LMD

A S X="MGR" D ^%AUXUCI D ^SSD D 1^CARE S X="PRD" D ^%AUXUCI Q

END Q

ASMSSD    ;ALLOWS SHUTING DOWN SYSTEM FROM 'PRD' [ 10/17/85  4:19 PM ]

 +1       ;IHS-OKLA CITY AREA OFFICE-LMD

A          SET X="MGR"

           DO ^%AUXUCI

           DO ^SSD

           DO 1^CARE

           SET X="PRD"

           DO ^%AUXUCI

           QUIT 

END        QUIT