DVBAERMK ;557/THM-EDIT AMIE 7131 REMARKS; 21 JUL 89@0118
;;2.7;AMIE;;Apr 10, 1995
;
TERM D HOME^%ZIS
S HD="EDIT 7131 REMARKS"
;
SETUP W @IOF,!?(IOM-$L(HD)\2),HD,!! S DIE="^DVB(396,",DR="[DVBA EDIT REMARKS]",DIC=DIE,DIC(0)="AEQM",DIC("A")="Enter PATIENT NAME: "
D DICW^DVBAUTIL
;
EDIT D ^DIC G:X=U!(X="") EXIT W:Y<0 *7," ??" G:Y<0 EDIT I Y>0 S DA=+$P(Y,U,1) W !!
D ^DIE H 3
G SETUP
;
EXIT W @IOF D KILL^DVBAUTIL
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBAERMK 439 printed Dec 13, 2024@01:41:13 Page 2
DVBAERMK ;557/THM-EDIT AMIE 7131 REMARKS; 21 JUL 89@0118
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 ;
TERM DO HOME^%ZIS
+1 SET HD="EDIT 7131 REMARKS"
+2 ;
SETUP WRITE @IOF,!?(IOM-$LENGTH(HD)\2),HD,!!
SET DIE="^DVB(396,"
SET DR="[DVBA EDIT REMARKS]"
SET DIC=DIE
SET DIC(0)="AEQM"
SET DIC("A")="Enter PATIENT NAME: "
+1 DO DICW^DVBAUTIL
+2 ;
EDIT DO ^DIC
if X=U!(X="")
GOTO EXIT
if Y<0
WRITE *7," ??"
if Y<0
GOTO EDIT
IF Y>0
SET DA=+$PIECE(Y,U,1)
WRITE !!
+1 DO ^DIE
HANG 3
+2 GOTO SETUP
+3 ;
EXIT WRITE @IOF
DO KILL^DVBAUTIL
+1 QUIT