DGPFUT ;ALB/RPM - PRF UTILITIES ; 6/7/05 3:13pm
Source file <DGPFUT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ANSWER(DGDIRA,DGDIRB,DGDIR0,DGDIRH,DGDIRS,DIRX) | ;
; Wrap FileMan Classic Reader call ; Input ; DGDIR0 - DIR(0) string ; DGDIRA - DIR("A") string (may be passed by reference [dg*951]) ; DGDIRB - DIR("B") string ; DGDIRH - DIR("?") string (may be passed by reference [dg*951]) ; DGDIRS - DIR("S") string ; .DIRX - [optional] - multi-function - DG*5.3*951 ; a) you may pass .DIR() instead of individual variables ; b) if DIRX=-2 you wish this API to return -2 upon time-out |
|
| CONTINUE() | ;pause display
|
|
| CKWP(DGROOT,DGTX) | ; ck word processing required fields
|
|
| DIQ(FILE,XDA,FLD) | ; retrieve single value from record; DG*5.3*951
|
|
| GET1(FILE,FLD,FLG,ATT,PAD) | ; call $$GET1^DID ; dg*951
|
|
| GETNXTF(DGDFN,DGLTF) | ;get previous treating facility
|
|
| ISDIV(DGSITE) | ;is site local division
|
|
| MPIOK(DGDFN,DGICN) | ;return national ICN
|
|
| STATUS(DGACT) | ;calculate the assignment STATUS given an ACTION code
|
|
| TESTVAL(DGFIL,DGFLD,DGVAL) | ;validate individual value against field def
|
|
| VALID(DGRTN,DGFILE,DGIP,DGERR) | ;validate input values before filing
|
|
| BLDXR(DGRTN,DGFLDA) | ;build name/field xref array
|
| FileNo | Call Tags |
|---|---|
| ^DGPF(26.14 - [#26.14] | CHK^DIE, EXTERNAL^DILFD |
