- 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 Feb 18, 2025@23:07:36 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