Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRCPC1

GMRCPC1.m

Go to the documentation of this file.
  1. GMRCPC1 ;SLC/dee - List Manager Routine: Collect and display consults by service and status ;1/27/00
  1. ;;3.0;CONSULT/REQUEST TRACKING;**7**;DEC 27, 1997
  1. Q
  1. ;
  1. ENSTS ;GMRC List Manager Routine -- Second entry point for GMRC PENDING CONSULTS with user selected statuses
  1. S GMRCSTAT=$$STS
  1. I $D(GMRCQUT) D EXIT^GMRCPC Q
  1. D EN^GMRCPC
  1. Q
  1. ;
  1. NEWSTS ;
  1. N TEMPSTAT
  1. S TEMPSTAT=GMRCSTAT
  1. S GMRCSTAT=$$STS
  1. S:$D(GMRCQUT) GMRCSTAT=TEMPSTAT
  1. Q
  1. ;
  1. STS() ;Select a set of status for view.
  1. I $D(IOTM),$D(IOBM),$D(IOSTBM) D FULL^VALM1
  1. N DIR,X,Y,GMRCSTCK
  1. STSAGAIN ;Loop to get another status.
  1. ;The following commented line would as for all of the statuses.
  1. ;S DIR(0)="SAOM^al:All Status's;ap:All Pending;dc:Discont.;c:Completed;h:On Hold;f:Flagged;p:Pending;a:Active;e:Expired;s:Scheduled;pr:Incomplete;d:Delayed;u:Unreleased;dce:Discont/Ed;x:Cancelled;l:Lapsed;rn:Renewed;':No Status"
  1. S DIR(0)="SAOM^al:All Status's;ap:All Pending;dc:Discont.;c:Completed;p:Pending;a:Active;s:Scheduled;pr:Incomplete;x:Cancelled"
  1. S DIR("A")="Only Display Consults With Status of: "
  1. S DIR("B")="All Status's"
  1. I $G(GMRCSTCK) D
  1. . S DIR("A")="Another Status to display: "
  1. . K DIR("B")
  1. D ^DIR
  1. I $D(DUOUT)!($D(DTOUT)) S GMRCQUT=1 G END
  1. I '$L(Y) G END
  1. D STCK($$LOW^XLFSTR(Y))
  1. G:$G(GMRCSTCK)'="1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,99" STSAGAIN
  1. END Q $S($D(GMRCSTCK):GMRCSTCK,1:"")
  1. ;
  1. STCK(RES) ;change code to status
  1. N CODE
  1. ; al:All Status's;dc:Discont.;c:Completed;h:On Hold;f:Flagged;p:Pending;a:Active;e:Expired;s:Scheduled
  1. ;;pr:Incomplete;d:Delayed;u:Unreleased;dce:Discont/Ed;x:Cancelled;l:Lapsed;rn:Renewed;':No Status")
  1. CASE ;
  1. I RES="al" S GMRCSTCK="1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,99" Q ;All Status's
  1. ; display no. file name file abbr.
  1. I RES="ap" D Q
  1. .F CODE=3,4,5,6,8,9,11,99 D CKCODE(CODE) ; All Pending Statuses
  1. I RES="dc" D CKCODE(1) Q ; Discont. 1 DISCONTINUED dc
  1. I RES="c" D CKCODE(2) Q ; Completed 2 COMPLETE c
  1. I RES="h" D CKCODE(3) Q ; On Hold 3 HOLD h
  1. I RES="f" D CKCODE(4) Q ; Flagged 4 FLAGGED "?"
  1. I RES="p" D CKCODE(5) Q ; Pending 5 PENDING p
  1. I RES="a" D CKCODE(6) Q ; Active 6 ACTIVE a
  1. I RES="e" D CKCODE(7) Q ; Expired 7 EXPIRED e
  1. I RES="s" D CKCODE(8) Q ; Scheduled 8 SCHEDULED s
  1. I RES="pr" D CKCODE(9) Q ; Incomplete 9 PARTIAL RESULTS pr
  1. I RES="d" D CKCODE(10) Q ; Delayed 10 DELAYED d
  1. I RES="u" D CKCODE(11) Q ; Unreseased 11 UNRELEASED u
  1. I RES="dce" D CKCODE(12) Q ;Discont/Ed 12 DISCONTINUED/EDIT dce
  1. I RES="x" D CKCODE(13) Q ; Cancelled 13 CANCELLED x
  1. I RES="l" D CKCODE(14) Q ; Lapsed 14 LAPSED l
  1. I RES="rn" D CKCODE(15) Q ; Renewed 15 RENEWED rn
  1. I RES="'" D CKCODE(99) Q ; No Status 99 NO STATUS '
  1. ENDCASE Q
  1. ;
  1. CKCODE(CODE) ;
  1. I $D(GMRCSTCK),$$FND(CODE) W $C(7),!,"Already selected" Q
  1. I +$G(GMRCSTCK) S GMRCSTCK=GMRCSTCK_","_CODE
  1. E S GMRCSTCK=CODE
  1. Q
  1. ;
  1. FND(CD) ;status already selected?
  1. I GMRCSTCK=CD Q 1
  1. I $F(GMRCSTCK,(CD_",")) Q 1
  1. I $E(GMRCSTCK,$L(GMRCSTCK))=CD Q 1
  1. Q 0
  1. ;
  1. NUMBER ;
  1. I GMRCCTRL'=120 S GMRCCTRL=120
  1. E S GMRCCTRL=0
  1. Q
  1. ;