FSCGETP.m

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 ---FSCGETP   566     printed  Oct 16, 2024@18:18:33                                                                                                                                                                                                      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