©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGPTLMU1 ;ALM/MTC - Utilities used for the List Manager; 9-17-92
Source file <DGPTLMU1.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 5 | DELENTRY^DGPTAPSL $$STATUS^DGPTLMU2 SEL^DGPTLMU3 ($$FTIME,$$LOWER,$$SETSTR,CLEAR)^VALM1 (FLDCTRL,KILL,RESTORE,SAVE,WRITE)^VALM10 |
| VA Fileman | 3 | ^DIE ^DIK ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXPTFQ | ||
| DELEX | ;-- tag entries to delete in the search template.
|
|
| MAKPER() | ;-- This function will prompt the user if all changes to the
; search template should be made permanent. ; INPUT : - None ; OUTPUT : 1 - Yes, 0 - No |
|
| EXINTQ | ||
| EXINT | ;-- init routine to call List Manager
|
|
| UPSTQ | ||
| EXQ | ;-- exit function call from List Manager
|
|
| UPST(REC) | ;-- This function will update the search template if entries are
; contained in the ^TMP("ATCPTF",$J,"LIST","DEL") global. Lastly, ; the total number of entries will be updated in the PTF A/P ; History file (#45.62) ; INPUT : REC - Entry in file 45.62 |
|
| EXPTF(FNAME) | ;-- This function will take the entries in the search
; template FNAME and expand them for display using the List Manager. ; The global that will contain the display items is: ; ^TMP("ARCPTF",$J,"LIST") ; INPUT : FNAME - PTF Archive/Purge File entry ; OUTPUT: Total Number of entries |
|
| EXHDR | ;-- header function for Editing List.
|
|
| ADDEX | ;-- if an entry has been un-selected for a/p this function will
; re-activate for the a/p process. |
| Name | Field # of Occurrence |
|---|---|
| DELENTRY^DGPTAPSL | UPST+12 |
| $$STATUS^DGPTLMU2 | EXHDR+4 |
| SEL^DGPTLMU3 | DELEX+2, ADDEX+3 |
| ^DIE | EXPTF+29, UPST+13 |
| ^DIK | EXINT+8, EXINT+9 |
| ^DIR | MAKPER+7 |
| $$FTIME^VALM1 | EXHDR+2, EXPTF+22, EXPTF+24 |
| $$LOWER^VALM1 | EXPTF+25 |
| $$SETSTR^VALM1 | EXPTF+19, EXPTF+20, EXPTF+21, EXPTF+22, EXPTF+24, DELEX+9, ADDEX+10 |
| CLEAR^VALM1 | EXQ+3 |
| FLDCTRL^VALM10 | EXPTF+28, ADDEX+11 |
| KILL^VALM10 | DELEX+7 |
| RESTORE^VALM10 | ADDEX+8 |
| SAVE^VALM10 | DELEX+7 |
| WRITE^VALM10 | DELEX+10, ADDEX+12 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DGP(45.62 - [#45.62] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGP(45.62 - [#45.62] | EXINT+3, EXINT+8, EXHDR+2, EXPTF+12, EXPTF+13, EXPTF+14, UPST+8, UPST+12 |
| ^DGPT - [#45] | EXPTF+17, EXPTF+21, EXPTF+22, EXPTF+23 |
| ^DIBT( | EXPTF+13, EXPTF+15, EXPTF+17!, UPST+11! |
| ^DPT - [#2] | EXPTF+21 |
| ^TMP("ARCPTF" | EXINT+2!, EXQ+1, EXQ+2!, EXPTF+25*, EXPTF+26*, EXPTF+27*, DELEX+4, DELEX+5*, DELEX+6, DELEX+8 , DELEX+9*, ADDEX+5, ADDEX+6!, ADDEX+7, ADDEX+9, ADDEX+10*, UPST+6, UPST+9 |
| Name | Line Occurrences |
|---|---|
| $$EXPTF | EXINT+4 |
| $$MAKPER | EXQ+1 |
| EXPTFQ | EXPTF+12, EXPTF+13 |
| UPST | EXQ+1 |
| UPSTQ | UPST+6, UPST+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AREC | EXPTF+9~, EXPTF+14*, EXPTF+29 |
| DA | EXINT+8*!, EXINT+9*!, EXPTF+29*!, UPST+13*! |
| DELREC | UPST+5~, UPST+8*, UPST+10*, UPST+12, UPST+13 |
| DGI | DELEX+1~, DELEX+4*, DELEX+5, DELEX+6, ADDEX+2~, ADDEX+5*, ADDEX+6, ADDEX+7 |
| DGJ | DELEX+1~, DELEX+6*, DELEX+7, DELEX+8, DELEX+9, DELEX+10, ADDEX+2~, ADDEX+7*, ADDEX+8, ADDEX+9 , ADDEX+10, ADDEX+11, ADDEX+12 |
| >> DGTMP | EXINT+3, EXINT+8, EXINT+9, EXQ+1, EXHDR+2, EXHDR+4 |
| DGX | EXPTF+9~, EXPTF+12*, EXPTF+13, EXPTF+14, EXPTF+15*, EXPTF+17, EXPTF+20, EXPTF+21, EXPTF+22, EXPTF+23 , EXPTF+26, EXPTF+27 |
| DGY | EXPTF+9~, EXPTF+23*, EXPTF+24 |
| DIE | EXPTF+29*!, UPST+13*! |
| DIK | EXINT+8*!, EXINT+9*! |
| DIR | MAKPER+8! |
| DIR("A" | MAKPER+6* |
| DIR("B" | MAKPER+6* |
| DIR(0 | MAKPER+6* |
| DR | EXPTF+29*!, UPST+13*! |
| FNAME | EXPTF~, EXPTF+12 |
| I | UPST+5~, UPST+9*, UPST+11 |
| NUMREC | EXPTF+9~, EXPTF+10*, EXPTF+18*, EXPTF+25, EXPTF+26, EXPTF+27, EXPTF+28, EXPTF+29, EXPTFQ |
| REC | EXPTF+9~, EXPTF+13*, EXPTF+15, EXPTF+17, EXPTF+29, UPST~, UPST+8, UPST+12, UPST+13 |
| SRTREC | UPST+5~, UPST+8*, UPST+11 |
| U | EXINT+3, EXINT+8, EXHDR+2, EXPTF+13, EXPTF+14, EXPTF+21, EXPTF+22, UPST+8, UPST+12 |
| >> VALMBCK | DELEX+11*, ADDEX+13* |
| >> VALMCC | DELEX+11, ADDEX+13 |
| >> VALMCNT | EXINT+4*, EXINT+6, EXHDR+3, UPST+12 |
| >> VALMHDR(1 | EXHDR+2* |
| >> VALMHDR(2 | EXHDR+3* |
| >> VALMHDR(3 | EXHDR+5* |
| >> VALMQUIT | EXINT+10* |
| VALMY | DELEX+12!, ADDEX+14! |
| VALMY( | DELEX+4, ADDEX+5 |
| X | EXINT+1~, EXINT+3*, EXINT+4, EXINT+6, EXHDR+1~, EXPTF+9~, EXPTF+18*, EXPTF+19*, EXPTF+20*, EXPTF+21* , EXPTF+22*, EXPTF+24*, EXPTF+25, DELEX+1~, DELEX+8*, DELEX+9*, ADDEX+9*, ADDEX+10* |
| Y | EXHDR+1~, EXHDR+4*, EXHDR+5, DELEX+1~, MAKPER+5~, MAKPER+9 |