PSUTL ;BIR/PDW - Utilities for AR/WS extracts ;12 AUG 1999
Source file <PSUTL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETS(PSUFILE,PSUDA,PSUDR,PSUROOT,PSUFORM) | ;
; Example S PSUSITE=6025 ; D GETS^PSUTL(200.02,"DUZ,PSUSITE",".01","DIV") ; returns ; DIV(.01)="HINES DEVELOPMENT" |
|
| VAL(PSUFILE,PSUDA,PSUFLD) | ; Returns External Value
|
|
| VALI(PSUFILE,PSUDA,PSUFLD) | ; Returns Internal Value
|
|
| GETM(PSUFILE,PSUDA,PSUFLD,PSUROOT,PSUFORM) | ;EP RETURN MULTIPLES
; PSUFILE is the immediate upper level file number of the one desired ; PSUDA is the "DO,D1,Dx .." IENS to get to the immediate upper level ; PSUFLD is the field notation for the multiple at the upper level ; "3*" ; appended with "^" and the list of fields ".01;.02;9.3;..." ; resulting in "3*^.01;.02;9.3;..." ; PSUROOT is the target closed array reference ; PSUFORM is the format as in GET^DIQ ; return form is @PSUROOT@(da,fld)=VALUE |
|
| PARSE(XBDA) | ;PEP - parse DA literal into da array
|
|
| MOVEI(PSUREF) | ;EP Move @PSUREF@(Fld,"I") values to @PSUREF@(Fld)
|
|
| MOVEMI(PSUREF) | ;EP Move @PSUREF@(da,Fld,"I") values to @PSUREF@(da,Fld)
|
|
| UPPER(PSUX) | ;Convert lower case to upper case
|
|
| VARKILL | ;PEP Kill variable PSU* namespace
|
