GMPLBLD2 ; SLC/MKB,JFR,TC -- Bld PL Selection Lists cont ;07/19/17 13:32
Source file <GMPLBLD2.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 6 | EN^DDIOL (,$$FIND1)^DIC (FILE,UPDATE)^DIE ^DIK $$GET1^DIQ ^DIR |
Problem List | 3 | (BUILD,GETLIST,HDR)^GMPLBLD (BUILD,GETLIST,HDR)^GMPLBLDC $$MSG^GMPLX |
DRG Grouper | 1 | ($$CODECS,$$STATCHK)^ICDEX |
Kernel | 1 | $$DT^XLFDT |
Lexicon Utility | 1 | $$STATCHK^LEXSRC2 |
List Manager | 1 | FULL^VALM1 |
Toolkit | 1 | (EDIT,GETENT)^XPAREDIT |
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 |
---|---|---|
NEWGRP | ; Change problem groups
|
|
NG1 | ||
NGQ | ||
GROUP(L) | ; Lookup into Problem Selection Group file #125.11
|
|
NEWLST | ; Change selection lists
|
|
NL1 | ||
NLQ | ||
LIST(L) | ; Lookup into Problem Selection List file #125
|
|
LAST(ROOT) | ; Returns last subscript
|
|
CKSAVE() | ; Save [changes] ??
|
|
SAVE | ; Save changes to group/list
|
|
SAVGRP | ; Save changes to existing group
|
|
SAVLST | ; Save changes to existing list
|
|
NEW(GMPSFN,LIST,ITEM) | ; Create new contents entry in subfile #125.01 or #125.111
|
|
DELETE | ; Delete problem group
|
|
DEL1 | ; Ok, go for it ...
|
|
VALGRP(GMPLCAT,GMPLCODE) | ; check all problems in the category for inactive SNOMED/ICD codes
; Input: ; GMPLCAT = ien from file 125.11 ; GMPLCODE = Name of array where the categories & probs w/inactive codes are stored (Optional) |
|
VALLIST(LIST,GMPLCODE) | ;check all categories in list for probs w/ inactive SNOMED/ICD codes
; Input: ; LIST = ien from file 125 ; GMPLCODE = Name of array where the categories & probs w/inactive codes are stored (Optional) |
|
ASSIGN | ; assign or remove selection list to users/clinic
|
Name | Field # of Occurrence |
---|---|
EN^DDIOL | SAVGRP+18, SAVLST+18 |
^DIC | GROUP+6, LIST+5 |
$$FIND1^DIC | ASSIGN+4 |
FILE^DIE | SAVGRP+14, SAVLST+14 |
UPDATE^DIE | NEW+9 |
^DIK | SAVGRP+7, SAVLST+7, DEL1+5, DEL1+7 |
$$GET1^DIQ | VALGRP+17, ASSIGN+5 |
^DIR | CKSAVE+4, SAVE+19, SAVE+35, DELETE+6 |
BUILD^GMPLBLD | NL1+4 |
GETLIST^GMPLBLD | NL1+4 |
HDR^GMPLBLD | NL1+4 |
BUILD^GMPLBLDC | NG1+4 |
GETLIST^GMPLBLDC | NG1+4 |
HDR^GMPLBLDC | NG1+4 |
$$MSG^GMPLX | NGQ, NLQ, ASSIGN+7 |
$$CODECS^ICDEX | SAVE+12, VALGRP+29 |
$$STATCHK^ICDEX | SAVE+13, VALGRP+33 |
$$STATCHK^LEXSRC2 | SAVE+9, VALGRP+28 |
FULL^VALM1 | NEWGRP+1, NEWLST+1, SAVE+15, SAVE+30, ASSIGN+3 |
$$DT^XLFDT | GROUP+2, LIST+2, SAVE+2, VALGRP+16 |
EDIT^XPAREDIT | ASSIGN+6 |
GETENT^XPAREDIT | ASSIGN+6 |
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: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^GMPL(125 - [#125] | Classic Fileman Calls |
^GMPL(125.11 - [#125.11] | Classic Fileman Calls, GET1^DIQ |
^XTV(8989.51 - [#8989.51] | FIND1^DIC, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^GMPL( | NEW+7, NEW+10 |
^GMPL(125 - [#125] | NL1+1, NL1+3, SAVLST+8, DELETE+3, VALLIST+17 |
^GMPL(125.11 - [#125.11] | NG1+1, NG1+3, SAVGRP+8, DEL1+3, DEL1+4, DEL1+6!, DEL1+8, VALGRP+18, VALGRP+19, VALGRP+23 |
^TMP("GMPLIST" | SAVE+6, SAVE+8, SAVE+10, SAVE+26, SAVE+40, SAVGRP+5, SAVGRP+6, SAVGRP+7, SAVGRP+9, SAVGRP+12 , SAVGRP+13, SAVLST+5, SAVLST+6, SAVLST+7, SAVLST+9, SAVLST+12, SAVLST+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CODE | SAVE+4~, SAVE+10*, SAVE+11, SAVE+12, SAVE+13 |
DA | SAVE+1~, SAVE+39*, SAVE+40*, SAVGRP+4, SAVGRP+5, SAVGRP+6, SAVGRP+7, SAVGRP+8, SAVGRP+9, SAVGRP+12 , SAVGRP+13, SAVGRP+16, SAVLST+4, SAVLST+5, SAVLST+6, SAVLST+7, SAVLST+8, SAVLST+9, SAVLST+12, SAVLST+13 , SAVLST+16, DELETE+1~, DEL1+5*, DEL1+7* |
DA(1 | SAVGRP+2*, SAVLST+2*, DEL1+5* |
DIC | GROUP+1~, GROUP+3*, LIST+1~, LIST+3* |
DIC("?N" | GROUP+4* |
DIC("A" | GROUP+3*, LIST+3* |
DIC("DR" | GROUP+4*, LIST+4* |
DIC("S" | GROUP+5* |
DIC(0 | GROUP+3*, GROUP+4, LIST+3*, LIST+4 |
DIK | SAVGRP+1~, SAVGRP+2*, SAVLST+1~, SAVLST+2*, DELETE+1~, DEL1+5*, DEL1+7* |
DIR | CKSAVE+1~, SAVE+18~, SAVE+34~, DELETE+1~ |
DIR("?" | CKSAVE+3*, DELETE+5* |
DIR("A" | CKSAVE+2*, DELETE+4* |
DIR("B" | CKSAVE+2*, DELETE+4* |
DIR(0 | CKSAVE+4*, SAVE+19*, SAVE+35*, DELETE+4* |
DIRUT | SAVE+18~, SAVE+34~ |
DLAYGO | GROUP+1~, GROUP+4*, LIST+1~, LIST+4* |
DTOUT | LIST+5, SAVE+18~, SAVE+34~ |
DUOUT | LIST+5, SAVE+18~, SAVE+34~ |
GMI | SAVE+7~, SAVE+11*, SAVE+12, SAVE+13, VALGRP+20~, VALGRP+32*, VALGRP+33 |
GMPCSYS | VALGRP+21~, VALGRP+35*, VALGRP+36 |
GMPDT | GROUP+1~, GROUP+2*, GROUP+4, LIST+1~, LIST+2*, LIST+4, SAVE+1~, SAVE+2*, SAVE+9, SAVE+12 , SAVE+13, VALGRP+15~, VALGRP+16*, VALGRP+28, VALGRP+29, VALGRP+33 |
GMPERR | SAVGRP+1~, SAVGRP+15, SAVLST+1~, SAVLST+15, NEW+1~ |
GMPERR("DIERR" | SAVGRP+17, SAVLST+17 |
GMPFDA | SAVGRP+1~, SAVLST+1~, NEW+1~ |
GMPFDA( | SAVGRP+13*, SAVLST+13*, NEW+6* |
GMPFILE | NEW+1~, NEW+2*, NEW+7, NEW+8, NEW+10 |
GMPICD | VALGRP+20~, VALGRP+22*, VALGRP+33*, VALGRP+34, VALGRP+35 |
GMPJ | SAVGRP+1~, SAVGRP+11*, SAVGRP+13, SAVLST+1~, SAVLST+11*, SAVLST+13, NEW+1~, NEW+5*, NEW+6 |
GMPJUST1 | ASSIGN+2~, ASSIGN+6 |
GMPLCAT | VALGRP~, VALGRP+14, VALGRP+17, VALGRP+18, VALGRP+19, VALGRP+23, VALLIST+16*, VALLIST+17*, VALLIST+19, VALLIST+20 |
GMPLCLBL | VALGRP+21~, VALGRP+30*, VALGRP+36 |
GMPLCNME | VALGRP+15~, VALGRP+17*, VALGRP+36 |
GMPLCODE | VALGRP~, VALGRP+34, VALGRP+36, VALGRP+38, VALLIST~, VALLIST+18, VALLIST+19, VALLIST+22 |
GMPLCPTR | SAVE+12~*, SAVE+13, VALGRP+21~, VALGRP+30*, VALGRP+33 |
GMPLDA | DELETE+1~, DEL1+2*, DEL1+4*, DEL1+5, VALGRP+15~, VALGRP+16*, VALGRP+19*, VALGRP+23 |
GMPLDTXT | VALGRP+21~, VALGRP+24*, VALGRP+36, ASSIGN+2~, ASSIGN+5* |
GMPLENT | ASSIGN+2~, ASSIGN+6 |
>> GMPLGRP | NG1, NG1+3*, CKSAVE+1, SAVE+3, SAVE+23, SAVE+39, SAVE+41, SAVGRP+2, SAVGRP+6, SAVGRP+8 , SAVGRP+13, SAVGRP+16, DELETE+2, DELETE+3, DELETE+4, DEL1+3, DEL1+4, DEL1+5, DEL1+6, DEL1+7 , DEL1+8*, DEL1+9 |
GMPLICD | VALGRP+20~, VALGRP+25*, VALGRP+26, VALGRP+29, VALGRP+31, VALGRP+32, VALGRP+33, VALGRP+36 |
GMPLICDS | VALGRP+21~, VALGRP+29*, VALGRP+30 |
GMPLIEN | VALLIST+14~ |
>> GMPLMODE | NG1+4, NL1+4 |
GMPLPAR | ASSIGN+2~, ASSIGN+4*, ASSIGN+5*, ASSIGN+6 |
GMPLQT | SAVE+1~, SAVE+2*, SAVE+3, SAVE+6, SAVE+9*, SAVE+13*, SAVE+14, SAVE+20*, SAVE+23, SAVE+26 , SAVE+28*, SAVE+29, SAVE+36* |
GMPLSAVE | NEWGRP+2, NEWLST+2, SAVE+41!, DEL1+8! |
GMPLSCTC | VALGRP+20~, VALGRP+25*, VALGRP+26, VALGRP+27, VALGRP+28 |
GMPLSEQ | DELETE+1~, DEL1+2*, DEL1+3*, DEL1+4, VALGRP+15~, VALGRP+16*, VALGRP+18*, VALGRP+19, VALGRP+36 |
>> GMPLSLST | NL1, NL1+3*, SAVE+23, SAVLST+2, SAVLST+6, SAVLST+8, SAVLST+13, SAVLST+16 |
GMPLTXT | SAVGRP+1~, SAVGRP+18, SAVLST+18 |
GMPLTXT(1 | SAVGRP+16*, SAVLST+16* |
GMPLTXT(2 | SAVGRP+17*, SAVLST+17* |
GMPLVAL | VALLIST+14~, VALLIST+16*, VALLIST+19*, VALLIST+20*, VALLIST+22*, VALLIST+23 |
GMPLVALC | VALGRP+15~, VALGRP+16*, VALGRP+28*, VALGRP+33*, VALGRP+38*, VALGRP+39 |
GMPLX | VALGRP+20~, VALGRP+23*, VALGRP+24, VALGRP+25 |
GMPNF | NEW+1~, NEW+3*, NEW+4 |
>> GMPSAVED | SAVE+41* |
GMPSCT | VALGRP+20~, VALGRP+22*, VALGRP+28*, VALGRP+34, VALGRP+35 |
GMPSCTC | SAVE+7~, SAVE+8*, SAVE+9 |
GMPSFN | SAVGRP+1~, SAVGRP+3*, SAVGRP+6, SAVLST+1~, SAVLST+3*, SAVLST+6, NEW~, NEW+2, NEW+3, NEW+6 |
GRP | SAVE+24~, SAVE+25*, SAVE+26*, SAVE+27 |
I | LAST+1~*, LAST+2*, SAVGRP+1~, SAVGRP+10*, SAVGRP+11, SAVGRP+12, SAVGRP+13, SAVLST+1~, SAVLST+10*, SAVLST+11 , SAVLST+12, SAVLST+13, NEW+1~, NEW+4*, NEW+5, NEW+6 |
IFN | DELETE+1~ |
ITEM | SAVGRP+1~, SAVGRP+8*, SAVGRP+9, SAVGRP+12, SAVLST+1~, SAVLST+8*, SAVLST+9, SAVLST+12, NEW~, NEW+6 |
ITM | SAVE+4~, SAVE+5*, SAVE+6*, SAVE+8, SAVE+10 |
J | LAST+1~*, LAST+2*, LAST+3 |
L | GROUP~, GROUP+3, LIST~, LIST+3 |
LABEL | SAVE+1~, SAVE+39*, SAVE+40 |
LIST | NEW~, NEW+6, NEW+7, NEW+8, NEW+10, VALLIST~, VALLIST+15, VALLIST+17 |
NEWGRP | NEWGRP+1~, NG1*, NG1+1, NG1+3 |
NEWLST | NEWLST+1~, NL1*, NL1+1, NL1+3 |
ROOT | LAST~, LAST+2 |
TEXT | CKSAVE+1~*, CKSAVE+2, CKSAVE+3 |
TMPITEM | SAVGRP+1~, SAVGRP+6* |
TMPLST | SAVLST+1~, SAVLST+6* |
U | GROUP+6, LIST+5, SAVE+8, SAVE+10, SAVE+12, SAVGRP+12, SAVGRP+13, SAVLST+12, SAVLST+13, NEW+6 , DELETE+2, DELETE+4, VALGRP+24, VALGRP+25, VALGRP+30, VALGRP+36, VALGRP+38, VALLIST+22, ASSIGN+5 |
>> VALMBCK | NGQ*, NLQ*, SAVE+20*, SAVE+36*, SAVE+42*, DELETE+1*, DEL1+9*, ASSIGN+7* |
>> VALMCC | DELETE+1, ASSIGN+3, ASSIGN+7 |
>> VALMSG | NGQ*, NLQ*, ASSIGN+7* |
X | GROUP+1~, LIST+1~, CKSAVE+1~, DELETE+1~ |
Y | GROUP+1~, GROUP+6*, GROUP+7, LIST+1~, LIST+5*, LIST+6, CKSAVE+1~, CKSAVE+5, DELETE+1~, DELETE+6 |
Y(0 | GROUP+6, LIST+5 |