DGPMEVT ;ALB/RMO - MAS MOVEMENT EVENT DRIVER; 26 DEC 89 ; 2/2/04 3:18pm
Source file <DGPMEVT.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 2 | ^DIE $$GET1^DIQ |
Kernel | 1 | EN1^XQOR |
PCE Patient Care Encounter | 1 | ^VSIT |
Registration | 1 | INP^VADPT |
Package | Total | Caller Graph |
---|---|---|
Registration | 3 | DGPMV3 DGPMVPU DGSWITCH |
IHS Changes To ADT | 1 | BDGAPI1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
NEW(DGPM,DGPMA) | ; --- add a new entry, new admit
; INPUT : DGPM - IEN of admission movement ; DGPMA - Oth node of admission movement |
|
VISIT | ;-- create visit file entry for new admissions
|
|
ERR | ;
|
|
NEWQ | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DGPM - [#405] | Classic Fileman Calls, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(150.9 - [#150.9] | DGPMEVT+16 |
^DIC(42 - [#42] | NEW+8 |
^DPT - [#2] | NEW+12 |
^ORD(101 - [#101] | DGPMEVT+26 |
^SC - [#44] | NEW+9 |
^UTILITY("DGPM" | VISIT+6, VISIT+7, VISIT+9* |
Name | Line Occurrences |
---|---|
$$NEW | VISIT+8 |
NEWQ | NEW+13 |
VISIT | DGPMEVT+16 |
Name | Field # of Occurrence |
---|---|
^("A" | VISIT+7 |
^("P" | VISIT+7 |
^(44 | NEW+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | NEW+21*, NEW+22! |
DGPM | NEW~, NEW+21 |
DGPMA | DGPMEVT+19, VISIT+10*, NEW~, NEW+8, NEW+12, NEW+16, NEW+23*, NEWQ+2 |
>> DGPMCA | DGPMEVT+20*, DGPMEVT+21* |
>> DGPMDA | DGPMEVT+20, VISIT+10 |
>> DGPMP | DGPMEVT+19, DGPMEVT+21 |
DGX | VISIT+4~, VISIT+5*, VISIT+6*, VISIT+7, VISIT+8, VISIT+9, VISIT+10 |
DGY | VISIT+4~, VISIT+7*, VISIT+8*, VISIT+9, VISIT+10 |
DIC | NEW+22! |
DIE | NEW+21*, NEW+22! |
DIROUT | DGPMEVT+13! |
DR | NEW+21*, NEW+22! |
DTOUT | DGPMEVT+13! |
OROLD | DGPMEVT+26~ |
U | DGPMEVT+16, DGPMEVT+21, NEW+12 |
VAIN | DGPMEVT+26! |
VSIT | VISIT+11!, NEW+3!, NEW+16*, NEWQ+1! |
VSIT("ELG" | NEW+12*, NEW+13 |
VSIT("IEN" | NEW+20, NEW+21, NEW+23 |
VSIT("LOC" | NEW+8*, NEW+9! |
VSIT("SVC" | NEW+16* |
VSIT(0 | NEW+16* |
X | DGPMEVT+26*! |