DGRPP ;ALB/MRL,AEG,LBD,ASF,LEG,RN,JAM - REGISTRATION SCREEN PROCESSOR ;Apr 05, 2020@15:16
Source file <DGRPP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
|
|
| JUMP | ;
|
|
| Q | ||
| ; DG*5.3*1143 - Discard edits if the RTA Edit Flag is set (edits are pending)
|
||
| Q1 | ||
| SENSCHK | ; check whether patient record should be made sensitive
|
|
| SEC | ;if patient type says make record sensitive, add to security log file
|
|
| CHOICE | ;parse out which items were selected for edit
|
|
| NEXT | ;find next available screen...goto
|
|
| SCRX | ;goto screen X
|
|
| W | ;write highlighted text on screen (if parameter on)
|
|
| SCR9 | ; see if MT is completed. Allow only selective editing if so
|
|
| SAVEADDR | ; DG*5.3*1143 - (S)ave option from screen 1.1 editing
; Call function to transmit the data and save |
|
| DISCARD | ||
| DISCONF() | ; DG*5.3*1143 - Confirm if user wants to discard the changes
|
|
| REF | ;End of page prompt (Refresh)
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DGSL(38.1 - [#38.1] | Classic Fileman Calls |
