AGTMAPPT.m

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