| [613] | 1 | DGPFLMA1 ;ALB/KCL - PRF ASSIGNMENT LM PROTOCOL ACTIONS ; 6/10/03 3:57pm
|
|---|
| 2 | ;;5.3;Registration;**425**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;no direct entry
|
|---|
| 5 | QUIT
|
|---|
| 6 | ;
|
|---|
| 7 | SP ;Entry point for DGPF SELECT PATIENT action protocol.
|
|---|
| 8 | ;
|
|---|
| 9 | ; Input: None
|
|---|
| 10 | ;
|
|---|
| 11 | ; Output:
|
|---|
| 12 | ; DGDFN - pointer to patient in PATIENT #2 file
|
|---|
| 13 | ; VALMBCK - 'R' = refresh screen
|
|---|
| 14 | ;
|
|---|
| 15 | N DGPAT ;patient lookup array
|
|---|
| 16 | ;
|
|---|
| 17 | ;set screen to full scrolling region
|
|---|
| 18 | D FULL^VALM1
|
|---|
| 19 | ;
|
|---|
| 20 | ;patient selection (lookup)
|
|---|
| 21 | D SELPAT^DGPFUT1(.DGPAT)
|
|---|
| 22 | I (+$G(DGPAT)>0) D
|
|---|
| 23 | . S DGDFN=+DGPAT
|
|---|
| 24 | . ;
|
|---|
| 25 | . Q:'$$CONTINUE^DGPFUT()
|
|---|
| 26 | . ;
|
|---|
| 27 | . ;- build header for selected patient
|
|---|
| 28 | . D BLDHDR^DGPFLMU(DGDFN,.VALMHDR)
|
|---|
| 29 | . ;
|
|---|
| 30 | . ;- build list of flag assignments for selected patient
|
|---|
| 31 | . D BLDLIST^DGPFLMU(DGDFN)
|
|---|
| 32 | ;
|
|---|
| 33 | ;return to LM (refresh screen)
|
|---|
| 34 | S VALMBCK="R"
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | ;
|
|---|
| 38 | DF ;Entry point for DGPF DISPLAY ASSIGNMENT DETAIL action protocol.
|
|---|
| 39 | ;
|
|---|
| 40 | ; Input: None
|
|---|
| 41 | ;
|
|---|
| 42 | ; Output:
|
|---|
| 43 | ; VALMBCK - 'R' = refresh screen
|
|---|
| 44 | ;
|
|---|
| 45 | N DGDFN ;patient dfn
|
|---|
| 46 | N DGIEN ;assignment ien
|
|---|
| 47 | N SEL ;user selection
|
|---|
| 48 | N VALMY ;output of EN^VALM2 call, array of user selected entries
|
|---|
| 49 | ;
|
|---|
| 50 | ;set screen to full scroll region
|
|---|
| 51 | D FULL^VALM1
|
|---|
| 52 | ;
|
|---|
| 53 | ;is action selection allowed?
|
|---|
| 54 | I '$D(@VALMAR@("IDX")) D Q
|
|---|
| 55 | . W !!?2,">>> '"_$P($G(XQORNOD(0)),U,3)_"' action not allowed at this point.",*7
|
|---|
| 56 | . I '$G(DGDFN) W !?6,"A patient has not been selected."
|
|---|
| 57 | . E W !?6,"There are no record flag assignments for this patient."
|
|---|
| 58 | . D PAUSE^VALM1
|
|---|
| 59 | . S VALMBCK="R"
|
|---|
| 60 | ;
|
|---|
| 61 | ;ask user to select a single assignment for detail display
|
|---|
| 62 | S (SEL,DGIEN,VALMBCK)=""
|
|---|
| 63 | D EN^VALM2($G(XQORNOD(0)),"S")
|
|---|
| 64 | ;
|
|---|
| 65 | ;process user selection
|
|---|
| 66 | S SEL=$O(VALMY(""))
|
|---|
| 67 | I SEL,$D(@VALMAR@("IDX",SEL,SEL)) D
|
|---|
| 68 | . S DGIEN=$P($G(@VALMAR@("IDX",SEL,SEL)),U)
|
|---|
| 69 | . S DGDFN=$P($G(@VALMAR@("IDX",SEL,SEL)),U,2)
|
|---|
| 70 | . ;-display flag assignment details
|
|---|
| 71 | . N VALMHDR
|
|---|
| 72 | . D EN^DGPFLMAD
|
|---|
| 73 | ;
|
|---|
| 74 | ;return to LM (refresh screen)
|
|---|
| 75 | S VALMBCK="R"
|
|---|
| 76 | Q
|
|---|
