|
Last change
on this file since 701 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
554 bytes
|
| Line | |
|---|
| 1 | FSCGETP ;SLC/STAFF-NOIS Get Call Info Personal ;5/18/98 00:06
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | PFIELDS ; from FSCGET (continuation - out of scope)
|
|---|
| 5 | N IEN
|
|---|
| 6 | S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,+CALLNUM))
|
|---|
| 7 | S PZERO=$G(^FSCD("CALL USER",IEN,0))
|
|---|
| 8 | I ALL!$D(ARRAY("PLONG")) S ARRAY("PLONG")=$G(^FSCD("CALL USER",IEN,1))_U_$G(^(1))
|
|---|
| 9 | I ALL!$D(ARRAY("PNOTE")) S ARRAY("PNOTE")=$S($D(^FSCD("CALL USER",IEN,2)):1,1:"")
|
|---|
| 10 | I ALL!$D(ARRAY("PSHORT")) S ARRAY("PSHORT")=$P(PZERO,U,3)_U_$P(PZERO,U,3)
|
|---|
| 11 | I ALL!$D(ARRAY("PNUM")) S ARRAY("PNUM")=$P(PZERO,U,4)_U_$P(PZERO,U,4)
|
|---|
| 12 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
