DGRPU1 ;ALB/REW,JAM - CUSTOM LOAD/EDIT SCREEN UTILITIES ;19 Oct 2017 3:02 PM
Source file <DGRPU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUES(DFN,DGQCODE) | ; EDIT SPECIFIC PORTIONS OF REGISTRATION DATA
|
|
| RETRY | ; DG*5.3*1143 - Add tag RETRY so on Real-time update failure, the user can retry the edits
; Clear the edit array (on Retry) |
|
| QTE | ||
| QTQ | ||
| SAVEADDR() | ; DG*5.3*1143 - Save edits made with RTA updates enabled
; If successful, quit 1 ; otherwise return 0 and set DGRETRY=1 if user elects to re-enter the data |
|
| ASK | ; Prompt user and allow them to correct the address or quit
|
|
| QDES | ;MNEMONIC - DGQCODE should match with one of these
|
|
| QNUM | ;REFERENCE NUMBERS USED TO SET DGDR FOR USE BY ^DGRPE - DG*5.3*1143 - add commas to end of edit string which DGRPE expects
|
|
| QNODE | ;;NODES OF THE PATIENT FILE
|
|
| MNODE | ;;MULTIPLES OF THE PATIENT FILE
|
