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 |