ORWU1 ;SLC/GRE - General Utilities for Windows Calls ;Aug 4, 2021@15:32:01
Source file <ORWU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NP1 | ; Return a set of names from the NEW PERSON file.
; (PKS/8/5/2003: Now called by NEWPERS^ORWU; internal mods made.) ; (Keep GETCOS^ORWTPN up to date with matching logic/code, too.) |
|
| NP2 | ; Retrieve subset of data for dupes in NP1.
; (Assumes certain vars already set/new'd in calling code.) |
|
| NP3(COSFLAG) | ; Retrieve diff. data when all users are involved, using "B" x-ref.
|
|
| NP4(ORSS) | ; Retrieve Title or Title and Service/Section.
; (Assumes certain vars already set/new'd in calling code.) |
|
| NAMECVT(Y,IEN) | ; Returns text name(mixed-case) derived from IEN xref.
; GRE/2002 ; PKS-12/20/2002 Tag not presently used. ; Y=Returned value, IEN=Internal number |
|
| DEFDIV(Y) | ; Return user's default division, if specified.
|
|
| NEWLOC(Y,ORFROM,DIR) | ; Return "CZ" locations from HOSPITAL LOCATION file.
; C=Clinics, Z=Other, screened by $$ACTLOC^ORWU. ; .Y=returned list, ORFROM=text to $O from, DIR=$O direction. |
|
| CHKORSIM(ORSIM,ORFNM,ORFNMLEN,ORFROM,ORLNM) | ; NSR 20110606/539 - Check if name complies with ORSIM flag and restrictions
|
|
| CPRSTAB(USER,TAB) | ; NSR 20120101 - return 1 if users is ok to stay in list
; update 04/19/2021 to include NVA (Non-VA Providers) tab ; 1 - CPRS GUI "core" tabs. ; 2 - Reports tab. ; 3 - Non-VA Providers tab. |
|
| USRCLASS(USER) | ; NSR 20120101
|
| RPC Name | Call Tags |
|---|---|
| ORWU1 NAMECVT | NAMECVT |
| ORWU DEFAULT DIVISION | DEFDIV |
| ORWU1 NEWLOC | NEWLOC |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| 200.02 | LIST^DIC |
