©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
XPARDD ; SLC/KCM - DD Logic for Parameters (8989.5) ;05/14/2003 07:28 [ 12/18/2003 4:58 PM ]
Source file <XPARDD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXT(X,PAR,FLD) | ; function
; return external value of INSTANCE or VALUE fields ; X: internal value ; PAR: parameter IEN ; FLD: "I" for instance, "V" for value fields, default="V" |
|
| DDVALID(FLD) | ; procedure
; Input transform for both INSTANCE (.03) and VALUE (1) fields ; FLD: field (I=instance, V=value) |
|
| TYPE(DA,FLD) | ; function **********************
; Find value type and return external value |
|
| EXTSET(X,PAR,FLD) | ; function
; return external form for set of codes ; X: internal code ; PAR: parameter IEN ; FLD: "I" for instance, "V" for value fields, default = "V" |
|
| HELP(FLD) | ; procedure
; Executable Help for both INSTANCE (.03) and VALUE (1) fields |
|
| OUT(Y,FLD) | ; function
; returns external value (for OUTPUT TRANSFORM of .03, 1) |
|
| VALID(PAR,VAL,FLD,ERR) | ; procedure
; Validate both INSTANCE (.03) and VALUE (1) fields ; PAR: parameter (internal form) ; [.]VAL: value (external form), internal form returned ; FLD: field (I=instance, V=value) ; .ERR: returns error flag & description |
|
| ERR(IEN) | ; function
; Return error number and message in format: nnn^error message |
|
| ALLOW(ENT,PAR) | ; function
; Screen for PARAMETER (.02) field ; Returns 1 (true) if parameter allowed for this entity, otherwise 0 |
|
| EXTPTR(APTR,FN) | ; function
; return external form of pointer ; APTR: pointer value ; FN: pointed to file number |
|
| EXTDATE(Y) | ; function
; return external form of date ; Y: date in internal FM format |
| FileNo | Call Tags |
|---|---|
| ^XTV(8989.51 - [#8989.51] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC - [#1] | EXTPTR+5 |
| ^XTV(8989.5 - [#8989.5] | ALLOW+3, DDVALID+4, DDVALID+6, HELP+3, OUT+3 |
| ^XTV(8989.51 - [#8989.51] | ALLOW+4, VALID+9, VALID+10, VALID+11, VALID+15, VALID+18, VALID+34, TYPE+2, HELP+6, EXT+7 , EXT+13, EXTSET+6 |
| Name | Line Occurrences |
|---|---|
| $$ERR | DDVALID+7, VALID+8, VALID+9, VALID+10, VALID+12, VALID+16, VALID+35 |
| $$EXT | OUT+5 |
| $$EXTDATE | EXT+9 |
| $$EXTPTR | EXT+12 |
| $$EXTSET | EXT+10 |
| $$TYPE | HELP+7 |
| VALID | DDVALID+5 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DDVALID+6, VALID+18, VALID+34 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | VALID+27~, VALID+30 |
| APTR | EXTPTR~, EXTPTR+4, EXTPTR+6, EXTPTR+7, EXTPTR+8*, EXTPTR+9 |
| CODES | EXTSET+5~, EXTSET+6*, EXTSET+7 |
| >> D0 | OUT+2, OUT+3 |
| DA | DDVALID+4, DDVALID+6, TYPE~, TYPE+2, HELP+3 |
| DDER | VALID+6~, VALID+33 |
| DIR | VALID+6~ |
| DIR("S" | VALID+18* |
| DIR("V" | VALID+15* |
| DIR(0 | VALID+15*, VALID+16, VALID+17*, VALID+19, VALID+20, VALID+21, VALID+22*, VALID+24*, VALID+25, VALID+26 , VALID+28, VALID+31*, VALID+32* |
| DIROUT | VALID+6~ |
| DIRUT | VALID+6~ |
| >> DIUTIL | VALID+10, VALID+23 |
| DTOUT | VALID+6~ |
| DUOUT | VALID+6~ |
| ENT | ALLOW~, ALLOW+3*, ALLOW+4, DDVALID+3~, DDVALID+4*, DDVALID+6 |
| ERR | DDVALID+3~, DDVALID+5, DDVALID+6, DDVALID+7*, DDVALID+8, VALID~, VALID+7*, VALID+8*, VALID+9*, VALID+10* , VALID+12*, VALID+16*, VALID+35* |
| FLD | DDVALID~, DDVALID+5, DDVALID+6, VALID~, VALID+12, VALID+13, VALID+14, VALID+35, TYPE~, TYPE+2 , HELP~, HELP+6, HELP+7, HELP+12, OUT~, OUT+5, EXT~, EXT+5*, EXT+7, EXT+10 , EXT+13, EXTSET~, EXTSET+5*, EXTSET+6 |
| FN | EXT+5~, EXT+12, EXT+13*, EXTPTR~, EXTPTR+5, EXTPTR+9 |
| IEN | ERR~, ERR+2 |
| MULT | VALID+6~, VALID+11*, VALID+12, VALID+13 |
| PAR | ALLOW~, ALLOW+4, DDVALID+3~, DDVALID+4*, DDVALID+5, DDVALID+6, VALID~, VALID+8, VALID+9, VALID+10 , VALID+11, VALID+15, VALID+18, VALID+34, OUT+3~*, OUT+4, OUT+5, EXT~, EXT+6, EXT+7 , EXT+10, EXT+13, EXTSET~, EXTSET+6 |
| PDEFNOD | HELP+2~, HELP+3*, HELP+4, HELP+5, HELP+6, HELP+7, HELP+11 |
| PDESC | HELP+2~, HELP+12 |
| PHELP | HELP+2~, HELP+6*, HELP+7*, HELP+8 |
| PROOT | HELP+2~, HELP+11* |
| REF | EXTPTR+5~*, EXTPTR+6, EXTPTR+7, EXTPTR+8 |
| SUB | VALID+6~, VALID+14*, VALID+15, VALID+18, VALID+34 |
| T1 | VALID+27~, VALID+28*, VALID+30*, VALID+31 |
| T2 | VALID+27~, VALID+28*, VALID+30*, VALID+31 |
| T3 | VALID+27~, VALID+28*, VALID+31 |
| TYP | EXT+5~, EXT+7*, EXT+8, EXT+9, EXT+10, EXT+11, EXT+12 |
| U | VALID+17 |
| VAL | VALID~, VALID+12, VALID+13, VALID+19*, VALID+23*, VALID+25*, VALID+33, VALID+36* |
| X | DDVALID+5, DDVALID+6, DDVALID+8!, VALID+6~, VALID+21~*, VALID+22, VALID+27~, VALID+28*, VALID+30, VALID+33*! , VALID+34, VALID+35, TYPE+2~*, TYPE+3, HELP+9, EXT~, EXT+6, EXT+8, EXT+9, EXT+10 , EXT+11, EXT+12, EXTSET~, EXTSET+7 |
| X0 | DDVALID+3~, DDVALID+4* |
| >> XPARGET | VALID+10 |
| Y | VALID+6~, VALID+36, OUT~, OUT+2, OUT+4, OUT+5, EXTDATE~, EXTDATE+4 |