FSCGETP ;SLC/STAFF-NOIS Get Call Info Personal ;5/18/98 00:06
;;1.1;NOIS;;Sep 06, 1998
;
PFIELDS ; from FSCGET (continuation - out of scope)
N IEN
S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,+CALLNUM))
S PZERO=$G(^FSCD("CALL USER",IEN,0))
I ALL!$D(ARRAY("PLONG")) S ARRAY("PLONG")=$G(^FSCD("CALL USER",IEN,1))_U_$G(^(1))
I ALL!$D(ARRAY("PNOTE")) S ARRAY("PNOTE")=$S($D(^FSCD("CALL USER",IEN,2)):1,1:"")
I ALL!$D(ARRAY("PSHORT")) S ARRAY("PSHORT")=$P(PZERO,U,3)_U_$P(PZERO,U,3)
I ALL!$D(ARRAY("PNUM")) S ARRAY("PNUM")=$P(PZERO,U,4)_U_$P(PZERO,U,4)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCGETP 566 printed Nov 22, 2024@17:27:57 Page 2
FSCGETP ;SLC/STAFF-NOIS Get Call Info Personal ;5/18/98 00:06
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
PFIELDS ; from FSCGET (continuation - out of scope)
+1 NEW IEN
+2 SET IEN=+$GET(^FSCD("CALL USER","AUC",DUZ,+CALLNUM))
+3 SET PZERO=$GET(^FSCD("CALL USER",IEN,0))
+4 IF ALL!$DATA(ARRAY("PLONG"))
SET ARRAY("PLONG")=$GET(^FSCD("CALL USER",IEN,1))_U_$GET(^(1))
+5 IF ALL!$DATA(ARRAY("PNOTE"))
SET ARRAY("PNOTE")=$SELECT($DATA(^FSCD("CALL USER",IEN,2)):1,1:"")
+6 IF ALL!$DATA(ARRAY("PSHORT"))
SET ARRAY("PSHORT")=$PIECE(PZERO,U,3)_U_$PIECE(PZERO,U,3)
+7 IF ALL!$DATA(ARRAY("PNUM"))
SET ARRAY("PNUM")=$PIECE(PZERO,U,4)_U_$PIECE(PZERO,U,4)
+8 QUIT