VSITCK ;ISD/RJP - Visit Field Check ;6/20/96
Source file <VSITCK.m>
Package | Total | Call Graph |
---|---|---|
PCE Patient Care Encounter | 1 | $$GET^VSITVAR |
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 |
Package | Total | Caller Graph |
---|---|---|
PCE Patient Care Encounter | 2 | VSIT VSITDEF |
Name | Comments | DBIA/ICR reference |
---|---|---|
ERRCHK(NODE,VALUE,DATEFMT) | ;Checks the value to see if it is valid
|
|
SETALL | ;Do $GET on all of the nodes of the VSIT array
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("VSITDD" | ERRCHK+9, SETALL+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DATEFMT | ERRCHK~, ERRCHK+12 |
ERR | ERRCHK+8~, ERRCHK+9*, ERRCHK+10*, ERRCHK+13 |
FLDINDX | SETALL+1~, SETALL+2*, SETALL+3*, SETALL+4 |
NODE | ERRCHK~, ERRCHK+6*, ERRCHK+9, ERRCHK+12 |
VALUE | ERRCHK~, ERRCHK+7*, ERRCHK+9, ERRCHK+11*, ERRCHK+12*, ERRCHK+13*, ERRCHK+14 |
>> VSIT( | SETALL+4* |
>> VSIT(0 | SETALL+5* |