DGPFHLF ;SHRPE/SGM - PRF REFRESH ASSIGNMENT ; Aug 21, 2018 11:30
Source file <DGPFHLF.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RF | ; Option: DGPF RECORD REFRESH
; .DGPFA() - contains the assignment data ; if Ownership failure choice selected then certain values may change |
|
| OUT | ;
; release lock |
|
| CHECK() | ; validate user authorized to run this Option
|
|
| OWNER() | ; prompt user for site to be assignment owner
; code copied from CHANGE OWNERSHIP action CO^DGPFLMA4 ; do not remove current facility from list |
|
| PROMPT() | ; prompt user for reason for running this option
|
|
| TXT(TXT,ST,ZERO,PAD) | ;
|
|
| T | ;
|
|
| 1 | ;;Updated PRF Assignment with the current data from this site.
|
|
| 8 | ;;Sorry, you are not authorized to run this Option.
|
|
| 10 | ;;This option is designed to resynchronize a Flag Assignment which has
|
|
| 26 | ;;Record flag assignment currently in use, cannot be edited!
|
|
| 28 | ;;Unable to retrieve the record flag assignment selected.
|
|
| 30 | ;;Enter the reason for exercising this option.
|
|
| 36 | ;;Your TREATING FACILITY LIST file does not show any other VAMC
|
|
| 41 | ;;You have selected this Facility/Division as the OWNER SITE:
|
|
| 46 | ;;PRF Assignment update for change of ownership failed.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
