DVBAERMK.m

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 ---DVBAERMK   439     printed  Apr 09, 2024@20:57:07                                                                                                                                                                                                     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