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

AGTMAPPT.m

Go to the documentation of this file.
  1. AGTMAPPT ; IHS/SD/TPF - EDIT/ENTER PATIENT APPLICATION TYPES
  1. ;;7.1;PATIENT REGISTRATION;;AUG 25,2005
  1. ;USED BY OPTION [AG TM EDIT PAT. APP. TYPES]
  1. EN K DIC
  1. S DIC="^AUPNAPPT("
  1. S DIC(0)="AELM"
  1. D ^DIC
  1. Q:Y<0
  1. D EDIT(+Y)
  1. G EN
  1. EDIT(DA) ;EP -
  1. S DIE="^AUPNAPPT("
  1. S DR=.01
  1. D ^DIE
  1. Q