Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMPLIL2

GMPLIL2.m

Go to the documentation of this file.
  1. GMPLIL2 ; List Template Exporter ; 21-OCT-1994
  1. ;;2.0;Problem List;;Aug 25, 1994
  1. ;; ;
  1. K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="GMPL USER PREFS" D FILE^DICN S VALM=+Y
  1. I VALM>0 D
  1. .S ^SD(409.61,VALM,0)="GMPL USER PREFS^1^^^5^14^1^1^Item^GMPL USER PREFS^PROBLEM LIST PREFERRED VIEW^1^^1"
  1. .S ^SD(409.61,VALM,1)="^GMPL HIDDEN MENU"
  1. .S ^SD(409.61,VALM,"ARRAY")=" GMPLIST"
  1. .S ^SD(409.61,VALM,"COL",0)="^409.621^3^3"
  1. .S ^SD(409.61,VALM,"COL",1,0)="NUMBER^1^3"
  1. .S ^SD(409.61,VALM,"COL",2,0)="SERVICE^5^35^Clinic"
  1. .S ^SD(409.61,VALM,"COL",3,0)="ACCEPT^45^20^Included in View"
  1. .S ^SD(409.61,VALM,"FNL")="D CLEAN^GMPLPREF"
  1. .S ^SD(409.61,VALM,"HDR")="D HDR^GMPLPREF"
  1. .S ^SD(409.61,VALM,"HLP")="D HELP^GMPLPREF"
  1. .S ^SD(409.61,VALM,"INIT")="D INIT^GMPLPREF"
  1. .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
  1. .W "Filed."
  1. ;
  1. K DIC,DIK,VALM,X,DA Q