- 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 Feb 18, 2025@23:33:04 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