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

ASDL.m

Go to the documentation of this file. 
  1. ASDL ; IHS/ADC/PDW/ENM - List Template Exporter ;  [ 03/25/1999  11:48 AM ]
  1.  ;;5.0;IHS SCHEDULING;;MAR 25, 1999
  1.  ;; ;
  1.  W !,"'SD IHS APPT MADE BY' List Template..."
  1.  S DA=$O(^SD(409.61,"B","SD IHS APPT MADE BY",0)),DIK="^SD(409.61," D ^DIK:DA
  1.  K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="SD IHS APPT MADE BY" D FILE^DICN S VALM=+Y
  1.  I VALM>0 D
  1.  .S ^SD(409.61,VALM,0)="SD IHS APPT MADE BY^1^^80^4^20^1^1^APPOINTMENT^SD IHS APPT MADE BY^APPOINTMENT MADE BY^1^^1"
  1.  .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
  1.  .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""ASDAMB"",$J)"
  1.  .S ^SD(409.61,VALM,"COL",0)="^409.621^4^4"
  1.  .S ^SD(409.61,VALM,"COL",1,0)="APPT DATE^5^18^APPT DATE/TIME"
  1.  .S ^SD(409.61,VALM,"COL",2,0)="CLINIC^25^25^CLINIC"
  1.  .S ^SD(409.61,VALM,"COL",3,0)="MADE BY^50^18^MADE BY"
  1.  .S ^SD(409.61,VALM,"COL",4,0)="DATE APPT MADE^68^12^DT APPT MADE"
  1.  .S ^SD(409.61,VALM,"FNL")="D EXIT^ASDAMB"
  1.  .S ^SD(409.61,VALM,"HDR")="D HDR^ASDAMB"
  1.  .S ^SD(409.61,VALM,"HLP")="D HELP^ASDAMB"
  1.  .S ^SD(409.61,VALM,"INIT")="D INIT^ASDAMB"
  1.  .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
  1.  .W "Filed."
  1.  ;
  1.  W !,"'SD IHS USER DISPLAY' List Template..."
  1.  S DA=$O(^SD(409.61,"B","SD IHS USER DISPLAY",0)),DIK="^SD(409.61," D ^DIK:DA
  1.  K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="SD IHS USER DISPLAY" D FILE^DICN S VALM=+Y
  1.  I VALM>0 D
  1.  .S ^SD(409.61,VALM,0)="SD IHS USER DISPLAY^2^^80^3^21^1^1^^^SCHEDULING USER SETUP^1^^1"
  1.  .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
  1.  .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""ASDUSL1"",$J)"
  1.  .S ^SD(409.61,VALM,"FNL")="D EXIT^ASDUSL1"
  1.  .S ^SD(409.61,VALM,"HDR")="D HDR^ASDUSL1"
  1.  .S ^SD(409.61,VALM,"HLP")="D HELP^ASDUSL1"
  1.  .S ^SD(409.61,VALM,"INIT")="D INIT^ASDUSL1"
  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