DGRPU1 ;ALB/REW,JAM - CUSTOM LOAD/EDIT SCREEN UTILITIES ;19 Oct 2017 3:02 PM
Source file <DGRPU1.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 3 | $$RTASEND^DGRPCADD ^DGRPE $$ISRTAUON^DGRTAUPD |
| VA FileMan | 1 | ^DIR |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Scheduling | 2 | SCENIA1 SDCOAM |
| Automated Medical Information Exchange | 1 | DVBCADR |
| Fee Basis | 1 | FBAACO0 |
| 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
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %Y | QUES+20~ |
| D | QUES+19~ |
| D0 | QUES+19~ |
| DFN | QUES~, QUES+22, RETRY+9, RETRY+11, RETRY+18, RETRY+22, RETRY+26, SAVEADDR+3 |
| DGADDEDIT | QUES+25~, RETRY+2!, RETRY+16 |
| DGADDGRP1 | QUES+25~ |
| DGADDGRP2 | QUES+25~ |
| DGADDGRP3 | QUES+25~ |
| DGADDGRP4 | QUES+25~ |
| DGADDGRP5 | QUES+25~ |
| >> DGCHANGE | QUES+21*, RETRY+18*, RETRY+19, RETRY+20, RETRY+21, RETRY+22*, RETRY+23, RETRY+24, RETRY+25, RETRY+26* |
| DGCODE | QUES+19~, RETRY+4*, RETRY+5 |
| DGDR | QUES+19~, RETRY+6*, RETRY+7 |
| >> DGERR | QUES+21*, QTE* |
| DGNODE | QUES+19~, RETRY+9*, RETRY+11*, RETRY+18*, RETRY+19*, RETRY+20, RETRY+21, RETRY+22, RETRY+24, RETRY+25 , RETRY+26 |
| DGPC | QUES+19~, RETRY+4*, RETRY+6, RETRY+8, RETRY+10 |
| DGPTND | QUES+19~ |
| DGPTND( | RETRY+9*, RETRY+18 |
| DGPTNDM | QUES+20~ |
| DGPTNDM( | RETRY+11*, RETRY+19, RETRY+20, RETRY+21, RETRY+22, RETRY+26 |
| DGQ | QUES+19~, RETRY+3*, RETRY+4 |
| DGQCODE | QUES~, QUES+22, RETRY+3, RETRY+4 |
| DGQNODES | QUES+19~, RETRY+8*, RETRY+9, RETRY+10*, RETRY+11 |
| DGRETRY | QUES+25~, RETRY+16*, ASK+10* |
| >> DGRPOUT | RETRY+13 |
| DGRPS | QUES+19~, QUES+21*, RETRY+7*, QTE |
| DGRTAHOLD | QUES+25~* |
| DGRTAON | QUES+25~*, RETRY+2 |
| >> DGTMOT | RETRY+13, SAVEADDR+6, ASK+6* |
| DGX | QUES+19~, RETRY+3* |
| DI | QUES+19~ |
| DIC | QUES+19~ |
| DIR | SAVEADDR+9~, ASK+4! |
| DIR("?" | ASK+3* |
| DIR("A" | ASK+1* |
| DIR(0 | ASK+2* |
| DQ | QUES+20~ |
| >> DTOUT | SAVEADDR+6, ASK+6 |
| >> DUOUT | SAVEADDR+8, ASK+8 |
| N | QUES+20~, RETRY+9*, RETRY+11* |
| U | RETRY+3, RETRY+4, RETRY+6, RETRY+8, RETRY+10 |
| X | QUES+20~, RETRY+20*, RETRY+21, RETRY+22, RETRY+24*, RETRY+25, RETRY+26, SAVEADDR+9~, ASK+10 |
| Y | QUES+20~, RETRY+21*, RETRY+22, RETRY+25*, RETRY+26, SAVEADDR+9~ |