NURAED2 ;HIRMFO/MD,RM,FT-EDIT FOR POSITION ;5/14/01 15:37
Source file <NURAED2.m>
Package | Total | Call Graph |
---|---|---|
Nursing Service | 4 | MSG^NURAED1 EDTFLD^NURAED5 (EN4,ST1)^NURSUT2 EN4^NURSUT3 |
VA Fileman | 2 | EN^DDIOL (FILE,YN)^DICN |
Name | Comments | DBIA/ICR reference |
---|---|---|
VALENT | ; VALIDATE THE DATA ENTRY FOR THIS EMPLOYEE BY CALLING EN4^NURSUT2.
|
|
ADAS | ; ADD NEW ASSIGNMENTS
|
|
NEW2118(NURNLOC,NURNCAT,NURNPOS) | ; Function that adds a new entry to the
; NURS POSITION CONTROL (#211.8) file. ; NURNLOC - the .01 value of the entry (i.e., FILE 44 pointer value) ; NURNCAT - the service category code (e.g., "R" for registered nurse) ; NURNPOS - the ien of the Service Position (File 211.3) ; Returns the IEN of the new entry in File 211.8 |
|
VALE0 | ; BUILD UP LOCAL NUR ARRAY TO USE IN TMP EN4^NURSUT2 TO
; VALIDATE THE ENTRY OF THESE POSITIONS. |
|
EN1 | ; USING NURSUL(#) DETERMINE IF EDIT, ADD, DELETE AND SET NURSPOS(#)
|
|
VALSEL | ; VALIDATE SELECTIONS
|
|
VAL0 | ;VALIDATION CONTINUED
|
|
PROC | ; PROCESS THE NURSUL(#) SELECTION
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^NURSF(211.8 - [#211.8] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^NURSF(211.8 - [#211.8] | VALE0+6, NEW2118+13*, NEW2118+14 |
Name | Line Occurrences |
---|---|
$$NEW2118 | VALE0+7 |
ADAS | PROC+4, ADAS+2, ADAS+5 |
PROC | EN1+1 |
VAL0 | VALSEL+1 |
Name | Field # of Occurrence |
---|---|
^(0 | NEW2118+14* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | VALE0+12~*, VALE0+13, VALE0+14*, VALE0+15, ADAS+1*, ADAS+2 |
DA | VALENT+1~, VALENT+2*, VALENT+3, VALE0+2~*, NEW2118+6~ |
DA(1 | VALENT+2*, VALENT+3, VALE0+2*, NEW2118+12* |
DD | NEW2118+9!, NEW2118+17! |
DIC | NEW2118+6~, NEW2118+7*, NEW2118+15* |
DIC("DR" | NEW2118+8*, NEW2118+16* |
DIC(0 | NEW2118+7*, NEW2118+15* |
DIE | NEW2118+6~ |
DO | NEW2118+9!, NEW2118+17! |
DR | NEW2118+6~ |
>> MSG | PROC+1* |
>> NCNT | VAL0+2, VAL0+3, VAL0+4, ADAS+3*, ADAS+4 |
>> NID | ADAS+3 |
NUR | VALENT+2*, VALENT+3!, NEW2118+6~ |
NUR("SDT" | VALENT+2, VALENT+3, VALE0+12, VALE0+13* |
NUR("VDT" | VALE0+14, VALE0+15* |
NUR(0 | VALENT+3* |
NUR(1 | VALE0+2*, VALE0+6*, VALE0+7*, VALE0+12, VALE0+13, VALE0+14, VALE0+15 |
NUR(2 | VALE0+2*, VALE0+5*, VALE0+12, VALE0+13, VALE0+14, VALE0+15 |
NUR(3 | VALE0+3*, VALE0+4, VALE0+9*, VALE0+12, VALE0+13, VALE0+14, VALE0+15 |
>> NUR1 | VALSEL+1* |
>> NUR10 | VAL0+6* |
>> NUR2 | VALSEL+1*, VAL0+1, VAL0+2, VAL0+3, VAL0+4, VAL0+5, VAL0+6 |
>> NUR3 | VAL0+5*, VAL0+6 |
>> NURAES | VALSEL+1 |
NURARRAY | NEW2118+6~, NEW2118+23 |
NURARRAY(1 | NEW2118+19* |
NURARRAY(2 | NEW2118+20* |
NURARRAY(3 | NEW2118+21* |
NURARRAY(4 | NEW2118+22* |
>> NURLS | PROC+1 |
NURNCAT | NEW2118~, NEW2118+8 |
NURNLOC | NEW2118~, NEW2118+7 |
NURNPOS | NEW2118~, NEW2118+15 |
NURNY | NEW2118+6~, NEW2118+12*, NEW2118+13, NEW2118+14, NEW2118+25 |
>> NUROUT | VALENT+4*, EN1+1, PROC+3, ADAS+1*, ADAS+3 |
>> NURSANM | VALE0+2, VALE0+3, VALE0+4, VALE0+6, VALE0+7, VALE0+11, VALE0+13, VALE0+15 |
>> NURSASS( | VALE0+2, VALE0+3, VALE0+4, VALE0+11, PROC+3, ADAS+3* |
>> NURSBAD | VALSEL+1, VAL0+2*, VAL0+3*, VAL0+4*, VALENT+4 |
NURSHLIT | NEW2118+6~ |
>> NURSL(0 | ADAS+1 |
>> NURSNPOS | PROC+3, ADAS+1, ADAS+4 |
>> NURSOPOS | PROC+3*, ADAS+3* |
NURSPOS | EN1+1! |
NURSPOS( | VALE0+3, VALE0+4, VALE0+6, VALE0+7, VALE0+11, VALE0+13, VALE0+15, PROC+2*, PROC+3*, ADAS+4* |
>> NURSUL | EN1+1*, PROC+1, PROC+2, PROC+3, PROC+4 |
>> NURSUL( | VAL0+6*, EN1+1, PROC+2, PROC+3 |
>> NURSUL("N" | VAL0+1* |
>> NURSW1 | PROC+4*, ADAS+1, ADAS+3* |
>> NURSX | EN1+1* |
U | VALENT+4, VALE0+6, VALE0+7, VALE0+12, VALE0+13, VALE0+14, VALE0+15 |
X | NEW2118+6~, NEW2118+7*, NEW2118+15* |
Y | NEW2118+6~, NEW2118+11, NEW2118+12 |