DGPMUTL ;ALB/MJK - SELECT PATIENT MOVEMENT FOR PATIENT ; 3/24/90 1PM ;
Source file <DGPMUTL.m>
Package | Total | Caller Graph |
---|---|---|
Registration | 5 | DGPMGLG3 DGPTFCR DGRUGC ^DGPM DGBLRV |
Dietetics | 1 | FHMMNADM |
Integrated Billing | 1 | IB20PT81 |
Scheduling | 1 | SCRPW41 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- sets DIC and DIC(0) before calling DFN (*** FOR MAS USE ONLY ***)
; input: DFN ; All desired DIC variables except DIC and DIC(0) ; output: Y, X, DTOUT, DUOUT as defined by FM documentation for ^DIC |
|
PTF(DGPTF) | ; -- determine ward at discharge
; o called by WARD AT DISCHARGE(c) field in PTF file ; input: DGPTF := ifn of ptf file |
|
DFNQ | ||
WARDQ | ||
DIC | ;
|
|
DFN | ; -- select mvt for DFN patient (*** FOR MAS USE ONLY ***)
; input: DFN ; All desired DIC variables ; output: Y, X, DTOUT, DUOUT as defined by FM documentation for ^DIC |
|
WARD | ; -- determine ward at discharge
; o called by WARD AT DISCHARGE(c) field in pt mvt file ; input: D0 := d/c ifn of pat. mvt. file |
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DGPM - [#405] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGPM - [#405] | WARD+6, WARD+8, PTF+6 |
^DGPM("APMV" | WARD+8 |
^DGPM("APTF" | PTF+6 |
^DIC(42 - [#42] | WARD+8 |
^DPT - [#2] | DFN+5 |
Name | Line Occurrences |
---|---|
DFN | EN+5, DFN+10, DFN+11, DFN+12 |
DFNQ | DFN+5, DFN+7, DFN+9, DFN+11, DFN+12 |
DIC | DFN+10, DFN+12 |
WARD | PTF+7 |
WARDQ | WARD+6, WARD+8 |
Name | Field # of Occurrence |
---|---|
^(0 | DFN+5, WARD+6, WARD+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | DIC+1* |
%DT | DFN+11*! |
CA | WARD+5~, WARD+7*, WARD+8 |
D | DFNQ!, DIC+2* |
D0 | WARD+6, PTF+5~, PTF+6* |
DFN | DFN+5, DIC+2, WARD+5~, WARD+7*, WARD+8 |
DGPTF | PTF~, PTF+6 |
>> DIC | EN+5* |
>> DIC("A" | DFN+6 |
>> DIC("B" | DFN+6, DFN+8 |
>> DIC(0 | EN+5*, DIC+1* |
DTIME | DFN+7 |
>> DTOUT | DFN+7*, DFN+11, DFN+12 |
>> DUOUT | DFN+9* |
IDT | WARD+5~, WARD+8* |
M | WARD+5~, WARD+6*, WARD+7, WARD+8* |
MVT | WARD+5~, WARD+8* |
U | WARD+6, WARD+7, WARD+8, PTF+6 |
>> X | DFN+5*, DFN+6, DFN+7*, DFN+8*, DFN+9, DFN+10, DFN+11*, WARD+5*, WARD+8* |
>> Y | DFN+5*, DFN+7*, DFN+9*, DFN+11, DFN+12 |