XTVSLPD1 ;Albany FO/GTS - VistA Package Sizing Manager - Caption display APIs; 12-JUL-2016
Source file <XTVSLPD1.m>
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BADRNG(X) | ;Checks user entered File Range (used by DIR call)
|
|
| SETSTR(CAPARY) | ;Return a string of Package File Lineitem (Concatonate fields to 1 HDR line)
|
|
| EDPKGPRM(PKGNME) | ; Edit Package Parameters
|
|
| EDCHK(PKGNME) | ; Check for edit
; Input PKGNME - Name of selected package ; Output XTEDIT - 0: Not Edited ; 1: Edited |
|
| DATCHK(BIDATA,EDDATA) | ;Compare data for Add, Change, Delete OR find if all same data in different '|' pces
|
|
| BEFORIMG(PKGNME) | ; Create "^TMP(""XTVS-PARAM-BI"","_$J_","""_PKGNME_""")" to record initial package definitions before edits
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("XTVS-PARAM-BI" | EDCHK+6, EDCHK+7, EDCHK+8, EDCHK+10, EDCHK+13, EDCHK+17, EDCHK+20, EDCHK+24, EDCHK+27, EDCHK+31 , EDCHK+34, EDCHK+37, BEFORIMG+1, BEFORIMG+2*, BEFORIMG+3*, BEFORIMG+4*, BEFORIMG+5*, BEFORIMG+6*, BEFORIMG+7*, BEFORIMG+8* , BEFORIMG+9* |
| ^TMP("XTVS-PARAM-CAP" | EDCHK+6, EDCHK+7, EDCHK+8, EDCHK+10, EDCHK+14, EDCHK+17, EDCHK+21, EDCHK+24, EDCHK+28, EDCHK+31 , EDCHK+35, EDCHK+37, BEFORIMG+2, BEFORIMG+3, BEFORIMG+4, BEFORIMG+5, BEFORIMG+6, BEFORIMG+7, BEFORIMG+8, BEFORIMG+9 |
| Name | Line Occurrences |
|---|---|
| $$DATCHK | EDCHK+15, EDCHK+22, EDCHK+29, EDCHK+36 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BICHK | DATCHK+1~, DATCHK+5*, DATCHK+7 |
| BIDATA | EDCHK+12~, EDCHK+13*, EDCHK+15, EDCHK+19~, EDCHK+20*, EDCHK+22, EDCHK+26~, EDCHK+27*, EDCHK+29, EDCHK+33~ , EDCHK+34*, EDCHK+36, DATCHK~, DATCHK+2, DATCHK+4, DATCHK+5 |
| BIPCE | DATCHK+1~, DATCHK+4*, DATCHK+5 |
| CAPARY | SETSTR~, SETSTR+4, SETSTR+5, SETSTR+6 |
| DATANAME | EDPKGPRM+1~, EDPKGPRM+5*, EDPKGPRM+7, EDPKGPRM+8 |
| DATANUM | EDPKGPRM+1~, EDPKGPRM+3*, EDPKGPRM+4*, EDPKGPRM+5, EDPKGPRM+8, EDPKGPRM+11, EDPKGPRM+14, EDPKGPRM+17, EDPKGPRM+20, EDPKGPRM+23 , EDPKGPRM+26 |
| DIR | EDPKGPRM+6~, EDPKGPRM+28!, EDPKGPRM+30! |
| DIR("A" | EDPKGPRM+7*, EDPKGPRM+11, EDPKGPRM+14, EDPKGPRM+17, EDPKGPRM+20, EDPKGPRM+23, EDPKGPRM+26 |
| DIR("B" | EDPKGPRM+8*, EDPKGPRM+11, EDPKGPRM+14, EDPKGPRM+17, EDPKGPRM+20, EDPKGPRM+23, EDPKGPRM+26 |
| DIRUT | EDPKGPRM+30! |
| DTOUT | EDPKGPRM+4, EDPKGPRM+30! |
| DUOUT | EDPKGPRM+4, EDPKGPRM+30! |
| EDDATA | EDCHK+12~, EDCHK+14*, EDCHK+15, EDCHK+19~, EDCHK+21*, EDCHK+22, EDCHK+26~, EDCHK+28*, EDCHK+29, EDCHK+33~ , EDCHK+35*, EDCHK+36, DATCHK~, DATCHK+2, DATCHK+7 |
| EDITARY | EDPKGPRM+1~, EDPKGPRM+2*, EDPKGPRM+4, EDPKGPRM+5, EDPKGPRM+8 |
| EDPCE | DATCHK+1~, DATCHK+7* |
| EQDATFND | DATCHK+1~, DATCHK+6*, DATCHK+7*, DATCHK+8 |
| FLD | SETSTR+1~, SETSTR+5*, SETSTR+6 |
| GETOUT | EDPKGPRM+1~ |
| LINEITM | SETSTR+1~, SETSTR+2*, SETSTR+6*, SETSTR+7 |
| LPCNT | SETSTR+1~, SETSTR+3*, SETSTR+4*, SETSTR+5, SETSTR+6 |
| PKGNME | EDPKGPRM~, EDPKGPRM+2, EDCHK~, EDCHK+6, EDCHK+7, EDCHK+8, EDCHK+10, EDCHK+13, EDCHK+14, EDCHK+17 , EDCHK+20, EDCHK+21, EDCHK+24, EDCHK+27, EDCHK+28, EDCHK+31, EDCHK+34, EDCHK+35, EDCHK+37, BEFORIMG~ , BEFORIMG+1, BEFORIMG+2, BEFORIMG+3, BEFORIMG+4, BEFORIMG+5, BEFORIMG+6, BEFORIMG+7, BEFORIMG+8, BEFORIMG+9 |
| >> RESULT | BADRNG+1*, BADRNG+2*, BADRNG+3 |
| UPDATLST | EDPKGPRM+1~ |
| X | BADRNG~, BADRNG+2, EDPKGPRM+6~, EDPKGPRM+28!, EDPKGPRM+30! |
| XTEDIT | EDCHK+4~, EDCHK+5*, EDCHK+6*, EDCHK+7*, EDCHK+8*, EDCHK+9, EDCHK+10*, EDCHK+11, EDCHK+15*, EDCHK+16 , EDCHK+17*, EDCHK+18, EDCHK+22*, EDCHK+23, EDCHK+24*, EDCHK+25, EDCHK+29*, EDCHK+30, EDCHK+31*, EDCHK+32 , EDCHK+36*, EDCHK+37*, EDCHK+38, DATCHK+1~, DATCHK+2*, DATCHK+3, DATCHK+4, DATCHK+8*, DATCHK+9 |
| Y | EDPKGPRM+6~, EDPKGPRM+28!, EDPKGPRM+30! |
