NURSCUTL ;HIRMFO/MD-RM-UTILITY ROUTINE FOR NURSING CLINICAL ;6/6/96
Source file <NURSCUTL.m>
Package | Total | Call Graph |
---|---|---|
Nursing Service | 2 | EN5^NURSCUTL EN4^NURSUT1 |
Registration | 1 | INP^VADPT |
VA FileMan | 1 | ^DIC |
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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN2 | ; LOOKUP OF THE LATEST PATIENT CLASSIFICATION FROM 214.6 FILE
; FLAG NURSCLAS("CL") = $S(1:CHECK CURR. LOC. = CLAS. LOC.,0:ELSE, ; 2:GET FIRST CLASS WHERE CURR.LOC=CLASS.LOC NURSCLASS("WARD")=CURR.LOC) |
|
GC | ||
Q2 | ||
EN3 | ; MUMPS "AA" XREF FOR FILE 214.7
; THE NURSDFN, NURSA, AND NURSR VARIABLES ARE KILLED IN THE XREF |
|
EN4 | ; SCREEN FOR CLASSIFICATION DATE FIELDS
|
|
EN5 | ; LOOKUP ON THE PATIENT FILE FOR PATIENT NAME
|
|
A5 | ||
EN6 | ; FIND THE CURRENT ADMISSION FOR THE PATIENT (DFN IS PATIENT IEN)
|
|
SETXREF | ; SET UP ADT INTERFACE IN PATIENT FILE
|
|
KILLXREF | ; DELETE ADT INTERFACE IN PATIENT FILE
|
|
EN7 | ; POC ENTRY POINT FOR PATIENT LOOK-UP
|
|
DUPCLAS(DATEX,DFN) | ; CHECK FOR DUPLICATE ENTRY IN NURS CLASSIFICATION (#214.6)
; FILE. IF A DUPLICATE EXISTS A ONE IS RETURNED OTHERWISE ; A ZERO IS RETURNED |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CHKVAR | GC+1*, GC+3*, Q2*! |
>> DA | EN3+3, EN4+1, SETXREF+2*, SETXREF+3*, SETXREF+4 |
DATEX | DUPCLAS~, DUPCLAS+3 |
DFN | EN2+4, GC, GC+1, GC+4, EN5+2*, A5+2*, EN7+1, EN7+2, EN7+3*, DUPCLAS~ , DUPCLAS+3 |
DIC | EN5+2!, A5*, A5+2! |
DTIME | EN5+1 |
>> DUPCLAS | DUPCLAS+3*, DUPCLAS+4 |
>> NACT | A5+1, A5+3, EN7+1 |
>> NASK | EN5+1, A5+2, EN7+1 |
NURBEDSW | EN7+1*, EN7+2, EN7+3! |
>> NURQUIT | EN7+1*, EN7+3* |
>> NURSA | EN3+2* |
>> NURSADM | GC+4, EN6+4*, EN6+5* |
NURSCLAS | EN2+3*, GC+2*, GC+3*, GC+4, GC+5, GC+6, GC+7*, Q2!* |
NURSCLAS("CL" | EN2+4, GC, GC+3, GC+5, GC+6 |
NURSCLAS("D" | GC+1!*, GC+3 |
NURSCLAS("DATE" | EN2+3*, GC |
NURSCLAS("WARD" | EN2+4*, GC+3, GC+6 |
NURSCLAS(0 | EN2+3*, GC*, GC+1 |
NURSCOMP | GC+4*, GC+5, GC+6, Q2! |
>> NURSDFN | EN3+2*, EN3+3* |
>> NURSI | SETXREF+2*, KILLXREF+2* |
NURSMAS | EN6+3*, EN6+4!, EN6+5! |
>> NURSR | EN3+2*, EN3+3* |
>> NWARD | GC+5 |
>> RPTDATE | GC+5 |
U | EN2+4, GC+3, GC+5, EN3+3, EN4+1 |
>> VAIN(1 | EN6+5 |
>> VAIN(4 | EN6+3 |
>> VAIN(7 | GC+4 |
>> X | EN5+1*, EN5+2, A5*, A5+3 |
>> Y | EN4+1, A5, A5+1*, A5+2, A5+3, EN7+1*, EN7+2*, EN7+3 |