source: FOIAVistA/trunk/r/NOIS-FSC/FSCGETP.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 554 bytes
Line 
1FSCGETP ;SLC/STAFF-NOIS Get Call Info Personal ;5/18/98 00:06
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4PFIELDS ; 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.