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

DGPFUT5.m

Go to the documentation of this file.
  1. DGPFUT5 ;ALB/SAE - PRF UTILITIES CONTINUED ; 12/18/03 09:00pm
  1. ;;5.3;Registration;**554**;Aug 13, 1993
  1. ;
  1. Q ; no direct entry
  1. ;
  1. DISPLAY(TXN,DGPFGOUT) ; entry point for user-review screen
  1. ;
  1. ; This routine completes the re-display process.
  1. ; It re-displays information about the Flag, or Flag Assignment,
  1. ; being created or modified by the user, prior to the 'file' question.
  1. ;
  1. ; Input:
  1. ; TXN - transaction - has several '^' pieces starting with:
  1. ; FA - FLAG ASSIGNMENT - Assign Flag
  1. ; FA - FLAG ASSIGNMENT - Edit Flag Assignment
  1. ; FA - FLAG ASSIGNMENT - Change Assignment Ownership
  1. ; FM - FLAG MANAGEMENT - Add New Record Flag
  1. ; FM - FLAG MANAGEMENT - Edit Record Flag
  1. ; DGPFGOUT - name of global ^TMP global used to display
  1. ;
  1. ; Output:
  1. ; none - display to user only
  1. ;
  1. ; Temporary variables:
  1. N DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y ; DIR Reader variables
  1. ;
  1. F D I Y=0!$D(DUOUT)!$D(DTOUT) W ! Q
  1. . D DISP(TXN,DGPFGOUT)
  1. . W ! S DIR(0)="Y",DIR("A")="Do you want to review again"
  1. . S DIR("B")="NO" D ^DIR K DIR
  1. ;
  1. Q
  1. ;
  1. DISP(TXN,DGPFGOUT) ; display user review screen(s):
  1. ;
  1. ; Re-displays information about the Flag or Flag Assignment being
  1. ; created or modified.
  1. ;
  1. ; Input:
  1. ; TXN - transaction - has several pieces starting with:
  1. ; FA - FLAG ASSIGNMENT - Assign Flag
  1. ; FA - FLAG ASSIGNMENT - Edit Flag Assignment
  1. ; FA - FLAG ASSIGNMENT - Change Assignment Ownership
  1. ; FM - FLAG MANAGEMENT - Add New Record Flag
  1. ; FM - FLAG MANAGEMENT - Edit Record Flag
  1. ; DGPFGOUT - name of global ^TMP global used to display
  1. ;
  1. ; Output:
  1. ; none - display to user only
  1. ;
  1. ; Temporary variables:
  1. N DGPFQUIT ; quit variable for loop
  1. N DGPFCT ; counter variable for loop
  1. N DGPFNEW ; new page indicator
  1. N DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y ; DIR Reader variables
  1. N DGPFHDR ; used for new screens of word processing displays
  1. N DGPFTHIS ; value of current node
  1. ; DGPFTHIS("HEADER") ; this node in global array is a header
  1. N DGPFNEXT ; next node in global array
  1. N DGPFLAST ; prevents page feed and display of headers with no body
  1. N DGPFLINE ; line for underlining headers
  1. N DGPFPINV ; counter to control display of principal investigator label
  1. N DGPFPAD ; pad for leading spaces
  1. N DGPFACT ; ACTION as upper case
  1. ;
  1. S DGPFCT=0
  1. S DGPFACT=$TR($P(TXN,U,3),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1. S DGPFHDR("TOP")="REVIEW OF "_DGPFACT_" DATA INPUT BEFORE FILING"
  1. ;
  1. S DGPFLINE="",$P(DGPFLINE,"-",($L(DGPFHDR("TOP"))+1))=""
  1. S DGPFHDR("TOPLINE")=DGPFLINE
  1. S DGPFPINV=0
  1. ;
  1. W:$E(IOST,1,2)="C-" @IOF
  1. W DGPFHDR("TOP"),!,DGPFHDR("TOPLINE")
  1. F S DGPFCT=$O(@DGPFGOUT@(DGPFCT)) Q:DGPFCT="" D Q:$D(DGPFQUIT)
  1. . K DGPFTHIS,DGPFNEXT
  1. . S DGPFTHIS=@DGPFGOUT@(DGPFCT,0)
  1. . S DGPFNEXT=$O(@DGPFGOUT@(DGPFCT))
  1. . S DGPFNEXT=$S(DGPFNEXT="":"",1:@DGPFGOUT@(DGPFNEXT,0))
  1. . S:$O(@DGPFGOUT@(DGPFCT))="" DGPFLAST=1
  1. . ;
  1. . I DGPFTHIS["Principal Investigator(s):" S DGPFPINV=DGPFPINV+1
  1. . I DGPFTHIS["Action Comments:" S DGPFTHIS("HEADER")=1
  1. . I DGPFTHIS["Flag Description:" S DGPFTHIS("HEADER")=1
  1. . I DGPFTHIS["Reason For Flag Enter/Edit:" S DGPFTHIS("HEADER")=1
  1. . I DGPFTHIS["Record Flag Assignment Narrative:" S DGPFTHIS("HEADER")=1
  1. . I DGPFNEXT["Action Comments:" S DGPFNEXT("HEADER")=1
  1. . I DGPFNEXT["Flag Description:" S DGPFNEXT("HEADER")=1
  1. . I DGPFNEXT["Reason For Flag Enter/Edit:" S DGPFNEXT("HEADER")=1
  1. . I DGPFNEXT["Record Flag Assignment Narrative:" S DGPFNEXT("HEADER")=1
  1. . I $D(DGPFTHIS("HEADER")) S DGPFHDR(1)=DGPFTHIS D
  1. . . S DGPFLINE=" ",$P(DGPFLINE,"-",($L(DGPFHDR(1))-1))=""
  1. . ;
  1. . ; if near the bottom, set new screen variable DGPFNEW
  1. . I $Y+9>IOSL I $D(DGPFTHIS("HEADER"))!($Y+6>IOSL) S DGPFNEW=1
  1. . I $D(DGPFNEW),'$D(DGPFLAST) D Q
  1. . . K DGPFNEW W ! S DIR(0)="E" D ^DIR K DIR
  1. . . I $D(DUOUT)!$D(DTOUT) S DGPFQUIT=1 Q
  1. . . W:$E(IOST,1,2)="C-" @IOF
  1. . . W DGPFHDR("TOP"),!,DGPFHDR("TOPLINE")
  1. . . I $D(DGPFHDR(1)) D
  1. . . . I DGPFTHIS?1." ",$D(DGPFNEXT("HEADER")) Q
  1. . . . W !,DGPFHDR(1),!,DGPFLINE
  1. . . W:'$D(DGPFTHIS("HEADER")) !,DGPFTHIS
  1. . . I DGPFTHIS["Principal Investigator(s):" S DGPFPINV=1
  1. . W:$D(DGPFTHIS("HEADER")) !
  1. . ; remove label from Principal Investigator line if not first node
  1. . I DGPFTHIS["Principal Investigator(s):",DGPFPINV>1 D
  1. . . S DGPFPAD=$E($J("",27),1,27)
  1. . . S DGPFTHIS=DGPFPAD_$P(DGPFTHIS,":",2)
  1. . W !,DGPFTHIS
  1. . W:$D(DGPFTHIS("HEADER")) !,DGPFLINE
  1. W !
  1. ;
  1. Q