| 1 | DGPFLF2 ;ALB/KCL - PRF FLAG MANAGEMENT LM PROTOCOL ACTIONS ; 3/18/03
|
|---|
| 2 | ;;5.3;Registration;**425**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;no direct entry
|
|---|
| 5 | QUIT
|
|---|
| 6 | ;
|
|---|
| 7 | ;
|
|---|
| 8 | SL ;Entry point for DGPF SORT FLAG LIST action protocol.
|
|---|
| 9 | ;
|
|---|
| 10 | ; Input:
|
|---|
| 11 | ; DGSRTBY - flag list sort by criteria (N=Flag Name, T=Flage Type)
|
|---|
| 12 | ;
|
|---|
| 13 | ; Output:
|
|---|
| 14 | ; DGSRTBY - flag list sort by criteria (N=Flag Name, T=Flage Type)
|
|---|
| 15 | ; VALMBCK - 'R' = refresh screen
|
|---|
| 16 | ;
|
|---|
| 17 | N DGCODE,DGFG
|
|---|
| 18 | ;
|
|---|
| 19 | ;set screen to full scrolling region
|
|---|
| 20 | D FULL^VALM1
|
|---|
| 21 | ;
|
|---|
| 22 | D
|
|---|
| 23 | . ;- prompt for sort criteria
|
|---|
| 24 | . W !
|
|---|
| 25 | . S DGFG=DGSRTBY ;save original sort to default to
|
|---|
| 26 | . S DGCODE="Y" ;DIC(0)="Y" for Yes/No answering
|
|---|
| 27 | . S DGSRTBY=$$ANSWER^DGPFUT("Would you like to sort the list by '"_$S($G(DGFG)="N":"Flag Type",1:"Flag Name")_"'","Yes",DGCODE)
|
|---|
| 28 | . I $G(DGSRTBY)'=1 S DGSRTBY=DGFG Q ;no sort change
|
|---|
| 29 | . S DGSRTBY=$S($G(DGFG)="N":"T",1:"N") ;change sort (flip / flop)
|
|---|
| 30 | . ;
|
|---|
| 31 | . ;- re-build list for selected sort criteria
|
|---|
| 32 | . D BLD^DGPFLF
|
|---|
| 33 | ;
|
|---|
| 34 | ;return to LM (refresh screen)
|
|---|
| 35 | S VALMBCK="R"
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | ;
|
|---|
| 39 | CC ;Entry point for DGPF CHANGE CATEGORY action protocol.
|
|---|
| 40 | ;
|
|---|
| 41 | ; Input:
|
|---|
| 42 | ; DGCAT - flag category (1=National, 2=Local)
|
|---|
| 43 | ;
|
|---|
| 44 | ; Output:
|
|---|
| 45 | ; DGCAT - flag category (1=National, 2=Local)
|
|---|
| 46 | ; VALMBCK - 'R' = refresh screen
|
|---|
| 47 | ;
|
|---|
| 48 | N DGCODE
|
|---|
| 49 | N DGFG
|
|---|
| 50 | ;
|
|---|
| 51 | ;set screen to full scrolling region
|
|---|
| 52 | D FULL^VALM1
|
|---|
| 53 | ;
|
|---|
| 54 | ;change category
|
|---|
| 55 | S DGCAT=$S($G(DGCAT)=1:2,1:1)
|
|---|
| 56 | ;
|
|---|
| 57 | ;re-build list for category change
|
|---|
| 58 | D BLD^DGPFLF
|
|---|
| 59 | ;
|
|---|
| 60 | ;return to LM (refresh screen)
|
|---|
| 61 | S VALMBCK="R"
|
|---|
| 62 | Q
|
|---|
| 63 | ;
|
|---|
| 64 | ;
|
|---|
| 65 | DF ;Entry point for DGPF DISPLAY FLAG DETAIL action protocol.
|
|---|
| 66 | ;
|
|---|
| 67 | ; Input:
|
|---|
| 68 | ;
|
|---|
| 69 | ; Output:
|
|---|
| 70 | ; VALMBCK - 'R' = refresh screen
|
|---|
| 71 | ;
|
|---|
| 72 | N SEL ;user selection
|
|---|
| 73 | N VALMY ;output of EN^VALM2 call, array of user selected entries
|
|---|
| 74 | N DGPFIEN ;IEN of record in PRF NATIONAL FLAG or PRF LOCAL FLAG file
|
|---|
| 75 | ; [ex: "1;DGPF(26.15,"]
|
|---|
| 76 | ;
|
|---|
| 77 | ;set screen to full scroll region
|
|---|
| 78 | D FULL^VALM1
|
|---|
| 79 | ;
|
|---|
| 80 | ;is action selection allowed?
|
|---|
| 81 | I '$D(@VALMAR@("IDX")) D Q
|
|---|
| 82 | . W !!?2,">>> '"_$P($G(XQORNOD(0)),U,3)_"' action not allowed at this point.",*7
|
|---|
| 83 | . W !?6,"There are no record flags to display."
|
|---|
| 84 | . D PAUSE^VALM1
|
|---|
| 85 | . S VALMBCK="R"
|
|---|
| 86 | ;
|
|---|
| 87 | ;ask user to select a single flag for displaying details
|
|---|
| 88 | S (SEL,DGPFIEN,VALMBCK)=""
|
|---|
| 89 | D EN^VALM2($G(XQORNOD(0)),"S")
|
|---|
| 90 | ;
|
|---|
| 91 | ;process user selection
|
|---|
| 92 | S SEL=$O(VALMY(""))
|
|---|
| 93 | I SEL,$D(@VALMAR@("IDX",SEL)) D
|
|---|
| 94 | . S DGPFIEN=$P($G(@VALMAR@("IDX",SEL)),U)
|
|---|
| 95 | . ;- display flag details
|
|---|
| 96 | . N VALMHDR
|
|---|
| 97 | . D EN^DGPFLFD
|
|---|
| 98 | ;
|
|---|
| 99 | ;return to LM (refresh screen)
|
|---|
| 100 | S VALMBCK="R"
|
|---|
| 101 | Q
|
|---|
