- AGTMAPPT ; IHS/SD/TPF - EDIT/ENTER PATIENT APPLICATION TYPES
- ;;7.1;PATIENT REGISTRATION;;AUG 25,2005
- ;USED BY OPTION [AG TM EDIT PAT. APP. TYPES]
- EN K DIC
- S DIC="^AUPNAPPT("
- S DIC(0)="AELM"
- D ^DIC
- Q:Y<0
- D EDIT(+Y)
- G EN
- EDIT(DA) ;EP -
- S DIE="^AUPNAPPT("
- S DR=.01
- D ^DIE
- Q
- AGTMAPPT ; IHS/SD/TPF - EDIT/ENTER PATIENT APPLICATION TYPES
- +1 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005
- +2 ;USED BY OPTION [AG TM EDIT PAT. APP. TYPES]
- EN KILL DIC
- +1 SET DIC="^AUPNAPPT("
- +2 SET DIC(0)="AELM"
- +3 DO ^DIC
- +4 IF Y<0
- QUIT
- +5 DO EDIT(+Y)
- +6 GOTO EN
- EDIT(DA) ;EP -
- +1 SET DIE="^AUPNAPPT("
- +2 SET DR=.01
- +3 DO ^DIE
- +4 QUIT