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

BMCL.m

Go to the documentation of this file. 
  1. BMCL ; IHS/PHXAO/TMJ - List Template Exporter ; 21-DEC-2004  
  1.  ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
  1.  ;IHS/ITSC/FCJ ADDED DISPLAY OF OTHER DENIALS AND PROV
  1.  W !,"'BMC GENRET SELECTION ITEMS' List Template..."
  1.  S DA=$O(^SD(409.61,"B","BMC GENRET SELECTION ITEMS",0)),DIK="^SD(409.61," D ^DIK:DA
  1.  K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="BMC GENRET SELECTION ITEMS" D FILE^DICN S VALM=+Y
  1.  I VALM>0 D
  1.  .S ^SD(409.61,VALM,0)="BMC GENRET SELECTION ITEMS^1^^80^7^20^1^1^Item^BMC GENRET SELECTION MENU^RCIS GENERAL RETRIEVAL^1^^1"
  1.  .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
  1.  .S ^SD(409.61,VALM,"ARRAY")=" BMCLIST"
  1.  .S ^SD(409.61,VALM,"FNL")="D EXIT^BMCRL4"
  1.  .S ^SD(409.61,VALM,"HDR")="D HDR^BMCRL4"
  1.  .S ^SD(409.61,VALM,"HLP")="D HELP^BMCRL4"
  1.  .S ^SD(409.61,VALM,"INIT")="D INIT^BMCRL4"
  1.  .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
  1.  .W "Filed."
  1.  ;
  1.  W !,"'BMC RECORD DISPLAY' List Template..."
  1.  S DA=$O(^SD(409.61,"B","BMC RECORD DISPLAY",0)),DIK="^SD(409.61," D ^DIK:DA
  1.  K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="BMC RECORD DISPLAY" D FILE^DICN S VALM=+Y
  1.  I VALM>0 D
  1.  .S ^SD(409.61,VALM,0)="BMC RECORD DISPLAY^1^^200^4^20^1^1^RCIS Referral Display^BMC RECORD DISPLAY^RCIS Referral Display^1^^1"
  1.  .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
  1.  .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""BMCRDSP"",$J)"
  1.  .S ^SD(409.61,VALM,"FNL")="D EXIT^BMCRD1"
  1.  .S ^SD(409.61,VALM,"HDR")="D HDR^BMCRD1"
  1.  .S ^SD(409.61,VALM,"HLP")="D HELP^BMCRD1"
  1.  .S ^SD(409.61,VALM,"INIT")="D INIT^BMCRD1"
  1.  .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
  1.  .W "Filed."
  1.  ;
  1.  W !,"'BMC ROUTINE REFERRAL LIST' List Template..."
  1.  S DA=$O(^SD(409.61,"B","BMC ROUTINE REFERRAL LIST",0)),DIK="^SD(409.61," D ^DIK:DA
  1.  K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="BMC ROUTINE REFERRAL LIST" D FILE^DICN S VALM=+Y
  1.  I VALM>0 D
  1.  .S ^SD(409.61,VALM,0)="BMC ROUTINE REFERRAL LIST^1^^80^4^21^1^1^Routine Referral^BMC ROUTINE REFERRAL SELECTION^RCIS ROUTINE REFERRAL^1^^1"
  1.  .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
  1.  .S ^SD(409.61,VALM,"ARRAY")=" BMCLIST"
  1.  .S ^SD(409.61,VALM,"FNL")="D EXIT^BMCADD2"
  1.  .S ^SD(409.61,VALM,"HDR")="D HDR^BMCADD2"
  1.  .S ^SD(409.61,VALM,"HLP")="D HELP^BMCADD2"
  1.  .S ^SD(409.61,VALM,"INIT")="D INIT^BMCADD2"
  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