XQSMDP.m

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 ---XQSMDP   968     printed  Apr 09, 2024@21:06:55                                                                                                                                                                                                       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