XQSMDP ; SEA/MJM - Post init for XQSMD Kernel V. 6 ; 12/16/88 12:06 ;
;;8.0;KERNEL;;Jul 10, 1995
S (DIE,DIC)=19,DIC(0)="XMF",DR="13///NO"
F X="XUPROG","XUPROGMODE","EVE","DIEDFILE","DIEDIT","DIFROM","DIIDENT","DIITRAN","DILIST","DIMODIFY","DIINQUIRE","DIPRINT","DIRDEX","DISEARCH","DISTATISTICS","DITRANSFER","DIUNEDIT","DIUSER","DIUTILITY" D ^DIC I +Y>0 S DA=+Y D ^DIE W "."
F X="DIVERIFY","DIWF","DIXREF","XQRESTRICT","XQSMD ADD","XQSMD BUILD MENU","XQSMD BY OPTION" D ^DIC I +Y>0 S DA=+Y D ^DIE W "."
F X="XQSMD EDIT OPTIONS","XQSMD MENU","XQSMD MGR","XQSMD REMOVE","XQSMD REPLICATE","XQSMD SHOW","XQSMD BY USER","XQSMD USER MENU","XUKEYALL","XUKEYDEALL","XUKEYEDIT","XUMAINT","XUOPTDISP","XUOPTLOG","XUOPTPURGE" D ^DIC I +Y>0 S DA=+Y D ^DIE
F X="XUPMLOG","XUPMPURGE","XUPMDISP","XUPSEC","XUSC LIST","XUSCZONK","XUSEC","XUSER","XUSERAOLD","XUSERNEW","XUSEREDIT","XUSERDEACT","XUSITEMGR","XUSITEPARM","XUUSEROPT" D ^DIC I +Y>0 S DA=+Y D ^DIE W "."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXQSMDP 968 printed Dec 13, 2024@02:06:38 Page 2
XQSMDP ; SEA/MJM - Post init for XQSMD Kernel V. 6 ; 12/16/88 12:06 ;
+1 ;;8.0;KERNEL;;Jul 10, 1995
+2 SET (DIE,DIC)=19
SET DIC(0)="XMF"
SET DR="13///NO"
+3 FOR X="XUPROG","XUPROGMODE","EVE","DIEDFILE","DIEDIT","DIFROM","DIIDENT","DIITRAN","DILIST","DIMODIFY","DIINQUIRE","DIPRINT","DIRDEX","DISEARCH","DISTATISTICS","DITRANSFER","DIUNEDIT","DIUSER","DIUTILITY"
DO ^DIC
IF +Y>0
SET DA=+Y
DO ^DIE
WRITE "."
+4 FOR X="DIVERIFY","DIWF","DIXREF","XQRESTRICT","XQSMD ADD","XQSMD BUILD MENU","XQSMD BY OPTION"
DO ^DIC
IF +Y>0
SET DA=+Y
DO ^DIE
WRITE "."
+5 FOR X="XQSMD EDIT OPTIONS","XQSMD MENU","XQSMD MGR","XQSMD REMOVE","XQSMD REPLICATE","XQSMD SHOW","XQSMD BY USER","XQSMD USER MENU","XUKEYALL","XUKEYDEALL","XUKEYEDIT","XUMAINT","XUOPTDISP","XUOPTLOG","XUOPTPURGE"
DO ^DIC
IF +Y>0
SET DA=+Y
DO ^DIE
+6 FOR X="XUPMLOG","XUPMPURGE","XUPMDISP","XUPSEC","XUSC LIST","XUSCZONK","XUSEC","XUSER","XUSERAOLD","XUSERNEW","XUSEREDIT","XUSERDEACT","XUSITEMGR","XUSITEPARM","XUUSEROPT"
DO ^DIC
IF +Y>0
SET DA=+Y
DO ^DIE
WRITE "."
+7 QUIT
